Discussion :

[ssskyyy]

Bonjour à tous,

Je viens vers vous car je sèche totalement sur une erreur 1004 autofill method of range class failed sur le code suivant :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Descente des formules
nbRows = Sheets(sheetsName).Range("A" & Rows.Count).End(xlUp).Row
Sheets(sheetsName).Range("O4").AutoFill Destination:=Range("O4:O" & nbRows)

nbRows est bien égal au nombre de lignes avec valeur.

Je n'arrive pas à identifier mon erreur.

Quelqu'un aurait-il une idée ? Est-ce une erreur de lundi matin ?

Merci d'avance

[Menhir]

A moins que ton Sheets(sheetsName) soit inutile, la source et la destination de l'AutoFill ne sont pas dans la même feuille. Ca ne peut donc pas fonctionner.

[ssskyyy]

Du coup, erreur de lundi matin...

J'ai corrigé comme cela (je préfère expliciter la feuille) :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Descente des formules
nbRows = Sheets(sheetsName).Range("A" & Rows.Count).End(xlUp).Row
Sheets(sheetsName).Range("O4").AutoFill Destination:=Sheets(sheetsName).Range("O4:O" & nbRows)

Merci Menhir.