Userform vba
vbanvelle
Messages postés
10
Statut
Membre
-
vbanvelle Messages postés 10 Statut Membre -
vbanvelle Messages postés 10 Statut Membre -
Bonjour,
J'ai crée un userform mais je ne sais pas le coder. Je vous joins ci-contre le doc avec les explications.
https://www.cjoint.com/?0BljPjCBCva
Quelqu'un peut m'aider svp c'est urgent.
Merci beaucoup,
vbanvelle
J'ai crée un userform mais je ne sais pas le coder. Je vous joins ci-contre le doc avec les explications.
https://www.cjoint.com/?0BljPjCBCva
Quelqu'un peut m'aider svp c'est urgent.
Merci beaucoup,
vbanvelle
7 réponses
-
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 -
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 -
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 foo,
c'est vous qui voyez.....
il y a ceci aussi:
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
-
-
Regarde le code de cet exemple :
https://www.cjoint.com/13jn/CFAtO4zDhsa_dictionary_-_test_de_rapidite.xls
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
-
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 à tous,
Merci beaucoup pour l'aide apportée !
vbanvelle
