Userform vba
vbanvelle
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
vbanvelle Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
vbanvelle Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
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
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
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
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:
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
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
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
