Vérification du Code Postal Canadien en VBA: Guide Complet

Lorsque l'on traite des données relatives au Canada en Excel ou en Access, il est essentiel de s'assurer de la validité des codes postaux. Ces codes, spécifiques au Canada, ont une structure unique qui peut être vérifiée avec VBA. Je vous propose donc une fonction toute faite pour vérifier la validité d'un code postal canadien en VBA.

Structure d'un Code Postal Canadien – Un Peu de Théorie

Un code postal canadien est composé d'une alternance de lettres et de chiffres dans le format ANA NAN (par exemple, K1A 0B1). La première lettre donne un aperçu du district électoral fédéral, ce qui peut aider à déterminer la province ou le territoire. Voici une liste des lettres valides pour les districts électoraux fédéraux au Canada:

A – Terre-Neuve-et-Labrador
B – Nouvelle-Écosse
C – Île-du-Prince-Édouard
E – Nouveau-Brunswick
G, H, J – Québec
K, L, M, N, P – Ontario
R – Manitoba
S – Saskatchewan
T – Alberta
V – Colombie-Britannique
X – Nunavut et Territoires du Nord-Ouest
Y – Yukon

Exemples d'Entrées et Résultats de la Fonction

Pour vous donner une idée de ce que fait exactement la fonction VBA que je vous propose, voici quelques exemples des "codes postaux canadiens" à vérifier, ainsi que la réponse de la fonction à ces différents cas.

Entrée	Résultat de la Fonction	Commentaire
K1A 0B1	VRAI	Code postal valide
K1A0B1	VRAI	Code postal valide sans espaces
K1Z B12	FAUX	Format incorrect
K1A0	FAUX	Code postal trop court
K1A0B1C	FAUX	Code postal trop long
K1A OB1	FAUX	Lettre mal placée
Z1A 0B1	FAUX	Première lettre invalide

Comme vous pouvez le constater, les vérifications suivantes sont effectuées pour garantir la validité des codes postaux canadiens en Excel, en Access ou même en Outlook:

suppression des espaces
vérification que le code postal a 6 places
vérification du format "ANANAN" (A = lettre, N = nombre)
vérification que la première lettre correspond bien à la liste des districts canadiens

Fonction VBA pour Vérifier le Code Postal Canadien

La fonction suivante peut être utilisée directement dans les Feuilles Excel en tant que UDF (User Defined Function) ou dans vos projets VBA (Excel, MS Access ou MS Outlook). Elle prend en argument le code postal canadien à vérifier sous forme de variable de type String et retourne VRAI (True) ou FAUX (False) selon sa validité (variable de type Booléen).

Function VerifierCodePostalCanadien(code As String) As Boolean
    'par Excel-Malin.com ( https://excel-malin.com/ )
    Dim lettresValides As String
    
    ' Lettres valides pour les districts électoraux fédéraux
    lettresValides = "ABCEGHJKLMNPRSTVXY"
    
    ' Vérifie la longueur du code postal
    If Len(code) <> 6 And Len(code) <> 7 Then Exit Function
    
    ' Supprime les espaces
    code = Replace(code, " ", "")
    
    ' Vérifie si la première lettre est valide
    If InStr(lettresValides, Left(code, 1)) = 0 Then Exit Function
    
    ' Vérifie le format ANANAN
    If Not (IsNumeric(Mid(code, 2, 1)) And _
            IsNumeric(Mid(code, 4, 1)) And _
            IsNumeric(Mid(code, 6, 1))) Then Exit Function
            
    ' Vérifie si les positions 1, 3 et 5 sont des lettres
    If Not (Mid(code, 1, 1) Like "[A-Za-z]" And _
            Mid(code, 3, 1) Like "[A-Za-z]" And _
            Mid(code, 5, 1) Like "[A-Za-z]") Then Exit Function
            
    ' Si toutes les vérifications sont passées
    VerifierCodePostalCanadien = True
End Function

Function VerifierCodePostalCanadien(code As String) As Boolean

'par Excel-Malin.com ( https://excel-malin.com/ )

Dim lettresValides As String

' Lettres valides pour les districts électoraux fédéraux

lettresValides = "ABCEGHJKLMNPRSTVXY"

' Vérifie la longueur du code postal

If Len(code) <> 6 And Len(code) <> 7 Then Exit Function

' Supprime les espaces

code = Replace(code, " ", "")

' Vérifie si la première lettre est valide

If InStr(lettresValides, Left(code, 1)) = 0 Then Exit Function

' Vérifie le format ANANAN

If Not (IsNumeric(Mid(code, 2, 1)) And _

IsNumeric(Mid(code, 4, 1)) And _

IsNumeric(Mid(code, 6, 1))) Then Exit Function

' Vérifie si les positions 1, 3 et 5 sont des lettres

If Not (Mid(code, 1, 1) Like "[A-Za-z]" And _

Mid(code, 3, 1) Like "[A-Za-z]" And _

Mid(code, 5, 1) Like "[A-Za-z]") Then Exit Function

' Si toutes les vérifications sont passées

VerifierCodePostalCanadien = True

End Function

Exemple d'Utilisation de la Fonction de Vérification

Voici comment utiliser cette fonction dans votre projet VBA. Supposons que le code postal canadien que vous souhaitez vérifier soit dans la cellule "B2". La procédure suivante teste sa validité à l'aide de la fonction VerifierCodePostalCanadien() et affiche un message indiquant si le code est valide ou non.

Sub VerifierCode()
    Dim code As String
    code = Range("B2").Value
    
    If VerifierCodePostalCanadien(code) Then
        MsgBox "Le code postal est valide."
    Else
        MsgBox "Le code postal est invalide."
    End If
End Sub

Sub VerifierCode()

Dim code As String

code = Range("B2").Value

If VerifierCodePostalCanadien(code) Then

MsgBox "Le code postal est valide."

Else

MsgBox "Le code postal est invalide."

End If

End Sub

Pour aller plus loin en VBA…

Et comme toujours, pour finir, une liste d'autres articles sur VBA qui pourraient vous être utiles:

Toutes les fonctions en VBA – liste exhaustive des fonctions disponibles en VBA
Vérifier en VBA: la validité du numéro de carte de crédit ou la validité de l'adresse email
Différents codes sources VBA pratiques et prêts à l'emploi
Calcul des Jours fériés au Canada en VBA
RECHERCHEV en VBA – oui, c'est possible!

Vérification du Code Postal Canadien en VBA: Guide Complet

Structure d'un Code Postal Canadien – Un Peu de Théorie

Exemples d'Entrées et Résultats de la Fonction

Fonction VBA pour Vérifier le Code Postal Canadien

Exemple d'Utilisation de la Fonction de Vérification

Pour aller plus loin en VBA…

Auteur

Martin Hudec ( Excel-Malin.com )

Laissez un commentaire Annuler la réponse