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 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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 Sub

---

Mes 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

Bonjour,

voici pour insérer la formule

Code:

---

1 2 3 4 5

Sub toto() With ThisWorkbook.Worksheets("Gestionnaire Factures") .Cells(.Rows.Count, 1).End(xlUp)(2).Formula = "='" & ThisWorkbook.Worksheets("Vierge D.F").Cells(5, 12).Value & "'!B$16" End With End Sub

---

concernant Autofill, il est normal que seule la ligne 27 soit traitée, c'est ce que tu demandes ici :

Code:

---

Selection.AutoFill Destination:=Range("A27:I27"), Type:=xlFillDefault

---

Ne sachant pas quelle plage exacte tu souhaites autofiller, je te laisse modifier en conséquence

Un grand merci JOE !
ça fonctionne super, une dernière question et je passe la discussion en Résolu.

Maintenant que j'ai bien ma valeur dans la cellule suivante dans l'onglet "gestionnaire factures", je voudrais étendre la formule de cette cellule jusqu'a la colonne I(i).
(mon soucis avec Autofill est dans le fait que je suis obligé de lui donner des coordonnées de cellules).

il te suffit de sortir la ligne finale de ta chaine de caractère définissant le range, et de lui ajouter la variable i à la place

Code:

---

Selection.AutoFill Destination:=Range("A27:I" & i), Type:=xlFillDefault

---

Alors non pas exactement

la valeur que l'on vient de coller dans l'onglet 'gestionnaire factures" dans ce cas ci en A27 doit être étendu jusqu'a la colonne I

Mais le soucis c'est que ce n'est pas toujours en A27 dès lors que je vais lancer le bout de code on va coller la valeur à la cellule suivante vide c'est à dire A28


Il faut donc que la valeur que l'on vient de coller (qu'importe son numéro de ligne) doit etre étirée jusqu'a la colonne I

On peut réutiliser la cellule calculée, en récupérer son adresse (et celle de la colonne I) pour reconstituer le Range

Code:

---

1 2 3 4 5 6 7 8

Sub toto() With ThisWorkbook.Worksheets("Gestionnaire Factures") With .Cells(.Rows.Count, 1).End(xlUp)(2) .Formula = "='" & ThisWorkbook.Worksheets("Vierge D.F").Cells(5, 12).Value & "'!B$16" .AutoFill Destination:=ThisWorkbook.Worksheets("Gestionnaire Factures").Range(.Address, .Offset(0, 9).Address), Type:=xlFillDefault End With End With End Sub

---

Attention, je n'ai pas essayé, regarde si c'est ok

C'est ok ! merci beaucoup à toi !
passe une bonne soirée ;)