Citronflexe
XLDnaute Junior
Bonjour à tous,
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 :
Le code pour identifier la ligne qui va bien :
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 ?
Désolé pour le pavé, et merci d'avance,
Cordialement,
Bruno
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
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 :
Code:
Liste = Liste & Range("B" & n) & " / " & Range("D" & n) & " (" & Range("E" & n) & ")" & ";"
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 ?
Désolé pour le pavé, et merci d'avance,
Cordialement,
Bruno