Fonction texte en VBA

Version imprimable

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:

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 !

19/09/2016, 10h49
Marc-L

Bonjour,

c'est normal, mieux vaut utiliser directement le formatage au niveau des cellules de la feuille de calculs …

Sinon ajouter un nombre de caractères "0" via la fonction String par différence avec le nombre de caractères de la cellule (Len).

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

Bonjour Pix_elle, Marc, bonjour le forum,

peut-être comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro1()
With Worksheets("CANAL_EXPORT")
    For i = 2 To Derniere_Ligne
        'Code postale sur 5 positions : France, Allemagne, Italie, Espagne
        Select Case .Cells(i, 13).Value
            Case "FR", "AL", "IT", "ES" 'à adapter
                With .Cells(i, 14)
                    If Len(.Value) = 4 Then
                    .Value = "'0" & .Value
                    .NumberFormat = "@"
                End With
        End Select
    Next i
End With
End Sub

19/09/2016, 11h06
Marc-L

Oh un Sétois ! (Salut Robert !)

Robert a raison, si c'est juste pour les cellules de 4 caractères, juste besoin de la fonction Len !
19/09/2016, 11h33
Pix_elle

Bonjour tous les deux. Et un grand merci pour votre réactivité !

Effectivement, le contrôle des 4 caractères sera uniquement sur les lignes françaises (parce qu'on connait le terrain et les possibles erreurs lors du formatage de cellules). Pour toutes les autres, si le nombre de caractères du code ne correspond pas aux règles du pays, on les met de côté. pou

Merci pour vos deux idées ! Elles fonctionnent hyper bien :mrgreen: