Discussion :

[Runsh63]

Bonjour,

Je souhaite utilser la fonction autofill à partir d'une formule écrite sur la cellule A1 jusqu'à la fin de mon fichier de données dont la dernière ligne a été identifer comme ceci:

Code :

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

LR = Range("A1").SpecialCells(xlLastCell).Row

Et la dernière colonne comme ceci:

Code :

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

LC = Range("A1").SpecialCells(xlLastCell).Column

Sur une autre feuille j'ai écrit ma formule en A1 et je compte la dupliquer jusqu'au bout en utilisant ce code, mais ça ne fonctionne pas...

Code :

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

Selection.AutoFill Destination:=("A1:" & LC & LR)

Qu'est-ce qui cloche ? Comment faire pour que ma macro fonctionne ?
Merci d'avance !

Cordialement,

Runsh

[casefayere]

Bonjour,
un code à essayer pour que A se recopie sur toute la colonne A jusque la dernière ligne

Code :

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

1
2
3
4
5
6
7
Sub essai()
Dim LC, LR, cel As Range
LC = Range("A1").SpecialCells(xlLastCell).Column
LR = Columns(LC).SpecialCells(xlLastCell).Row
Set cel = Cells(LR, 1)
Range("A1").AutoFill Destination:=Range("A1", cel.Address), Type:=xlFillDefault
End Sub

[Runsh63]

Je me suis inspiré de votre code et ai réussi à trouver une solution.
Merci !