Problème de Combobox

Résolu/Fermé

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015 - 5 déc. 2013 à 15:10
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 5 déc. 2013 à 18:54

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é :

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
Remplir combobox vba ✓ - Forum Excel
Combobox additem ✓ - Forum VB / VBA
Javascript combobox - Forum Javascript
Vba trier combobox ordre alphabétique ✓ - Forum VB / VBA
Combobox word - Forum Programmation

3 réponses

Réponse 1 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 5/12/2013 à 15:22

Bonjour

Change

Private Sub UserForm_Click()

Par

Private Sub UserForm_Initialize()

Le With ... End With n'est pas nécessaire

Et ça devrait fonctionner

Réponse 2 / 3

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
5 déc. 2013 à 15:36

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?

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 5/12/2013 à 15:38

Il faut mettre

Machine.AddItem Sheets("Préventif").Range("X" & x)

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
5 déc. 2013 à 15:43

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
 
        Machine.AddItem Sheets("Préventif").Range("X" & x)

Next x

End Sub

-> Toujours l'erreur 9

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 déc. 2013 à 15:44

Tu peux dire sur quelle ligne se situe l'erreur stp

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
5 déc. 2013 à 16:16

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

Ca plante juste après avoir passé ça !

Merci Polux

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 déc. 2013 à 16:22

Et avec

Dim i As Long, x As Long

Réponse 3 / 3

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
5 déc. 2013 à 15:52

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+

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
5 déc. 2013 à 16:18

Bonjour lermite,

Ca me déclenche une erreur 380, impossible de définir la propriété rowsource.
Valeur de propriété non valide

Merci de ton temps,

DGVDR

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
5 déc. 2013 à 18:54

Et pourtant... ça fonctionne.
Il ne faut QUE CA dans le initialise, pas de AddItem.
A+

Discussions similaires

combobox dans word

Assigner une liste déroulante à une combobox

Liste déroulant dynamique en cascade en VBA

[VBA] Propriété ComboBox

Combobox et ListIndex