Affichage auto à partir d'un menu déroulant

Bonjour,

Je sais faire "=SI(A1=1;"xxxxxx","") etc....et connais la fonction RECH.... avec lesquels je pourrais résoudre le sujet.

mais la présence de ces formules risque d'être effacés surtout si le tableur passe par des tiers.

De plus, l'ajout ou la modification du code/libellé n'est pas des plus faciles dans ce cas !

La question est donc, est-il possible d'avoir un code permettant d'obtenir la même chose ????

Le tableur joint explicite mieux la demande.

Cordialement

Tonthon

Bonjour,

Essaye ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [H6:H39]) Is Nothing Then
        Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Range("H43:I61"), 2, 0)
        Target.Offset(0, 2).Activate
    End If
End Sub

RE

C'est super : exactement ce que je recherchais !

car je n'y serai jamais arrivé et un code c'est plus pratique.

J'aurai appris quelque chose de plus aujourd'hui.

Cordialement

Tonthon

Message supprimé

Bonjour,

Message supprimé

Excellente journée à tous

Tonthon