Discussion :

[KINOU94]

Bonjour !

Après avoir cherché sur le forum une réponse à mon nouveau problème, il me semble qu'il n'existe pas de réponse à mon problème.

Dans mon userform, j'ai une textbox qui, après saisi, alimente une listbox. Puis j'ai une troisième textbox avec laquelle je n'arrive pas à mes fins.
En effet, je souhaite faire apparaitre dans cette textbox la valeur correspondant à ma ligne sélectionnée dans ma listbox. Cette valeur se trouve sur la même ligne, mais à la colonne d'avant.

Du coup, j'ai essayé plusieurs façons de coder pour dire que dans ma textbox, il doit apparaitre la cellule (0,-1) du selectitem de ma listbox mais ca marche pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Private Sub TextBox23_Change()
 Texbox23.Value = ListBox2.SelectedItem.cell(0, -1).Value
 End Sub

Quelqu'un aurait une idée ?

[parmi]

Bonjour,

Ça dépend comment est générée la liste de la listbox.
Certains vont lister les éléments d'une colonne, ligne par ligne, et on peut alors retrouver l'item en utilisant l'index de l'item choisi de la listbox versus la ligne de la feuille.

Dans d'autres cas, la liste peut être chargée différemment (triée, sans doublon,...) et il faut faire une recherche (Ctrl-F ou Find en VBA) sur la feuille pour trouver la ligne de l'item.
Une fois la ligne trouvée, il est simple d'aller chercher d'autres items sur celle-ci.

Disons que ton item est en colonne C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ListBox1_Click()
    Dim Rng As Range
    Set Rng = Columns("C").Find(ListBox1.List(ListBox1.ListIndex), LookIn:=xlValues, LookAt:=xlWhole)
    If Not Rng Is Nothing Then
       MsgBox "L'item a été trouvé sur la ligne " & Rng.Row
       Textbox1 = Range("B" & Rng.Row)
    End If
End Sub

[KINOU94]

Bonjour parmi !

Merci pour votre réponse, elle marche ! J'ai cependant omis de vous exposer un détail. Ma listbox est alimentée en fonction de 3 tableaux, 2 se situant sur une feuil1 et l'autre sur une feuil2. Coder en écrivant Colonne "c" pour faire correspondre ma textbox à la colonne "b" fonctionne mais que pour un seul de mes trois tableaux.

Mon tableau1 fonctionne, il se trouve sur la feuil1, les données sont colonnes B (listbox) et celles qui apparaissent sont colonnes A (textbox).
Mon tableau2 ne fonctionne pas, il se trouve sur la feuil1, mais les données sont colonnes G et celles qui doivent apparaitre sont colonnes F.
Mon tableau3 ne fonctionne pas, il se trouve sur la feuil2, mais les données sont colonnes B et celles qui doivent apparaitre sont colonnes A.

N'est il pas possible d'écrire un code avec l'idée suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub ListBox2_Click()
 Dim Rng As Range
    Set Rng = Columns.Find(ListBox2.List(ListBox2.ListIndex), LookIn:=xlValues, LookAt:=xlWhole)
    If Not Rng Is Nothing Then
 
       TextBox23 = Range("Columns-1" & Rng.Row)
    End If
End Sub

Bien cordialement,

[parmi]

Je n'aime pas les Select/Selection, mais bon...
Ça pourrait se faire ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListBox2_Click()
    Dim Rng As Range
 
    Sheets(Array("Feuil1", "Feuil2")).Select
    Cells.Select
    Set Rng = Selection.Find(ListBox2.List(ListBox2.ListIndex), LookIn:=xlValues, LookAt:=xlWhole)
    If Not Rng Is Nothing Then
       MsgBox "L'item a été trouvé sur la ligne " & Rng.Row & " de la feuille " & Rng.Parent.Name
       TextBox1 = Sheets(Rng.Parent.Name).Cells(Rng.Row, Rng.Column - 1)
    End If
End Sub

[KINOU94]

Bonjour !

Je ne sais pas pourquoi le principe de votre code ne vous plait pas trop mais en tout cas, il marche parfaitement !

Je vous remercie pour votre aide !

Cordialement,