Discussion :

[manuseverine]

Bonjour,

Je suis en train de créer un formulaire, comme ma l'a conseillé Mercatoq mais j'ai un petit problème que je ne trouve pas dans les tutoriels.

J'ai donc créer un userform et à l'intérieur une combobox. Dans les propriétés je suis allé voir dans RowSource car il est dit dans un tutoriel que si l'on met l'emplacement de notre liste, il l'a reprendra.
J'ai testé ça marche mais moi je suis intéressé par une liste que j'avais créer grâce à la validation des données et donc je ne peux pas lui mettre de lien.Ces valeurs sont dans aucune case, je les ai noté directement. J'ai essayé de mettre ce que j'avais mis dans la validation des données mais ça ne marche pas. Ce ne sont pas des cellule mais des valeurs.
ex : clio;mégane;scénic

J'ai essayé dans le code de mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

combobox1.List()="clio";"mégane"

mais ça ne marche pas

[mercatog]

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_initialize()
Dim maTab
 
maTab = Array("mégane", "clio", "R4")
Me.ComboBox1.List() = maTab
End Sub

mais c'est non évolutif pour l'utilisateur; vaut mieux définir une plage de cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_initialize()
Dim LastLig as long
 
LastLig=sheets("Feuil4").cells(rows.count,"C").end(xlup).row 'dernière ligne
Me.ComboBox1.rowsource="Feuil4!C1:C" & Lastlig
End Sub

[manuseverine]

Tu as raison, c'est pourquoi je vais suivre ton conseil et je viens donc de saisir une liste dans une feuille 6. Le titre étant en cellule A1, ma liste commence à A2, j'ai donc fais les changements dans ton code mais ça ne marche pas. J'ai dû me tromper quelque part. Je te donne ce que j'ai fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_initialize()
Dim LastLig as long
 
LastLig=sheets("Feuil6").cells(rows.count,"A").end(xlup).row 'dernière ligne
Me.ComboBox1.rowsource="Feuil6!A2:A" & Lastlig
End Sub

[mercatog]

Où tu as mis ce code?
bien sûr sur l'évènement Initialise de ton userform
en mode création, double click sur ton userform, il te donne par défaut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Click()
 
End Sub

tu choisi à droite l'évènement initialize

[manuseverine]

oui oui c'est ce que j'ai fais, d'ailleurs je l'ai fais mais je n'ai pas compris pourquoi on ne mets pas ce code dans le code de la combobox car c'est elle qui est concerné. Quelque chose m'échappe sous VBA apparemment.

En tout cas, je l'ai bien mis ou tu m'as dis et quand clic sur mon bouton j'ai une fenêtre qui s'ouvre : erreur d'éxécution 9 : l'indice n'appartient pas à la sélection

je viens de faire un test que je trouve bizarre

Etant donné que la formule ne marche pas et que tu as l'air surpris. Apparemment ça devrait marcher. J'ai essayé de remettre les cellules nouvellement saisie dans Rowsource, à savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil6!A2:A50

et bien ça ne marche pas.

Par contre quand je remplace simplement le 6 par 1
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1!A2:A50

et bien ça marche.

En fait, ça marche pour la feuil1 et la feuil2. Si je met exactement la même formule pour les autres feuilles 3, 4,5 ou 6 ça ne marche pas. Il me dit :Impossible de définir la propriété Rowsource. Valeur de propriété non valide ???????????

C'est surement pour ça aussi que ton code ne marche pas

[mercatog]

tu as bien une feuille nommée feuil6?
mets en pj un extrait de ton fichier