Salut.
Comment faire pour automatiser ceci:
dans les cellules c200:c205, se trouvent les données X Y ou Z
dans les cellules d200:d205, se trouvent les données ABC DEF ou GHI
si je rentre les valeurs X Y ou Z dans d'autres cellules, p.e. C5:C100,
elles se "transforment" automatiquement en ABC DEF ou GHI
J'ai déjà essayé plusieurs formules mais toutes foirent (j'sus pas
doué...)
Merci d'avance à vous
--
Une collection complète sur Johnny Hallyday qui s'en va...
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
AV
dans les cellules c200:c205, se trouvent les données X Y ou Z dans les cellules d200:d205, se trouvent les données ABC DEF ou GHI
Dans le module de la feuille (clic droit sur le nom de l'onglet > Visualiser le code) :
Private Sub Worksheet_Change(ByVal zz As Range) On Error Resume Next If Intersect(zz, [C5:C100]) Is Nothing Then Exit Sub Application.EnableEvents = False zz = Switch(zz = "X", "ABC", zz = "Y", "DEF", zz = "Z", "GHI") Application.EnableEvents = True End Sub
AV
dans les cellules c200:c205, se trouvent les données X Y ou Z
dans les cellules d200:d205, se trouvent les données ABC DEF ou GHI
Dans le module de la feuille (clic droit sur le nom de l'onglet > Visualiser le
code) :
Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
If Intersect(zz, [C5:C100]) Is Nothing Then Exit Sub
Application.EnableEvents = False
zz = Switch(zz = "X", "ABC", zz = "Y", "DEF", zz = "Z", "GHI")
Application.EnableEvents = True
End Sub
dans les cellules c200:c205, se trouvent les données X Y ou Z dans les cellules d200:d205, se trouvent les données ABC DEF ou GHI
Dans le module de la feuille (clic droit sur le nom de l'onglet > Visualiser le code) :
Private Sub Worksheet_Change(ByVal zz As Range) On Error Resume Next If Intersect(zz, [C5:C100]) Is Nothing Then Exit Sub Application.EnableEvents = False zz = Switch(zz = "X", "ABC", zz = "Y", "DEF", zz = "Z", "GHI") Application.EnableEvents = True End Sub
