Problème de Combobox
Résolu
DGVDR
Messages postés
164
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Je me vois contraint de vous demander de nouveau de l'aide.
J'ai un Userform se nommant "Intervent"
Dans cet Userform j'ai une combobox appelée "Machine"
Ma liste de machines (la source de la combobox) se trouve entre les ligne 1 et 43 de la colonne X de l'onglet "Préventif"
J'ai donc indiqué :
Quand je lance mon Userform, ma Combovox reste vierge...
Des solutions ?
Merci,
DGVDR
Je me vois contraint de vous demander de nouveau de l'aide.
J'ai un Userform se nommant "Intervent"
Dans cet Userform j'ai une combobox appelée "Machine"
Ma liste de machines (la source de la combobox) se trouve entre les ligne 1 et 43 de la colonne X de l'onglet "Préventif"
J'ai donc indiqué :
Private Sub UserForm_Click()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("Préventif").Range("X65536").End(xlUp).Row
For x = 1 To i
With Machine
.AddItem Sheets("Préventif").Range("X" & x)
End With
Next x
End Sub
Quand je lance mon Userform, ma Combovox reste vierge...
Des solutions ?
Merci,
DGVDR
A voir également:
- Problème de Combobox
- Vba combobox selected item ✓ - Forum VB / VBA
- Remplir combobox vba ✓ - Forum Excel
- Combobox vba liste déroulante dynamique ✓ - Forum Excel
- Additem combobox vba ✓ - Forum VB / VBA
- WPF Problème ComboBox - Forum C#
3 réponses
Bonjour
Change
Par
Le With ... End With n'est pas nécessaire
Et ça devrait fonctionner
Change
Private Sub UserForm_Click()
Par
Private Sub UserForm_Initialize()
Le With ... End With n'est pas nécessaire
Et ça devrait fonctionner
Private Sub UserForm_Initialize()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("Préventif").Range("X65536").End(xlUp).Row
For x = 1 To i
With Machine
.AddItem Sheets("Préventif").Range("X" & x)
End With
Next x
End Sub
Merci Polux,
Cependant, ça ne marche pas
"Erreur 9 : L'indice n'appartient pas à la sélection"
Si je supprime le With, comment Excel sera ou ajouter mes items?
