Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
Ol7XgZY1FHA.2792@tk2msftngp13.phx.gbl...
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
Ol7XgZY1FHA.2792@tk2msftngp13.phx.gbl...
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236w%23hrY1FHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
Ol7XgZY1FHA.2792@tk2msftngp13.phx.gbl...
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236w%23hrY1FHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
Ol7XgZY1FHA.2792@tk2msftngp13.phx.gbl...
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces, en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" a écrit dans le message de news:OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O5FCj4Z1FHA.3720@TK2MSFTNGP14.phx.gbl...
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
unfqQ0Y1FHA.3568@TK2MSFTNGP15.phx.gbl...
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236w%23hrY1FHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
Ol7XgZY1FHA.2792@tk2msftngp13.phx.gbl...
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" a écrit dans le message de news:OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" a écrit dans le message de news:OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O5FCj4Z1FHA.3720@TK2MSFTNGP14.phx.gbl...
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
unfqQ0Y1FHA.3568@TK2MSFTNGP15.phx.gbl...
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236w%23hrY1FHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
Ol7XgZY1FHA.2792@tk2msftngp13.phx.gbl...
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" a écrit dans le message de news:OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Set Rg = Intersect(Target, Range("NomDeLaColonne"))
Salutations!
"Érico" a écrit dans le message de news:
Je voulais donner un nom à la colonne pour que si la personne insère des
colonnes, ça sera toujours la bonne colonne.
"michdenis" a écrit dans le message de news:Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" a écrit dans le message de news:OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Set Rg = Intersect(Target, Range("NomDeLaColonne"))
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eGYeoea1FHA.2792@tk2msftngp13.phx.gbl...
Je voulais donner un nom à la colonne pour que si la personne insère des
colonnes, ça sera toujours la bonne colonne.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eMs2YJa1FHA.1032@TK2MSFTNGP12.phx.gbl...
Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O5FCj4Z1FHA.3720@TK2MSFTNGP14.phx.gbl...
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
unfqQ0Y1FHA.3568@TK2MSFTNGP15.phx.gbl...
OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236w%23hrY1FHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
Ol7XgZY1FHA.2792@tk2msftngp13.phx.gbl...
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
Set Rg = Intersect(Target, Range("NomDeLaColonne"))
Salutations!
"Érico" a écrit dans le message de news:
Je voulais donner un nom à la colonne pour que si la personne insère des
colonnes, ça sera toujours la bonne colonne.
"michdenis" a écrit dans le message de news:Bonjour Érico,
Tu n'as qu'à modifier cette ligne de code pour donner à la procédure la
colonne de ton choix
Set Rg = Intersect(Target, Columns(3))
Modifie le 3 pour la colonne de ton choix
et si tu préféres, tu peux délimiter une plage donnée comme ceci :
Set Rg = Intersect(Target, Range("B5:B55"))
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de donner un nom à la plage comme "codepostal" et de
mettre
ce nom dans la macro au lieu de prendre la 3e colonne?
Merci
"Érico" a écrit dans le message de news:OKIIIIIIIIII, ça fonctionneeeee
il fallait que je clique sur la cellule après avoir faite la macro.
Merci beaucoup.
"michdenis" a écrit dans le message de news:
%236w%Bonjour Érico,
Tu colles cette procédure dans la feuille où tu saisis tes codes
postaux.
Dans l'exemple, les codes postaux sont saisies en colonne 3
C'est ce qu'il te reste à modifier !
Tu peux taper les codes postaux sans l'espace, avec plusieurs espaces,
en
minuscule si tu désires
le résultat sera toujours le bon !
'-------------------------------
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!
"Érico" a écrit dans le message de news:
Comment faire pour avoir le format des codes postaux canadien?
comme H6H 3D5
Merci
