Macro liée à des conditions

[Babe]

Bonjour le forum,

J'ai un petit soucis, j'ai essayé en utilisant la formule " si " mais j'ai trop de caractères dans ma formule. Je me retourne donc vers une macro et donc vers vous tous pour m'aider.

J'ai dix codes différents qui s'associent à dix désignations différentes. J'aimerais que ça se fasse automatiquement.

Ce que je veux s'est trouver une macro de condition.

Merci

Babe.

 

[Abel]

Bonjour Babe, le forum,

Est-ce quelque chose dans ce goût qu'il te faut ?

Abel

 

[Abel]

Re,

Oups ! Je viens de voir que tu le voulais sous forme de macro.

Ben pour une fois que j'essayais une formule.

Je regarderai plus tard pour la version macro, si personne ne l'a fait d'ici là.
Ce qui serait étonnant.

A+

Abel.

 

[galopin01]

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+

 

[Babe]

Bonjour le forum,

merci pour votre aide cela correspondait à mes attentes que se soit la formule ou la macro.

Bonne journée à toutes et à tous.

Babe