Bonjour,
Je suis en train de faire des vérifications sur le nombre de caractères que doit contenir un code postal selon le pays. Je travaille sur la France et j'ai pour habitude d'utiliser la fonction texte pour faire apparaître le zéro devant les communes de l'Ain, l'Aisne... Afin d'avoir bel et bien 5 caractères.
Pour aller plus vite et automatiser ce traitement, je passe par VBA avec une boucle.
La boucle recherche les lignes ou le pays est "FR". Pour ces mêmes lignes, on applique le format "00000" en colonne 14 en pointant sur la colonne 10 (code postal "brut"). Tout se passe bien pour les codes ayant déjà 5 caractères. Mais pour les cellules qui n'ont que 4 caractères, ça ne change rien.
J'ai également essayé avec application.text, le résultats est le même : Excel ne veut pas passer mon code sur 5 caractères.
A noter qu'avec la formule =texte(), le zéro apparait bien...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 For i = 2 To Derniere_Ligne 'Code postale sur 5 positions : France, Allemagne, Italie, Espagne If Worksheets("CANAL_EXPORT").Cells(i, 13) = "FR" Then Worksheets("CANAL_EXPORT").Cells(i, 14) = Format(Worksheets("CANAL_EXPORT").Cells(i, 10), "00000") End If Next i
Merci par avance de votre aide !
Bonne journée !
Partager