bonjour,
je viens juste de m'initier au langage Vba.
Je souhaite faire un formulaire
tout marche comme je veux sauf pour les combobox que ce soit la 2 ou la 3 où je n'arrive pas à mettre un menu
j'ai essayé avec additem et avec array
je suppose qu'il y a quelque chose qui cloche dans mon initialisation :
Private Sub UsfFichierClients_Initialize()
'Nombre de lignes
Dim J As Long
'Nombre de TextBoxs
Dim I As Integer
'variable Ws comme un objet de type Sheet (Feuille de cacul Client)
Set Ws = Sheets("Fichier")
With Me.ComboBox2
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 9
'affiche les données dans les textbox
Me.Controls("TextBox" & I).Visible = True
Next I
'Initialisation de Combobox Entreprise, particulier
ComboBox3.List = Array("E", "P")
End Sub
Merci pour votre aide
je viens juste de m'initier au langage Vba.
Je souhaite faire un formulaire
tout marche comme je veux sauf pour les combobox que ce soit la 2 ou la 3 où je n'arrive pas à mettre un menu
j'ai essayé avec additem et avec array
je suppose qu'il y a quelque chose qui cloche dans mon initialisation :
Private Sub UsfFichierClients_Initialize()
'Nombre de lignes
Dim J As Long
'Nombre de TextBoxs
Dim I As Integer
'variable Ws comme un objet de type Sheet (Feuille de cacul Client)
Set Ws = Sheets("Fichier")
With Me.ComboBox2
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 9
'affiche les données dans les textbox
Me.Controls("TextBox" & I).Visible = True
Next I
'Initialisation de Combobox Entreprise, particulier
ComboBox3.List = Array("E", "P")
End Sub
Merci pour votre aide