Discussion :

[vieuxmonsieur]

Bonjour,
Dans un Usf, j'ai 2 ListBox (1 & 2)

Dans :

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 UserForm_Initialize()
'Remplir la ListBox1
'spécifie que la première cellule précédent
'la plage source est utilisée comme titre dans la ListBox.
ColumnHeads = True
Dim i As Integer, Valeur As Variant, Unique As Collection
'Application.ScreenUpdating = False
Sheets("mp3").Activate
'Calcul le nombre de lignes non vide en colonne A
i = Range("A65536").End(xlUp).Row
'Pour eviter les messages d'erreur
On Error Resume Next
 
On Error GoTo 0
 
'Me.ComboBox1.SetFocus
Me.ComboBox1.List = Range("mp3!A1:B5000").Value
Sheets("Sel").Activate
'Application.ScreenUpdating = True
End Sub

Dans la partie code de l'Usf :

Code :

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

1
2
3
4
Private Sub ListBox1_Change()
Sheets("Sel").Activate
Range("B9").Value = Me.ListBox1.Value
End Sub

Code :

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

1
2
3
4
Private Sub ListBox2_Change()
Sheets("Sel").Activate
Range("B10").Value = Me.ListBox2.Value
End Sub

Comment alimenter la Listbox2 à partir de Sheets("Fb").Activate

Codes m'ont été gentiment donné par RJamin que je remercie de nouveau.

[Daniel.C]

Bonjour,

Comment alimenter la Listbox2 à partir de Sheets("Fb").Activate

Ça a l'air d'être ton seul problème ? A partir de quoi ListBox1 est-elle alimentée ?

Code :

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

Sheets("Fb").Activate

signifie que tu sélectionnes cette feuille. Ça ne dit pas la plage à insérer dans la listbox.

[vieuxmonsieur]

Bonjour Daniel,
Je te remercie de t'intéresser à ma demande et de l'aide que tu m'apporte.
La Listbox1 est alimentée par la feuille "mp3" A2:B
La Listbox2 est alimentée par la feuille "Fb" A2:C
Mes 'connaissances' sont vraiment trop faibles, mais je peuxx joindre le fichier au cas ou.

[Daniel.C]

Pour ListBox2 :

Code :

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

1
2
3
4
    Dim Plage As Range
    With Sheets("Fb")
    Set Plage = .Range(.[A2], .Cells(.Rows.Count, 3).End(xlUp))
    Me.ListBox1.List = Plage.Value

et pour Listbox1 :

Code :

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

1
2
3
4
    Dim Plage As Range
    With Sheets("mp3")
    Set Plage = .Range(.[A2], .Cells(.Rows.Count, 2).End(xlUp))
    Me.ListBox1.List = Plage.Value

[vieuxmonsieur]

re,
N'y arrivant pas, je me permets de vous joindre le fichier pour une meilleure approche.
En vous remerciant

[Daniel.C]

J'ai ajouté ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Remplir la ListBox1
    Me.ListBox1.Clear
    With Sheets("mp3")
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 2).End(xlUp))
        Me.ListBox1.List = Plage.Value
    End With
 
'Remplir la ListBox2
    Me.ListBox2.Clear
    With Sheets("Fb")
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3)
        Me.ListBox2.List = Plage.Value
    End With

dans la macro :

Code :

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

Private Sub UserForm_Initialize()

J'ai également supprimé la propriété "RowSource" des deux ListBoxes. Si ce n'est pas clair, je te retourne le classeur.