Formater une cellule en VBA pour recevoir une date

Salut,

J'exporte des valeurs depuis une base de données Access vers un classeur Excel que je créé à la volée.

Mon problème est de faire en sorte d'afficher correctement les dates dans les cellules, car bien que les valeurs récupérées dans la base soient au format Date, dans Excel elles apparaissent sous forme d'entiers.

Je cherche quelle méthode me permettrait de définir un format date sur une plage de cellule en VBA.

Je suppose que c'est une méthode de l'objet Range, mais je sèche...

Avec la fonction Format?

Code:

---

1 2 3 4

Dim cellule As Range For Each cellule In Range("B2:B18") cellule.Value = Format(cellule.Value, "dd mmmm yyyy") Next cellule

---

Ce code reformate les cellules B2 à B18 en date longue.

Citation:

---

Envoyé par zazaraignée

Avec la fonction Format?

Code:

---

1 2 3 4

Dim cellule As Range For Each cellule In Range("B2:B18") cellule.Value = Format(cellule.Value, "dd mmmm yyyy") Next cellule

---

Ce code reformate les cellules B2 à B18 en date longue.

---

Merci de ta réponse.

Apparemment ça ne fonctionne pas car cellule.value n'est pas reconnue (Membre de méthode ou de données introuvable)

Je vais essayer de creuser en utilisant Format; j'espérais juste qu'il y avait plus simple (comme une méthode dédiée pour l'objet range par exemple :( )

Bonjour

Essaye :

Code:

---

1 2 3 4

Dim cellule As Range For Each cellule In Range("B2:B18") cellule.NumberFormat = "dd/mm/yy;@" Next cellule

---

Starec

Citation:

---

Envoyé par Starec

Bonjour

Essaye :

Code:

---

1 2 3 4

Dim cellule As Range For Each cellule In Range("B2:B18") cellule.NumberFormat = "dd/mm/yy;@" Next cellule

---

Starec

---

Idem, même erreur, sauf qu'elle est annoncée quand je clique sur le bouton et qu'il n'ouvre plus le débogueur

Ca ressemble plus à ce à quoi je pensais.

Re

Essaye

Code:

---

Selection.NumberFormat = "dd/mm/yy;@"

---

Aprés avoir sélectionner une plage de cellule.

Où remplace sélection par :

Code:

---

1 2 3

Dim wks As Worksheet Set wks = ThisWorkbook.Worksheets("Feuil1") wks.Range("A1:A25").NumberFormat = "dd/mm/yy;@"

---

Starec

Citation:

---

Envoyé par Starec

Re

Code:

---

1 2 3

Dim wks As Worksheet Set wks = ThisWorkbook.Worksheets("Feuil1") wks.Range("A1:A25").NumberFormat = "dd/mm/yy;@"

---

Starec

---

Bon ben ça fait fois 2 lol

deuxième fois que ut me débloques dans la journée, très très grand merci man.