Boucle ComboBox pour la création d'une liste

Question

Bonjour,

Je n'arrive pas à comprendre comment créer une boucle de ComboBox.

J'ai créé un UserForm qui permet de sélectionner des noms les uns après les autres pour les insérer en liste dans un feuille Excel. J'arrive à cela :

Private Sub ComboBox3To11_Change()  Dim i As Byte  Range("C6").Activate  For i = 3 To 11     Label1.Caption = Controls("ComboBox" & i).Value     ActiveCell.Offset(1, 0).Select     ActiveCell.Value = UserForm1.Controls("ComboBox" & i).Value  NextEnd Sub

Traduction de la logique que j'aimerais écrire : Pour les ComboBox 3 à 11, je veux que le UserForm enregistre le nom que va choisir l'utilisateur, qu'il passe à la cellule du dessous et saisisse le choix de l'utilisateur.

Exemple : Si l'utilisateur choisis "Paris" dans le ComboBox 3, "Londres" dans le ComboBox 4, ... j'aurais écris Paris en cellule C7, Londres en cellule C8, etc.

Mais mon code est visiblement faux car cela ne fonctionne pas. 

Auriez-vous une explication/solution ? 

Merciii

ucfoutu · Answer

Bonjour,
- J'ai commencé par mettre ton code entre balises code (il est très important, pour la lisibilité, de respecter cette règle, que je te prie d'observer à l'avenir).
- évite de travailler avec des Activate, Select, etc ... Travaille directement avec les objets Excel.
- j'appelle ton attention (à toi également) sur le fait que la propriété Value d'une Combobox ne correspond pas forcément à l'article qui y est cliqué ! cette propriété a pour valeur ce qui apparait dans la zone de saisie de la combo (ce qui est donc risqué).
L'article sélectionné dans une combobox comboboxx est donc (et là à coup sûr) :
comboboxx.list(comboboxx.listindex)
Reviens après avoir tenu compte de ces indications et modifié ton code en conséquence.

cs_MPi · Answer

Bonjour à vous,

Le nom de la macro m'interpelle...
Private Sub ComboBox3To11_Change()
Comme ce n'est pas vraiment un événement, de ce que je pense, comment est-elle appelée ?

Boucle ComboBox pour la création d'une liste

2 réponses

Votre réponse

Discussions similaires