Bonjour,
Clic droit sur l'onglet de la feuille en question
Visualiser le code
Coller :
Private Sub Worksheet_Change(ByVal Target As Range)
z = Target.Address
Set isect = Application.Intersect(Range(z), Range("A1:A100"))
If Not isect Is Nothing Then
Select Case Target.Value
Case "ABC": r = "Moteur..."
Case "BCD": r = "volant"
Case "CDE": r = "pédalier"
Case "XXX": r = "..."
End Select
Target.Offset(0, 1).Value = r
End If
End Sub
Nota :la macro s'applique sur ("A1:A100") à toi de modifier...
On peut rajouter autant de lignes Case que l'on veut.
... mais cette macro vaut pour une dizaine d'arguments fixes
Si plus d'arguments et variable dans le temps il vaut envisager autre chose...
Tu me dis.
A+