Discussion :

[Meosus]

Bonjour à tous,

Après moult recherche sur le web et dans ma tête, là je sèche...

J'ai un tableau "Tab_Liste", je souhaite dans mon Userform "USF_Sortie" suivant un code saisie, afficher dans la listbox1 les valeurs de la colonne 2,3 et 5 du tableau suivant la recherche du "Code" dans la première colonne du tableau.

Ensuite afficher un "D" dans la colonne 4 du tableau suivant les lignes de la listbox1.

un fichier exemple joint pour être plus claire.

Merci d'avance

[BENNASR]

code sz votre premier bouton de commande (code à améliorer par les expert de ce super site :

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
 
Private Sub CommandButton1_Click()
Dim plage As Range
Set plage = Sheets("Feuil1").Range("D6:D" & [D65536].End(xlUp).Row)
codrecherché = CDbl(TextBox1.Value)
 i = 0
For Each Cell In plage
 If Cell.Value = codrecherché Then
 MsgBox codrecherché
    USF_SORTIE.ListBox1.ColumnCount = 3
    USF_SORTIE.ListBox1.ColumnWidths = "40;40;100"
    USF_SORTIE.ListBox1.AddItem
    USF_SORTIE.ListBox1.Column(0, i) = Cell(1, 2)
    USF_SORTIE.ListBox1.Column(1, i) = Cell(1, 3)
    USF_SORTIE.ListBox1.Column(2, i) = Cell(1, 5)
 
    i = i + 1
 End If
    Next Cell
End Sub

nsuite afficher un "D" dans la colonne 4 du tableau suivant les lignes de la listbox1.

pas claire pour moi
Bonne continuation

[Meosus]

Merci BENNASR,

Cela fonctionne a une chose prêt, mais je me suis peux être mal exprimer. Je voulais que plusieurs code incrément la liste sur le coté, la il le remplace... Mais je vais chercher un peu pour le faire moi même!

Je reviendrai si je trouve pas!

Et pour le "D" c'était d'afficher un "D" dans la collone 4 du tableau "TAB_LISTE" sur chaque ligne correspondante qu'il y aurais dans la listbox

Merci encore