Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonsour®
casiopé wrote:
Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Merci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Merci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !
Bonsour®
casiopé wrote:
Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Merci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir des code postal,
pour atteindre cette page code fait un click droit sur l'onglet de cette feuille et sélectionne "Visualiser le code"
ou bien dans visuel basic fait un double click sur le nom de cette feuille
sous l'arborescence du VBAProject(Nom de ton classeur)
isabelleMerci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir des code postal,
pour atteindre cette page code fait un click droit sur l'onglet de cette feuille et sélectionne "Visualiser le code"
ou bien dans visuel basic fait un double click sur le nom de cette feuille
sous l'arborescence du VBAProject(Nom de ton classeur)
isabelle
Merci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !
Bonsour®
casiopé wrote:
Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir des code postal,
pour atteindre cette page code fait un click droit sur l'onglet de cette feuille et sélectionne "Visualiser le code"
ou bien dans visuel basic fait un double click sur le nom de cette feuille
sous l'arborescence du VBAProject(Nom de ton classeur)
isabelleMerci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonne
en question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
les
numéros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,
pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"
ou bien dans visuel basic fait un double click sur le nom de cette
feuille
sous l'arborescence du VBAProject(Nom de ton classeur)
isabelleMerci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonne
en question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
les
numéros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !
bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,
pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"
ou bien dans visuel basic fait un double click sur le nom de cette
feuille
sous l'arborescence du VBAProject(Nom de ton classeur)
isabelle
Merci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !
Bonsour®
casiopé wrote:
Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonne
en question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
les
numéros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,
pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"
ou bien dans visuel basic fait un double click sur le nom de cette
feuille
sous l'arborescence du VBAProject(Nom de ton classeur)
isabelleMerci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Casiopé,
J'ai testé la macro sous Excel 2000 et ça marche chez moi.
J'ai tapé h1a4g5 et ça m'a corrigé automatiquement en H1A 4G5.
Par contre, quand je tape quelque chose de mauvais, j'ai un message "la
saisie du code postal est inexacte" et la cellule se met en fond rouge,
police blanche.
Ceci est normal car prévu par la macro.
Obtenez vous au moins ce message ?
Et ça ne fonctione qu'en "création" de code postal, pas sur ceux déjà
inscrits
Petite précision: le format code postal du Canada est-il TOUJOURS "Lettre
Chiffre Lettre Espace Chiffre Lettre Chiffre" ?
RedZorsh@
"casiopé" a écrit dans le message news:Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonneen question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
lesnuméros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"ou bien dans visuel basic fait un double click sur le nom de cette
feuillesous l'arborescence du VBAProject(Nom de ton classeur)
isabelleMerci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sanssuccès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Casiopé,
J'ai testé la macro sous Excel 2000 et ça marche chez moi.
J'ai tapé h1a4g5 et ça m'a corrigé automatiquement en H1A 4G5.
Par contre, quand je tape quelque chose de mauvais, j'ai un message "la
saisie du code postal est inexacte" et la cellule se met en fond rouge,
police blanche.
Ceci est normal car prévu par la macro.
Obtenez vous au moins ce message ?
Et ça ne fonctione qu'en "création" de code postal, pas sur ceux déjà
inscrits
Petite précision: le format code postal du Canada est-il TOUJOURS "Lettre
Chiffre Lettre Espace Chiffre Lettre Chiffre" ?
RedZorsh@
"casiopé" <casiop@discussions.microsoft.com> a écrit dans le message news:
46D4CEAD-0B9A-4EF6-89F8-2B7FED52FED1@microsoft.com...
Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonne
en question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
les
numéros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !
bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,
pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"
ou bien dans visuel basic fait un double click sur le nom de cette
feuille
sous l'arborescence du VBAProject(Nom de ton classeur)
isabelle
Merci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !
Bonsour®
casiopé wrote:
Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Casiopé,
J'ai testé la macro sous Excel 2000 et ça marche chez moi.
J'ai tapé h1a4g5 et ça m'a corrigé automatiquement en H1A 4G5.
Par contre, quand je tape quelque chose de mauvais, j'ai un message "la
saisie du code postal est inexacte" et la cellule se met en fond rouge,
police blanche.
Ceci est normal car prévu par la macro.
Obtenez vous au moins ce message ?
Et ça ne fonctione qu'en "création" de code postal, pas sur ceux déjà
inscrits
Petite précision: le format code postal du Canada est-il TOUJOURS "Lettre
Chiffre Lettre Espace Chiffre Lettre Chiffre" ?
RedZorsh@
"casiopé" a écrit dans le message news:Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonneen question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
lesnuméros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"ou bien dans visuel basic fait un double click sur le nom de cette
feuillesous l'arborescence du VBAProject(Nom de ton classeur)
isabelleMerci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sanssuccès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Casiopé,
J'ai testé la macro sous Excel 2000 et ça marche chez moi.
J'ai tapé h1a4g5 et ça m'a corrigé automatiquement en H1A 4G5.
Par contre, quand je tape quelque chose de mauvais, j'ai un message "la
saisie du code postal est inexacte" et la cellule se met en fond rouge,
police blanche.
Ceci est normal car prévu par la macro.
Obtenez vous au moins ce message ?
Et ça ne fonctione qu'en "création" de code postal, pas sur ceux déjà
inscrits
Petite précision: le format code postal du Canada est-il TOUJOURS "Lettre
Chiffre Lettre Espace Chiffre Lettre Chiffre" ?
RedZorsh@
"casiopé" a écrit dans le message news:Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonneen question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
lesnuméros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"ou bien dans visuel basic fait un double click sur le nom de cette
feuillesous l'arborescence du VBAProject(Nom de ton classeur)
isabelleMerci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sanssuccès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Casiopé,
J'ai testé la macro sous Excel 2000 et ça marche chez moi.
J'ai tapé h1a4g5 et ça m'a corrigé automatiquement en H1A 4G5.
Par contre, quand je tape quelque chose de mauvais, j'ai un message "la
saisie du code postal est inexacte" et la cellule se met en fond rouge,
police blanche.
Ceci est normal car prévu par la macro.
Obtenez vous au moins ce message ?
Et ça ne fonctione qu'en "création" de code postal, pas sur ceux déjà
inscrits
Petite précision: le format code postal du Canada est-il TOUJOURS "Lettre
Chiffre Lettre Espace Chiffre Lettre Chiffre" ?
RedZorsh@
"casiopé" <casiop@discussions.microsoft.com> a écrit dans le message news:
46D4CEAD-0B9A-4EF6-89F8-2B7FED52FED1@microsoft.com...
Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonne
en question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
les
numéros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !
bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,
pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"
ou bien dans visuel basic fait un double click sur le nom de cette
feuille
sous l'arborescence du VBAProject(Nom de ton classeur)
isabelle
Merci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sans
succès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !
Bonsour®
casiopé wrote:
Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
Bonjour Casiopé,
J'ai testé la macro sous Excel 2000 et ça marche chez moi.
J'ai tapé h1a4g5 et ça m'a corrigé automatiquement en H1A 4G5.
Par contre, quand je tape quelque chose de mauvais, j'ai un message "la
saisie du code postal est inexacte" et la cellule se met en fond rouge,
police blanche.
Ceci est normal car prévu par la macro.
Obtenez vous au moins ce message ?
Et ça ne fonctione qu'en "création" de code postal, pas sur ceux déjà
inscrits
Petite précision: le format code postal du Canada est-il TOUJOURS "Lettre
Chiffre Lettre Espace Chiffre Lettre Chiffre" ?
RedZorsh@
"casiopé" a écrit dans le message news:Bonjour Isabelle !
Merci pour ton intervention !
J'ai effectué les étapes que tu m'as suggérées.
Quand je vais dans la colonne 12 pour entrer un code postal (H1A 4G5),
ça ne semble pas fonctionner. Si je tape h1a4g5, il devrait apparaître
comme ci-haut et ça ne fonctionne pas non plus !
ll me semble que ça serait si simple de formater les cellules de la
colonneen question avec le menu FORMAT/CELLULE/ comme on le fait pour les dates,
lesnuméros de téléphone etc.... Est-ce que c'est possible de créer un format
personnalisé ?
Bonne fin de journée !
--
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !bonjour casiopé,
il faut copier la macro sur la page code de la feuille qui doit recevoir
des code postal,pour atteindre cette page code fait un click droit sur l'onglet de cette
feuille et sélectionne "Visualiser le code"ou bien dans visuel basic fait un double click sur le nom de cette
feuillesous l'arborescence du VBAProject(Nom de ton classeur)
isabelleMerci d'avoir eu la gentillesse de répondre.
Je ne suis pas certaine de connaître les bonnes étapes à effectuer.
J'ai quand même pris la chance d'essayer de la façon qui suit et
malheureusement, ça ne fonctionne pas:
- Je suis allée dans FICHIER/MACRO/VISUAL BASIC EDITOR
- J'ai inséré un nouveau module à l'écran
- J'ai copié le code dans la feuille module
- J'ai changé la "colonne-3" pour la "colonne-12"
- Jai enregistré le module
- J'ai quitté Visual Basic Editor
Je suis certaine de ne pas effectuer les bonnes actions.
J'ai quand même continuer à chercher dans la fonction Aide d'Excel
sanssuccès.
Êtes-vous en mesure de pouvoir m'aider davantage ?
---
Merci de votre aide !
Résidant à Montréal (Canada)
Un beau bonjour de chez-nous à chez-vous !Bonsour®
casiopé wrote:Quelles sont les étapes à suivre pour pouvoir formater les cellules
d'une colonne en format "code postal" canadien (exemple: H1A 4G5).
il te faut passer par une macro VBA
ce qu'a proposé Denis Michon sur ce forum le 26 fevrier 2004
Tu copies ce code dans la feuille module où se déroule l'action
L'exemple s'applique à toutes les cellules de la colonne 3.
Si tu veux limiter cette action à une plage plus restreinte, remplace
Columns(3) de cette ligne de code :
Set Rg = Intersect(Target, Columns(3))
Par l'étendue de la plage de cellules de ton choix comme :
Set Rg = Intersect(Target, Range("D2:D5000"))
'----------------------------------
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
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
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------------
@+
