code vbaRésolu

Question

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

cs_loulou69 · Accepted Answer

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 · Answer

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

Code vba

2 réponses

Votre réponse

Discussions similaires