mettre un format de code postal canadien dans une cellule

En insérant ce code au niveau de feuille concernée cela devrait marcher :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveCell.Offset(0, -1) = _
UCase(Left(ActiveCell.Offset(0, -1), 3)) _
& "-" & UCase(Right(ActiveCell.Offset(0, -1), 3))
End Sub

En changeant de cellule vers B1 la procédure événementielle SelectionChange de la feuille active est déclenchée. On place alors dans la cellule à la gauche de celle activée la valeur transformée.

J'espère que ceci est la réponse attendue.

Salutations.
Lupin

Un peu amélioré pour éviter un message d'erreur si on arrive en A1 et de mettre uniquement un '-' si la cellule quittée est vide.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Column > 1 Then
If Not IsEmpty(ActiveCell.Offset(0, -1)) Then
ActiveCell.Offset(0, -1) = _
UCase(Left(ActiveCell.Offset(0, -1), 3)) _
& "-" & UCase(Right(ActiveCell.Offset(0, -1), 3))
End If
End If
End Sub


Lupin

Re: a Lupin

Un grand merci pour ta réponse rapide cela a répondu à mon probléme

Amicalement

pour Lupin petit Probléme d'erreur

Bonjour Lupin

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Column > 1 Then
If Not IsEmpty(ActiveCell.Offset(0, -1)) Then
ActiveCell.Offset(0, -1) = _
UCase(Left(ActiveCell.Offset(0, -1), 3)) _
& "-" & UCase(Right(ActiveCell.Offset(0, -1), 3))
End If
End If
End Sub

encore merci pour le code mais en activant une ligne par ex la ligne 6 en cliquant sur le No 6 ce qui active toute la ligne ce message d'erreur apparait " erreur définie par l'application ou par l'objet " pourrai tu m'aider a résoudre ce petit probléme je suis novice en vba

merci de ta réponse et de ta patience