Bonjour,
Je cherche depuis plus de 2h sans rien trouver. j'ai actuellement une cellule C4 (avec une formule) j'aimerais l'étendre vers la droite (D4, E4, F4...) en fonction des celulles non vides sur la ligne 3.
Actuellement j'ai fait ceci:
Sub test
Dim Derncol As Integer, Col As Integer
Derncol = Cells(3, Columns.Count).End(xlToLeft).Column
For Col = 3 To Derncol
Cells(4, Col).AutoFill Destination:=Range(Cells(4, Col), Cells(4, Derncol))
Next Col
End Sub
Mais j'ai un message d'erreur.
Pouvez-vous m'aider ?
Merci d'avance et bonne journée
Je cherche depuis plus de 2h sans rien trouver. j'ai actuellement une cellule C4 (avec une formule) j'aimerais l'étendre vers la droite (D4, E4, F4...) en fonction des celulles non vides sur la ligne 3.
Actuellement j'ai fait ceci:
Sub test
Dim Derncol As Integer, Col As Integer
Derncol = Cells(3, Columns.Count).End(xlToLeft).Column
For Col = 3 To Derncol
Cells(4, Col).AutoFill Destination:=Range(Cells(4, Col), Cells(4, Derncol))
Next Col
End Sub
Mais j'ai un message d'erreur.
Pouvez-vous m'aider ?
Merci d'avance et bonne journée