récuperer une valeur dans un listbox autre que celle affichée

**Fdc_53** · 08/10/2018, 17h31

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

**unparia** · 08/10/2018, 19h35

Bonjour
Les éléments de ta listbox correspondant à des cellules non contigües, le plus simple me parait alors d'utiliser une listbox à deux colonnes et de mettre dans la seconde colonne le N° de ligne de la cellule.
Il sera alors simple de déterminer ce que tu cherches (la valeur de la cellule dont les coordonnées sont la ligne figurant en seconde colonne de la listbox et la colonne 20)
Ce procédé te permet d'extraire ainsi (si besoin) la valeur de cellules d'autres colonnes

Mais si seules t'intéressent les cellules de la colonne 20, tu peux également tout simplement abonder, pour chaque articles, la seconde colonne de ta listbox par la valeur de la cellule concernée en colonne 20. Et la lire ensuite à ta guise.

**Fdc_53** · 09/10/2018, 11h47

Merci

réussi

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
43
44
Dim f, TblBD()
Option Compare Text
 
Private Sub ListBox1_Click()
 
TextBox5 = ListBox1.List(ListBox1.ListIndex, 2) 'définir la colonne a faire apparaitre dans la txtbox
End Sub
 
 
Private Sub UserForm_Initialize()
  Set f = Sheets("SOCIETES")
  TblBD = f.Range("A2:AV" & f.[A65000].End(xlUp).Row).Value
  Me.ListBox1.List = TblBD
  Me.ListBox1.ColumnCount = 48
  Me.ListBox1.ColumnWidths = "0;0;0;100;0;0;0;0;0;0;0;70;0;0;0;0;0;120;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;70;0;0;0;0"
End Sub
 
 
Private Sub TextBoxMotCléCP_Change()
  ColRecherche = 44
  clé = "*" & Me.TextBoxMotCléCP & "*": n = 0
  Dim Tbl()
  For i = 1 To UBound(TblBD)
    If TblBD(i, ColRecherche) Like clé Then
       n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
       For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(i, k): Next k
    End If
  Next i
  If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub
 
 
Private Sub TextBoxMotCléSST_Change()
  ColRecherche = 4
  clé = "*" & Me.TextBoxMotCléSST & "*": n = 0
  Dim Tbl()
  For i = 1 To UBound(TblBD)
    If TblBD(i, ColRecherche) Like clé Then
       n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
       For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(i, k): Next k
    End If
  Next i
  If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub