Format de cellule personnalisé

Bonjour Hélène,

Dans la feuille module où l'action se déroule, copie ce bout de procédure.

À chaque fois que tu entreras un code postal canadien dans la colonne 3,
la mise en forme sera automatique...

Si tu veux appliquer le format à une autre colonne, modifie cette ligne de code
Set Rg = Intersect(Target, Columns(3))

'-------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, Columns(3))
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)
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
Else
MsgBox "la saisie du code postal est inexacte"
c.Interior.ColorIndex = 3
c.Font.ColorIndex = 2
End If
Else
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
End If
Next
End If
Application.EnableEvents = True
End Sub
'-------------------------------------------


Salutations!



"Hélène" <Hlne@discussions.microsoft.com> a écrit dans le message de news: A741C8A9-4D95-459F-829D-28ACC1548F5E@microsoft.com...
Bonjour,
Comment puis-je personnaliser le format de cellule suivant : J1L 1M6 (code
postal français canada)? Y a-t-il un caractère pour désigner une lettre?
Merci d'avance!