Code vba

Résolu
cs_akmer Messages postés 43 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 9 septembre 2008 - 10 avril 2008 à 09:24
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 10 avril 2008 à 11:47
Bonjour,
Je souhaiterai selectionné de la cellule D4 à la derniére cellule de cette collonne donc D65536 et de mettre le format date sans chiffre après la virgule, donc voila la formule:
Range("D4:D65536").Select
Selection.NumberFormat = "0"
Cependant je voudrais savoir si il existe une formule permettant de selectionner la colone de D4 jusqu'a la fin de la colonne avec un autre code que D65536, j'ai essayé la formule suivante qui malheuresement n'as pas fonctionné:
Range("D4:D").Select
Selection.NumberFormat = "0"

J'aimerai savoir aussi si vous connaissiez une formule qui permettrait de selectionner la colone de la cellule D4 jusqu'a la derniére cellule non vide de cette colonne.
Merci d'avance

2 réponses

cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
10 avril 2008 à 09:42
Bonjour

Numéro de dernière ligne
numDerniereLigne= Range("D4").End(xlDown).Row

Selection colonne D à partir de D4
Range ("D4:D" & Cstr(numDerniereLigne)).Select
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
10 avril 2008 à 11:47
Si jamais il y a des cellules vides en colonne D, le mieux est de partir par la fin et remonter pour connaître la dernière ligne.
Ligne = Cells(Rows.Count, "D").End(xlUp).Row
Range("D4:D" & Ligne).select  'Select à éviter, même si je l'écris...

Rows.Count est préférable à 65536. Dans la version 2007, il y a beaucoup plus de lignes que 65536. Ça demeure donc plus facilement portable avec Rows.Count

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Rejoignez-nous