J'aimerais obtenir une fonction (si possible, pas de VBA) qui me permette de
remplacer la lettre tapée dans une plage nommée, par son équivalent.
Exemple
col A col B
a André
g Guy
r Richard
etc....
Peu importe la cellule de la plage nommée, si je tape un "a", le "a" se
convertit en "André".
On peut également nommer la plage de la liste (col A et col B).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Mario,
Un clic droit sur l'onglet de ta feuille et tu copies ceci dans la page blanche.
Tu peux ajouter autant de "Case" que tu désires ....
'-------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Application.EnableEvents = False For Each c In Target Select Case LCase(c) Case Is = "a" c.Offset(, 1) = "André" Case Is = "g" c.Offset(, 1) = "Guy" Case Is = "r" c.Offset(, 1) = "Richard" Case Else c.Offset(, 1) = "" c.Value = "" End Select Next Application.EnableEvents = True End If End Sub '--------------------------------------
Salutations!
"Mario Ménard" a écrit dans le message de news:x10Cc.23520$ Bonjour à tous,
J'aimerais obtenir une fonction (si possible, pas de VBA) qui me permette de remplacer la lettre tapée dans une plage nommée, par son équivalent.
Exemple col A col B a André g Guy r Richard etc.... Peu importe la cellule de la plage nommée, si je tape un "a", le "a" se convertit en "André". On peut également nommer la plage de la liste (col A et col B).
Par avance, un grand merci pour votre aide.
Mario
Bonjour Mario,
Un clic droit sur l'onglet de ta feuille et tu copies ceci dans la page blanche.
Tu peux ajouter autant de "Case" que tu désires ....
'--------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
For Each c In Target
Select Case LCase(c)
Case Is = "a"
c.Offset(, 1) = "André"
Case Is = "g"
c.Offset(, 1) = "Guy"
Case Is = "r"
c.Offset(, 1) = "Richard"
Case Else
c.Offset(, 1) = ""
c.Value = ""
End Select
Next
Application.EnableEvents = True
End If
End Sub
'--------------------------------------
Salutations!
"Mario Ménard" <mario.menard@mrn.gouv.qc.ca> a écrit dans le message de
news:x10Cc.23520$Nz.987160@news20.bellglobal.com...
Bonjour à tous,
J'aimerais obtenir une fonction (si possible, pas de VBA) qui me permette de
remplacer la lettre tapée dans une plage nommée, par son équivalent.
Exemple
col A col B
a André
g Guy
r Richard
etc....
Peu importe la cellule de la plage nommée, si je tape un "a", le "a" se
convertit en "André".
On peut également nommer la plage de la liste (col A et col B).
Un clic droit sur l'onglet de ta feuille et tu copies ceci dans la page blanche.
Tu peux ajouter autant de "Case" que tu désires ....
'-------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Application.EnableEvents = False For Each c In Target Select Case LCase(c) Case Is = "a" c.Offset(, 1) = "André" Case Is = "g" c.Offset(, 1) = "Guy" Case Is = "r" c.Offset(, 1) = "Richard" Case Else c.Offset(, 1) = "" c.Value = "" End Select Next Application.EnableEvents = True End If End Sub '--------------------------------------
Salutations!
"Mario Ménard" a écrit dans le message de news:x10Cc.23520$ Bonjour à tous,
J'aimerais obtenir une fonction (si possible, pas de VBA) qui me permette de remplacer la lettre tapée dans une plage nommée, par son équivalent.
Exemple col A col B a André g Guy r Richard etc.... Peu importe la cellule de la plage nommée, si je tape un "a", le "a" se convertit en "André". On peut également nommer la plage de la liste (col A et col B).
