Remplir Combo en VBA

[benjisan]

Bonjour à tous,

Voilà, j'ai parcouru pas mal de post mais je ne trouve pas ce que je cherche.

Je voudrais créer une combobox mais pas dans un userform et la remplir via du code vba.

Avec quelques choses du style un additem par exemple

Donc attention je voudrais indiquer les valeurs dans mon code vba et pas dans une liste qui se trouve sur ma feuille Excel (En gros je voudrais Hardcoder les valeurs dans le code vba)

D'avance merci

 

[tototiti2008]

Re : Remplir Combo en VBA

Bonjour benjisan,

si tu ajoutes une combobox avec la Boite à outils contrôles, c'est exactement ce que tu cherches, à priori.

Menu affichage - Barres d'outils - Boite à outils contrôles

 

[Pierrot93]

Re : Remplir Combo en VBA

Bonjour Benjisan, Tototiti

regarde peut être le code ci dessous, à placer dans un module standard :

Sub test()
With Sheets("Feuil1").ComboBox1
    .Clear
    .AddItem "cccc"
    .AddItem "bbbb"
    .AddItem "aaaa"
    .AddItem "zzzz"
End With
End Sub

bon après midi
@+

 

[benjisan]

Re : Remplir Combo en VBA

Oui pour dessiner la combo il n'y a pas de problème.

C'est pour la remplir en VBA

 

[benjisan]

Re : Remplir Combo en VBA

Merci pour vos réponse,

Malheureusement cela ne fonctionne pas, j'ai placé le code dans un module et j'ai affecté une macro à la combo, mais il ne passe même pas dans mon module.

 

[Pierrot93]

Re : Remplir Combo en VBA

Re

regarde le fichier joint, tu click sur le bouton, cela alimente la combo.

bonne soirée
@+

 

[benjisan]

Re : Remplir Combo en VBA

Hello Pierrot93,

C'est impec, c'est vrai ça que je cherche à faire mis à part que je souhaite quel se charge automatiquement au chargement de la sheet.

Maintenant j'ai une autre question, comment est ce que je peux faire pour arriver à avoir accés à ta combo car je ne parviens même pas à cliquer avec le bouton droit de la souris pour moi avoir les propriété

Encore un énorme merci à toi

 

[benjisan]

Re : Remplir Combo en VBA

En gros je ne comprends pas comment tu arrives à ajouter la combo.
Moi je passe par la barre Formulaire mais elle est différente de la tienne

Encore merci

Bonne soirée

 

[Pierrot93]

Re : Remplir Combo en VBA

Re

fichier modifié, code placé dans l'événement activate de la feuil1. Pour voir les propriétés de la combo, passe en mode création, pour cela click sur l'icone "mode création" de la barre d'outils visual basic (equerre bleeu), ensuite click droit sur l'objet => propriété.

@+

 

[benjisan]

Re : Remplir Combo en VBA

Il y a quelques choses que je ne comprends pas très bien, il faut que le focus soit sur ma combo pour afficher toutes les lignes de la combo.

Si par exemple je clique sur mon formulaire et que je reclique sur ma combo il affiche la première ligne avec une petite flèche en haut et en bas

Je vais joindre mon fichier se sera plus facile

Encore merci à tous

 

[skoobi]

Re : Remplir Combo en VBA

Bonsoir benjisan,

ceci devrait marcher:

Private Sub ComboBox1_[B]Click[/B]()
If ComboBox1.ListIndex = -1 Then test
End Sub

 

[benjisan]

Re : Remplir Combo en VBA

Merci Skoobi,

Ca fonctionne nickel

Encore un grand merci et bonne soirée à tous

Benjisan