question code vba

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é:

Code:

---

1 2	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

Citation:

---

Envoyé par akmer

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

---

Bonjour,
Une des manières de l'écrire est celle-ci

Code:

---

Range("D4:D" & Range("D65535").End(xlUp).Row).NumberFormat = "0"

---

merci beaucoup