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
3 réponses
-
Bonjour
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? -
Bonjour,
Ont peu aussi faire..Private Sub UserForm_Initialize()
Machine.RowSource = "Préventif!X1:X" & Range("X" & Rows.Count).End(xlUp).Row
End Sub
A+
