Etendre Formule en fonction d'une ligne VBA

néné06

XLDnaute Accro

• 4 Décembre 2015

• #2

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é

 

Dernière édition: 4 Décembre 2015

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Décembre 2015

• #3

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:

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

A+

 

Vote positif 0 Vote négatif

L

logman

Guest

• 4 Décembre 2015

• #4

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 🙁

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 4 Décembre 2015

• #5

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é

 

Vote positif 0 Vote négatif

L

logman

Guest

• 4 Décembre 2015

• #6

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.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 4 Décembre 2015

• #7

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é

 

Dernière édition: 4 Décembre 2015

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Décembre 2015

• #8

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+

 

Vote positif 0 Vote négatif

L

logman

Guest

• 4 Décembre 2015

• #9

Re : Etendre Formule en fonction d'une ligne VBA

avez-vous une autre alternative ? Merci d'avance

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 4 Décembre 2015

• #10

Re : Etendre Formule en fonction d'une ligne VBA

Re,

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

A+

René

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Décembre 2015

• #11

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+

 

Vote positif 0 Vote négatif

L

logman

Guest

• 4 Décembre 2015

• #12

Re : Etendre Formule en fonction d'une ligne VBA

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 4 Décembre 2015

• #13

Re : Etendre Formule en fonction d'une ligne VBA

Re,
Essayes ceci ?

A+

René

 

Pièces jointes

• Classeur1.xlsm

  20.8 KB · Affichages: 45
• Classeur1.xlsm

  20.8 KB · Affichages: 48

Vote positif 0 Vote négatif

L

logman

Guest

• 4 Décembre 2015

• #14

Re : Etendre Formule en fonction d'une ligne VBA

Super Merci beaucoup néné06

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Décembre 2015

• #15

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+

 

Vote positif 0 Vote négatif