VBA Selection.AutoFill avec champ variable

Bonjour à tous,

J'ai un fichier vba avec des valeurs en dur et des formules.

Je cherche une formule pour que lorsque la cellule G & i a la valeur toto alors je sélectionne la cellule C & i -1 et j'applique le contenu de cette cellule (qui est une formule) à toutes les autres cellules non vide de la colonne.

J'ai essayé la formule suivante qui ne marche pas:

Code:

---

1 2 3

Range("C" & i - 1).Select 'Selection.AutoFill Destination:=Range("C & i -1").End(xlDown).Row

---

Merci beaucoup pour votre aide

Bonsoir
Débutant :aie: méfiez de mes propositions qui sont des bricolage :aie::mouarf:
peut être comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Recxhrche() Dim X As String Dim Y As String Dim Plage As Range Dim Cel As Range X = Application.InputBox("Entrez la valeur recherchée", "Valeur", Type:=2) If X = False Then Exit Sub Set Plage = Sheets("Feuil1").Range("G1:G500") ' à adapter For Each Cel In Plage If Cel.Value = X Then Y = Cells(Cel.Row - 1, 3) End If Next Cel For i = 1 To 500 If Cells(i, 3) = "" Then Cells(i, 3) = Y Next End Sub

---