Code vba

[Résolu]
Signaler
Messages postés
43
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
9 septembre 2008
-
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
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

Messages postés
672
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
2 juin 2016
1
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
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
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