XL 2016 Remplissage TexBox via ComboBox avec INDEX & EQUIV

[Keyr0]

Bonjour à tous,

Je cherche à compléter un TextBox3 une fois un TextBox1 & ComboBox1 renseigné et qui ira donc chercher une valeur dans un Tableau suivant 2 conditions...
Je coince sur mon code qui est le suivant et qui ne renvoi pas d'erreur mais n'affiche rien...

Private Sub TextBox3_Change()

If ComboBox1.Value = "" Then
TextBox3.Value = ""
Else
TextBox3.Value = CDbl(Application.Index(H_Fin, Match(1, (TextBox1.Value = Suivi_Date) * (ComboBox1.Value = ID_Engin), 0), 1))

End If
End Sub

A votre bon cœur et courage en cette période de confinement!!

Alex

 

[herve62]

Salut
Il est toujours préférable ici et dans des cas comme ça de joindre le fichier car avec ton code on ne peut pas deviner les valeurs en amont

 

[Keyr0]

Bonjour Herve62,

Ci-joint mon fichier avec le code.

Merci par avance!!

 

[herve62]

Bonsoir
Bon vite fait , repart avec ce fichier ( sans erreur , pas comme le tien )
Ensuite met à jour tes combo du début avec liste car là c'est vide ? faut initialiser
Crée ta feuille "Suivi" avec ce qu'il faut , il y a du code avec , et en + avec un Mdp ??
rien dans ton fichier !!!!
Enfin , revient avec vraiment ce que tu veux faire !!