Discussion :

[Thomas88-67]

Bonjour à tous,

Dans mon code VBA je cherche à étendre une formule jusqu'à la dernière colonne (correspondant à la dernière cellule renseignée de la ligne précédente), j'ai donc rédigé le code de cette manière :

Code :

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

1
2
3
Dim DernCol As Long
DernCol = Worksheets("% articles").Cells(18, Cells.Columns.Count).End(xlToLeft).Column
Worksheets("% Articles").Cells(19, 3).AutoFill Destination:=Worksheets("% Articles").Range(Cells(19, 3), Cells(19, DernCol)), Type:=xlFillDefault

Ce code fonctionne très bien dans un module lorsque j'enclenche la macro du module mais une fois le module appelé dans le code de l'Userform cela boque au niveau de la 3é ligne de ce fragment de code.

Idem si j'incère ce même code directement dans celui de la feuilles.

Je n'arrive pas à comprendre pourquoi...

Pourriez vous m'aider ?

[Pierre Fauconnier]

Salut

Tu dois également préfixer Cells(19, DernCol) de la feuille Worksheets("% Articles") ==> Worksheets("% Articles").Cells(19, DernCol)
Tu gagnerais à travailler avec des variables pour les plages et ou pour les feuilles. Cela rendrait ton code plus simple à rédiger et à maintenir (selon mes critères de simplicité)