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 : Sélectionner tout - Visualiser dans une fenêtre à part
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