Discussion :

[samimi94]

Bonjour,

Je cherche désespérément à remplir ma listbox1 à l'ouverture de mon userform.
Ma listbox1 se remplit avec toutes les données de ma colonne B, en évitant les doublons.
Le problème est qu'à louverture du Userform je dois cliquer sur un bouton import or je ne veux pas cliquer sur un bouton mais importer automaiquement les données de ma colonnes B dès que le classeur s'ouver et affiche le USF.

J'espère avoir bien détaillé ma demande.

Par avance, merci.

[mercatog]

Mets ton code dans l'évènement Initialize de ton usf

[samimi94]

Merci pour ta réponse.

J'ai déjà essayé ma ca ne fonctionne pas !

Voici le code que j'ai dans le commandButton1_Click que j'ai mis dans initialize, mais rien ne se passe.

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
ActiveWorkbook.Worksheets("Feuil1").Range("B2:B65536").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
                xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortNormal
i = 2
 
        While ActiveWorkbook.Worksheets("Feuil1").Cells(i, 2) <> ""
            If i = 2 Then
                              UserForm2.ListBox1.AddItem ActiveWorkbook.Worksheets("Feuil1").Cells(i, 2)
            Else
                            If ActiveWorkbook.Worksheets("Feuil1").Cells(i, 2) <> ActiveWorkbook.Worksheets("Feuil1").Cells(i - 1, 2) Then
                    UserForm2.ListBox1.AddItem ActiveWorkbook.Worksheets("Feuil1").Cells(i, 2)
                End If
            End If
            i = i + 1
        Wend

[mercatog]

Non, sur ton éditeur vba de userform2
tu insère 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
14
15
Private Sub UserForm_Initialize()
Dim LastLig As Long, i As Long
Dim MonDico As Object
 
With ThisWorkbook.Worksheets("Feuil1")
   LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
   .Range("B1:B" & LastLig).Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlYes
   Set MonDico = CreateObject("scripting.dictionary")
   For i = 2 To LastLig
     If Trim(.Range("B" & i).Value) <> "" Then MonDico(UCase(.Range("B" & i).Value)) = 1
   Next i
   Me.ListBox1.List = MonDico.keys
   Set MonDico = Nothing
End With
End Sub

[samimi94]

Merci Mercatog pour ton aide.

Alors si je comprends bien je mets dans le code VBA du USF2 le bout de code que tu m'as mis.
Pour dire vrai je le mettais dans un module du classeur et non dans le code USF.

Par contre quand je fais cela, dans un module j'ai mis

Code :

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

UserForm2.Show

Afin que le USF s'ouvre à l'ouverture du classeur, mais j'ai une erreur 9.

Peut-être que je ne le mets pas au bon endroit !

Merci.

[mercatog]

Ton erreur vient de cette ligne

Code :

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

With ThisWorkbook.Worksheets("Feuil1")

Mets à la place de Feuil1, le nom réel de ta feuille de données