Discussion :

[vbanouveau]

Bonjour,

je suis novice en vba et j'essaie de créer un userform à partir d'un tableau excel.
Mon tableau excel a deux colonnes. Dans la première colonne, j'ai des journées (Lundi, mardi, etc...)
dans la deuxième colonne, j'ai des noms de fruits (pommes, poires,etc...).
Pour chaque jour je vais avoir plusieurs fruits donc le tableau excel aura en A2 : Lundi et en B2,B3,B4 des noms de fruits.
Mon userform a un combobox pour les jours et je voudrais qu'apparaissent tous les fruits pour chaque jour dans une listbox (en modifiant la combobox) seulement je n'arrive pas à créer un code qui fasse une boucle sur tous les fruits jusqu'au jour suivant.
Si quelqu'un a une idée çà m'aiderait beaucoup.

Merci

[keygen08]

Bonjour
Avec ceci

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
Private Sub UserForm_Initialize()
Dim cell As Range
Cboxjour.Clear
For Each cell In Sheets("feuil1").Range("a1:a" & Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row)
If cell.Value <> "" Then Cboxjour.AddItem cell
Next cell
End Sub
 
Private Sub Cboxjour_Change()
Dim cell As Range
Dim jour As Range
lboxfruit.Clear
    Set jour = Sheets("feuil1").Columns("A").Find(Cboxjour)
    If Not jour Is Nothing Then
        For Each cell In Sheets("feuil1").Range("b" & jour.Row & ":b" & Sheets("feuil1").Range("b" & Rows.Count).End(xlUp).Row)
            If cell.Offset(0, -1) = Cboxjour Or cell.Offset(0, -1) = "" Then
            lboxfruit.AddItem cell
            Else
            Exit Sub
            End If
        Next cell
    End If
End Sub

coller le tout dans le userform et nommer votre combobox Cboxjour et votre listbox Lboxfruit