RechercheV VBA

Bonjour à tous,

Un problème tout simple que je n'arrive pas à régler.

L'explication liée à mon problème est sur le fichier joint. Je vous remercie pour votre aide

Amicalement,

Nherambo

28myfile.xlsm (31.26 Ko)

Bonjour

Je suis novice en vba mais voici une première piste

(en attendant que les experts ne passent par là)

il y a un bug mais ça peut peut-être vous élancer...

Private Sub ID_Change()
Dim Mk1 As Variant
Dim cellule As Range
Mk1 = ID.Value
With Sheets(2).Range("a:a")
Set cellule = .Find(Mk1)
combinaison = cellule.Offset(0, 3)
End With
End Sub

Bonjour

A tester

Parfait,

Merci beaucoup à vous deux !

A+

Bonjour,

tu as une ambiguïté, 5I peut correspondre à 2 combinaisons.

Une proposition ou le choix se fait en cliquant dans la listbox.

Lors de sa construction j'ai ajouté une colonne masquée qui contient le n° de ligne de Sheet2

Tu pourrais y ajouter un filtre supplémentaire lors du choix de Correspondance.

eric

26classeur3.xlsm (32.98 Ko)
Rechercher des sujets similaires à "recherchev vba"