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

  • Initiateur de la discussion Benoit
  • Date de début
B

Benoit

Guest
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
 
B

Benoit

Guest
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+
 
B

Benoit

Guest
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
 
Haut Bas