récuperer une valeur dans un listbox autre que celle affichée
Bonjour,
je cherche à récupérer une valeur d'une autre colonne que celle que m'affiche ma recherche dans ma listebox (liste_SST) pour la copier dans un autre text.box.
je veux garder ma valeur en colonne 4 qui s'affiche et après l'avoir sélectionne, je voudrais récupérer la valeur en colonne 20 pour la mettre dans un textbox.
Comment faire?
Par avance merci de votre aide
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Private Sub txt_SST_Change()
'déclaration des variables
Dim j As Integer
Dim NbMax As Long
Dim mission_cherche As String
'on reinitialise la listbox, efface les saisies
Me.liste_SST.Clear
'on enleve les couleurs
'Feuil1.Range("A7:KFD500").Interior.ColorIndex = 0
'on cherche la fin de la liste à parcourir
'recherche a partir de la cellule 1000 la fin du tableau
NbMax = Feuil1.Range("A500").End(xlUp).Row
'on récupère la donnée saisie dans la textBox
mission_cherche = Me.txt_SST.Value
'on teste que la textbox n'est pas vide avant de faire la recherche
If Me.txt_SST <> "" Then
'on parcourt toute la liste afin de trouver les valeurs
For j = 7 To NbMax
'on teste le contenu de la cellule en prenant en compte toutes les valeurs saisies
'grace au caractère de remplacement *
If Feuil1.Cells(j, 4) Like "*" & UCase(Me.txt_SST) & "*" Then
'colorier la ligne correspondante
'colorier la cellule
'Cells(j, 4).Interior.Color = RGB(100, 100, 100)
'on complete la listbox des valeurs trouvées
Me.liste_SST.AddItem Feuil1.Cells(j, 4)
End If
Next
End If
End Sub |