Problème de Combobox
Résolu
DGVDR
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
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
- Combobox word - Forum Word
- Propriétés combobox vba ✓ - Forum VB / VBA
- Combobox vba ✓ - Forum VB / VBA
- WPF Problème ComboBox - Forum C#
- Vba combobox liste déroulante ✓ - Forum Programmation
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?
