Etendre Formule en fonction d'une ligne VBA

[logman]

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

 

[néné06]

Re : Etendre Formule en fonction d'une ligne VBA

Bonjour,


Essayes ceci:
Derncol = Cells(3, Columns.Count.End(xlToLeft))
Plutôt que cela:
Derncol = Cells(3, Columns.Count).End(xlToLeft).Column

A+

rené

 

[Paf]

Re : Etendre Formule en fonction d'une ligne VBA

Bonjour,

c'est toujours mieux de préciser le message d'erreur !?

si j'ai bien compris, à tester:

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

A+

 

[logman]

Re : Etendre Formule en fonction d'une ligne VBA

j'ai comme message d'erreur : "erreur d'éxécution '1004' la méthode autofill de la classe Range a échoué". Néné06 j'ai testé mais ça ne fonctionne pas

 

[néné06]

Re : Etendre Formule en fonction d'une ligne VBA

Re,

Sur ton programme, Quel est la valeur donnée pour "Derncol":
Cette valeur doit être >0.

A+

René

 

[logman]

Re : Etendre Formule en fonction d'une ligne VBA

c'est supérieur à 0 enfaite la macro se fait mais juste après j'ai le message d'erreur ci-dessus. Du coup je ne peux pas enchainer les autres macros.

 

[néné06]

Re : Etendre Formule en fonction d'une ligne VBA

Re,
Le code plante lorsque Derncol est >= à 3.

Donc execution de la boucle

Range(Cells(4, 3), Cells(4, Derncol)).

A+

René

 

[Paf]

Re : Etendre Formule en fonction d'une ligne VBA

Re, et bonjour néné06

l'erreur persiste avec votre code à boucle ou le mien ?

pour mon code la même erreur survient si Derncol n'est pas supérieur à 3 (colonne C)

A+

 

[logman]

Re : Etendre Formule en fonction d'une ligne VBA

avez-vous une autre alternative ? Merci d'avance

 

[néné06]

Re : Etendre Formule en fonction d'une ligne VBA

Re,

Peut-être en simulant l'action avec l'enregistreur de macros ?

A+

René

 

[Paf]

Re : Etendre Formule en fonction d'une ligne VBA

Re,

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...

A+

 

[logman]

Re : Etendre Formule en fonction d'une ligne VBA

désolé je suis un peu largué :/

 

[néné06]

Re : Etendre Formule en fonction d'une ligne VBA

Re,
Essayes ceci ?

A+

René

 

[logman]

Re : Etendre Formule en fonction d'une ligne VBA

Super Merci beaucoup néné06

 

[Paf]

Re : Etendre Formule en fonction d'une ligne VBA

Re,

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 ????

A+