recopier vers le bas jusqu'à la dernière donnée

[Benoit]

bonjour lecteurs(trices) du Forum,

Actuellement, pour recopier vers le bas jusqu'à la dernière donnée d'une colonne A,
jutilise

Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A1000"), Type:=xlFillDefault

Pourriez-vous me brieffer sur la méthode afin de
''recopier vers le bas jusqu'à la dernière donnée remplie d'une colonne''

En vous remerciant d'avance...

Cordialement

Benoit

 

[@Christophe@]

Bonsoir,

Voila ton code:

Range("A1").AutoFill Destination:=Range("A1:A" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault


Bonne soirée

@Christophe@

 

[Benoit]

bonjour @Christophe@, bonjour le Forum,

Merci pour ta réponse;

j'ai un problème avec AutoFill Destination car en fait je voudrais recopier vers le bas A1 sous conditions ( Si D n'est pas vide )

J(ai bien essayé sans succès:

Range("A1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[3]<>"""",NOW(),"""")"

' Selectionne A1 (date) pour un formatage JJMMAAA et recopie vers le bas ( Si D n'est pas vide )

Range("A1").AutoFill Destination:=Range("A1:A" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault

Pourrais-tu me donner une autre piste ?

A+

 

[Benoit]

re-bonjour à tous,

@Christophe@ à l'air offline, alors je reformule mon problème au cas où quelqu'un ait envie de m'indiquer une solution:

=> je voudrais recopier les données de A1 vers le bas sous conditions ( Si D n'est pas vide )


Amicalement

Benoit