Programmer deux combobox sur le même UserForm
Résolu
galerienVBA
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour à tous,
Je cherche à configurer deux combobox figurant sur le même UserForm. J'ai réussi à configurer la première combobox en recourant au code suivant :
Je voulais utiliser la même structure en changeant la source ("Motifs"--> "Motifs2") mais ça ne donne rien :
N.B : la feuille ("Motifs2") est la source de ma deuxième combo box, Excel me dit que le nom Private Sub UserForm_Initialize() est ambigu.
Pouvez vous m'aider ?
Merci d'avance
Clovis
Je cherche à configurer deux combobox figurant sur le même UserForm. J'ai réussi à configurer la première combobox en recourant au code suivant :
Private Sub UserForm_Initialize()
Dim i As Long
With Sheets("Motifs")
For i = 2 To 10
MotifsInfo.AddItem .Cells(i, 1)
Next i
End With
Je voulais utiliser la même structure en changeant la source ("Motifs"--> "Motifs2") mais ça ne donne rien :
Private Sub UserForm_Initialize()
Dim j As Long
With Sheets("Motifs2")
For j = 2 To 11
MotifsInfo.AddItem .Cells(j, 1)
Next i
End With
N.B : la feuille ("Motifs2") est la source de ma deuxième combo box, Excel me dit que le nom Private Sub UserForm_Initialize() est ambigu.
Pouvez vous m'aider ?
Merci d'avance
Clovis
A voir également:
- Programmer deux combobox sur le même UserForm
- Deux compte whatsapp sur le même téléphone samsung - Guide
- Comment faire deux colonnes sur word - Guide
- Programmer sms - Guide
- Deux ecran pc - Guide
- Programmer mail gmail - Guide
3 réponses
Bonjour,
Tu essaies d'utiliser deux fois le même événement. CEla n'est pas possible.
Il te faut regrouper tes deux procédures dans le même
Cordialement,
Franck
Tu essaies d'utiliser deux fois le même événement. CEla n'est pas possible.
Il te faut regrouper tes deux procédures dans le même
UserForm_Initialize. Comme ceci :
Private Sub UserForm_Initialize()
Dim i As Long, j As Long
With Sheets("Motifs")
For i = 2 To 10
MotifsInfo.AddItem .Cells(i, 1)
Next i
End With
With Sheets("Motifs2")
For j = 2 To 11
MotifsInfo.AddItem .Cells(j, 1)
Next i
End With
End Sub
Cordialement,
Franck
j'ai une autre question,
je voudrais alimenter une feuille de calcul à partir de la saisie effectuée sur une text box.
En gros le collaborateur doit saisir un motif non défini dans les listes déroulantes, dans la zone de commentaires de l'USERFORM (sous forme de text box). Or je n'arrive pas à determiner un code adéquat.
Pouvez vous m'aider ?
je voudrais alimenter une feuille de calcul à partir de la saisie effectuée sur une text box.
En gros le collaborateur doit saisir un motif non défini dans les listes déroulantes, dans la zone de commentaires de l'USERFORM (sous forme de text box). Or je n'arrive pas à determiner un code adéquat.
Pouvez vous m'aider ?