Je m'excuse d'avance, je ne peux pas joindre le fichier en question...
Lors d'un précédent post, on m'a orienté vers l'utilisation d'une ComboBox.
Les faits sont les suivants :
J'ai un tableau avec des lignes identifiées par un numéro unique qui se trouve en colonne B
Dans un UserForm, j'ai deux ComboBox qui reprennent les valeurs des numéros en colonne B, afin de pouvoir sélectionner la ligne qui correspond à chacune des valeurs choisies
Cela marche parfaitement dans ces conditions
Le code pour chercher les valeurs dans la colonne B :
Code:
Private Sub UserForm_Initialize()
For n = 7 To Range("B" & Rows.Count).End(xlUp).Row
Liste = Liste & Range("B" & n) & ";"
Next
Me.ComboBox1.List = Split(Left(Liste, Len(Liste) - 1), ";")
Me.ComboBox2.List = Split(Left(Liste, Len(Liste) - 1), ";")
Le code pour identifier la ligne qui va bien :
Code:
Set c = Range("B:B").Find(Me.ComboBox2, LookIn:=xlValues, lookat:=xlWhole)
e = c.Row
Set f = Range("B:B").Find(Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
g = f.Row
Et donc je récupère les variables e et g qui correspondent aux numéro de lignes qui me servent pour après.
J'aimerais maintenant ajouter dans l'affichage de la ComboBox les valeurs d'autres cellules, en plus, pour une meilleure compréhension.
Du coup ça j'y arrive, en remplaçant Liste dans le premier code :
Ca marche, dans la ComboBox il y a bien les valeurs que je souhaite voir apparaître..
Mais après ca ne marche plus.. parce que dans le deuxième code, Set c =et Set f = vont chercher une valeur qui n'est plus le numéro de ligne unique identifié en B...
Comment adapter le code pour n'aller chercher que le numéro en colonne B, tout en gardant les infos des colonnes B, D et E dans la ComboBox ?
J'ai bien regardé la formule que tu avais proposé, en fait c'était bien ça l'idée, simplement qu'il fallait split après " / " et non pas "/" ...
un espace qui chamboule tout !!
Merci beaucoup du coup !