Ecriture INDEX-EQUIV en VBA

Bonjour à tous,

Je cherche à afficher une valeur dans un combobox par rapport à la valeur d'un autre combobox : là, ce n'est pas un problème en soi.

Par contre, là où je coince, c'est pour transposer un INDEX-EQUIV en VBA avec des plages nommées :

J'ai codé comme ceci :

Private Sub Libellé_Change ()
If Me.ComboBox1 = "" Then
Me.ComboBox2 = ""
Else
Me.ComboBox2 = INDEX(PlageNommée1;EQUIV(ComboBox1;PlageNommée2;0))
End If
End Sub

Je coince pour écrire la ligne surlignée.

J'ai essayé avec Evaluate et même avec Application.INDEX... mais sans résultats.

Merci d'avance et bon après-midi.

PS : les 2 plages nommées se trouvent dans une feuille de calcul.

Bonjour,

Private Sub ComboBox1_Change()
    If Me.ComboBox1.Value = "" Then
       Me.ComboBox2.Value = ""
    Else
        Me.ComboBox2.Value = Application.Index(Range("PlageNommée1"), Application.Match(ComboBox1, Range("PlageNommée2"), 0))
    End If
End Sub

A+

Bonjour Frangy,

Merci pour ta réponse : je vais tester.

Bonne fin d'après-midi.

Re,

C'est impeccable : merci encore.

@+.