J'ai écris ce message hier, mais sans obtenir de réponse. Alors, je me
permets de le publier de nouveau.... Merci
Voici un bout de code me permettant de vérifier la validité d'un code postal
canadien à partir d'une cellule sur une feuille Excel. J'aimerais que la
vérification puisse se faire à la sortie du Textbox4..... Sauf que je sais
pas comment faire....
Sauriez-vous comment ??
Dim Rg As Range
Set Rg = Range("B21")
Application.EnableEvents = False
If Not Rg Is Nothing Then
For Each c In Rg
If c <> "" Then
c.Value = UCase(Application.Trim(c))
If c.Value Like "[A-Z][0-9][A-Z] [0-9][A-Z][0-9]" Or _
c.Value Like "[A-Z][0-9][A-Z][0-9][A-Z][0-9]" Then
c.Value = Left(c, 3) & " " & Right(c, 3)
Else
MsgBox "Invalid Postal Code"
Exit Sub
End If
End If
Next
End If
