Modifier le le format Date sur toute les lignes d'une colonne

Bonjour,

J'aurai besoin d'un peu d'aide pour optimiser un code ou pour changer mon raisonnement pour le rendre plus rapide.

En colonne A j'ai une suite de date sous le format AAAAMMJJ que j'aimerai changer au format JJ/MM/AAAA

pour le moment j'ai crée une petite boucle pour changer une par une les cellules :

Code:

---

1 2 3 4 5 6 7 8 9

N = 2 While Cells(N, 1) <> "" A = Cells(N, 1) B = Right(A, 2) & "/" & Mid(A, 5, 2) & "/" & Left(A, 4)   Cells(N, 1) = B   N = N + 1 Wend

---

A votre avis est il possible d'éviter cette boucle en changeant directement le format de toute la colonne A ?

Merci

Bonjour,

Avec l'enregistreur de macro :

Code:

---

1 2	Columns("A:A").Select Selection.NumberFormat = "m/d/yyyy"

---

Donc :

Code:

---

Columns("A:A").NumberFormat = "m/d/yyyy"

---

Bonne journée

Bonjour,

Essaie avec ce code :

Code:

---

1 2	Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, FieldInfo:=Array(1, 5), TrailingMinusNumbers:=True

---

Bonne journée

merci pour ta réponse JeanSairien, mais le résultat affiché est une infinité de ######

Nikel ce petit code Mapeh, je vais me le garder au chaud,

si tu peux m'expliquer comment ca fonctionne :)

merci

Re-,

Avec l'enregistreur de Macro....

Sélectionne la colonne A

Données/Convertir

Étape 1 : Délimité
Étape 2 : Décoche tout
Étape 3 : Sélectionne "Date", en haut à droite, et choisis "AAAAMMJJ"

Terminer

Bonne journée