Discussion :

[Djohn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JeanSairien]

Bonjour,

Avec l'enregistreur de macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne journée

[mapeh]

Bonjour,

Essaie avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne journée

[Djohn]

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

[mapeh]

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