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
c'est toujours mieux de préciser le message d'erreur !?
si j'ai bien compris, à tester:
Code:
Sub test()
Dim Derncol As Integer
Derncol = Cells(3, Columns.Count).End(xlToLeft).Column
Cells(4, 3).AutoFill Destination:=Range(Cells(4, 3), Cells(4, Derncol))
End Sub
je ne vois pas ce que l'on peut avoir comme alternative à ne pas pouvoir dupliquer la formule sur elle même ? (cas de Derncol =3)
si ce n'est rajouter un test, if Derncol >3 then...
je n'ai sans doute rien compris au problème , mais mon code du post #3 dans l'exemple fourni par néné06 , donne les mêmes résultats (ou presque!) mais ne provoque pas d'erreur ????