Userform vba

Bonjour à tous,

Merci beaucoup pour l'aide apportée !

vbanvelle

RE Bonjour f894009
petit rectif sur ta macro

Private Sub UserForm_Initialize()
With Sheets("Data")
ComboBox1.List = .Range("B1:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value
ComboBox3.List = .Range("D1:D" & .Range("D" & Rows.Count).End(xlUp).Row).Value
ComboBox4.List = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End With
End Sub

A+
Maurice

Bonjour f894009

Pas mal la deuxieme marche mieux que la premiere HI

A+
Maurice

Regarde le code de cet exemple :
https://www.cjoint.com/13jn/CFAtO4zDhsa_dictionary_-_test_de_rapidite.xls

Bonjour

Moi je prefere comme ca HI

Private Sub UserForm_Activate()
With Sheets("Data")
Me.ComboBox1.Clear
For L = 2 To .Range("B" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem .Range("B" & L)
Next
Me.ComboBox3.Clear
For L = 2 To .Range("D" & Rows.Count).End(xlUp).Row
ComboBox3.AddItem .Range("D" & L)
Next
Me.ComboBox4.Clear
For L = 2 To .Range("A" & Rows.Count).End(xlUp).Row
ComboBox4.AddItem .Range("A" & L)
Next
End With
End Sub

A+

Maurice

Bonjour,

Faire des listes sans vide

Private Sub UserForm_Initialize()
    With Sheets("Data")
        ComboBox1.RowSource = .Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row).Address
        ComboBox3.RowSource = .Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row).Address
        ComboBox4.RowSource = .Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Address
    End With
End Sub

Après quelques recherches, est ce un bon début ? Je souhaite implémenter les combobox avec mes données de l'onglet data

Private Sub UserForm_initialize()

For Each C In Sheets("Data").Range("B:B" & Range("B" & Rows.Count).End(xlUp).Row)
If C.Value <> "" Then
Combo_pdt.AddItem C.Value
End If