VBA / Copier valeur cellule et intégration dans un formule
Bonjour à vous tous et merci par avance.
Voici le problème que j'ai :
Mon fichier possède 2 onglets : un nommé "Vierge D.F" et l'autre "Gestionnaire Factures".
Sur l'onglet "Vierge D.F" dois récupérer une information texte sous la forme " TS 2020 20 12" en cellule "L5" (cette information est une variable).
Il faut ensuite aller dans l'onglet "Gestionnaire Factures" Aller à la dernière cellule vide d'un tableau (Tableau 3) qui commence en A24 pour écrire cette formule :
='TS 2020 20 12'!B$16
En sachant que la valeur entre ' ' doit être celle récupéré dans l'onglet "Vierge D.F"
Et enfin étirer la formule de la case on l'on vient d'entrer la valeur jusqu'a la colonne I (i).
Voici le code que j'ai pour l'instant :
Sub FREDO()
Range("L5").Select
Selection.Copy
Sheets("Gestionnaire Factures").Select
Cells(Rows.Count, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseApplication.CutCopyMode = False
ActiveCell.FormulaLocal = "='TS 2020 12 0002'!B$16"
Selection.AutoFill Destination:=Range("A27:I27"), Type:=xlFillDefault
Range("A27:I27").Select
End SubMes soucis avec ce code
Ce n'est pas une variable il prend toujours la valeur TS 2020 12 002
Lorsque l'étire la formule ça ne se fais que dans le ligne 27
Merci à vous les pros d'excel et de VBA
Amicalement Pierre
Salut Pierre,
pas un pro du tout, surtout en formules mais, à mon sens,...
='TS 2020 20 12'!B$16... fait référence à la cellule B16 de la feuille 'TS 2020 20 12' qui, selon ton explication, n'existe pas dans ton fichier de deux onglets...
D'autres explications et un fichier, stp !
A+