Discussion :

[BtjpsspgrW]

Bonjour,

Dans une même colonne, j'ai des dates sous le format (annéemoisjour).

Exemple : 20190211

Je souhaiterais modifier ces dates à l'aide de VISUAL BASIC au format "dd/mm/yy", mais je n'y parviens pas.

Quelqu'un peut-il m'aider ?

Merci beaucoup pour votre aide.

[Menhir]

En supposant que tes dates soient en colonne A et commencent en ligne 2, tu mets dans une autre cellule de la ligne 2 la formule :

Code :

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

=DATE(GAUCHE(A2;4);STXT(A2;5;2);STXT(A2;7;2))

Tu copies vers le bas autant que nécessaire.
Tu fais un "copier / coller valeur" de cette colonne vers ta colonne de dates.

Pour faire la même chose en VBA, utiliser les fonctions DateSerial(), Left() et Mid() qui sont les équivalents de celles utilisées dans ma formule.
Le tout dans une boucle For To.

[BtjpsspgrW]

Bonjour

Pour faire la même chose avec VBA, j'ai rédigé :

Code :

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

Range("A2").Formula = DateSerial(Left(A2, 4), Mid(A2, 5, 2), Mid(A2, 7, 2))

et j'ai une erreur d'exécution.

Comment corriger ma macro ?

Merci.

Cordialement.

[MarcelG]

Bonjour,

La propriété Formula se code comme une fonction texte

= "=....

Voir cette aide

Autre possibilité, utiliser l'enregistreur qu'il faudra, bien entendu, épurer.

[Menhir]

Déjà, A2 sans le mettre dans un Range, ce n'est pas une référence de cellule mais une variable.
Pour éviter ce type d'erreur, prend l'habitude de mettre un "Option Explicit" avant tes codes ou, mieux, fais en sorte que ça se mette tout seul : Menu Outils > Options > Cocher "Déclaration de variables obligatoire"

Pour en revenir à ton affaire, tu ne peux pas passer par Formula puisque techniquement la formule d'une cellule ne peut pas faire référence à la valeur de cette cellule.
Il faudrait donc placer le résultat dans une autre cellule.
Et dans ce cas, il vaudrait mieux utiliser FormulaLocal qui te permettrait de mettre directement la formule que je t'ai donnée.
Lire ça : https://docs.microsoft.com/fr-fr/off...e.formulalocal
Mais je ne vois pas trop l'intérêt que ça aurait de développer une macro pour ça.

Le plus simple serait de mettre directement la valeur dans la cellule :

Code :

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

Range("A2").Value = DateSerial(Left(Range("A2"), 4), Mid(Range("A2"), 5, 2), Mid(Range"A2"), 7, 2))

Sans oublier (quelle que soit la solution retenue) de passer ta cellule au format date avec la propriété NumberFormat du Range.
Lire ça : https://msdn.microsoft.com/fr-fr/lib...1(v=office.15)