ComboBox Simple

[bloomby]

ComboBox Rowsource

Bonjour à tous,
j'ai l'habitude de programmer un code pour alimenter le choix (ex: A,B,C) de mes comboBox de la façon suivante:

Private Sub UserForm_Initialize()
    Me.ComboBox1.AddItem "Oui"
    Me.ComboBox1.AddItem "Non"
    Me.ComboBox1.AddItem "Peut-être"
End Sub

Par contre, je me demande s'il serait possible de créer une liste de choix Oui,Non ou Peut-être directement avec l'aide de la fenêtre Properties - ComboBox1
J'ai essayé avec RowSource mais je dois sélectionner des cellules;
(j'aurais préféré pouvoir écrire directement le text "Oui,Non,Peut-être")

merci
Bloomby

 

[soenda]

Re : ComboBox Simple

Bonsoir le fil, Bloomby

tu peux initialiser comme ceci :

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("Oui", "Non", "Peut-être")
End Sub

Par contre, avec la fenêtre Propriétés, je ne sais pas ...

A plus

 

[bloomby]

Re : ComboBox Simple

Bonjour Soenda,

Merci de l'information, si j'ai les combobox1,3,5,6,7 et 10
qui on la même liste, est-ce qu'il est possible d'optimiser le code

Merci
Bloomby

 

[soenda]

Re : ComboBox Simple

Re,

si j'ai les combobox1,3,5,6,7 et 10 qui on la même liste ... ?

Si l'on met la propriété Tag (de la fenêtre propriété) à 1 (par exemple) pour les ComboBox que l'on veut affecter,
on peut écrire :

Private Sub UserForm_Initialize()
    Dim c As ComboBox
 
    For Each c In Controls
        If c.Tag = 1 Then c.List = Array("Oui", "Non", "Peut-être")
    Next
 
End Sub

A plus

 

[edjo123]

Re : ComboBox Simple

@soenda

Bjr j'aimerais créer une combobox à partir de données recensées sur une plage de cellule variable (la colonne est fixe, c'est le nombre de llignes qui varie). J'aimerais que ma combo-box s'ajuste automatiquement.


Savez-vous comment faire ?

 

[13GIBE59]

Re : ComboBox Simple

Bonjour Edjo.

Essaie ça : (pour la colonne B)

Private Sub UserForm Initialize()
Sheets("Feuil1").Activate
Range([B2],[B65536].End(xlUp).Select
For Each Cell In Selection
Me.ComboBox1.Additem Cell
Next Cell
End Sub

A +

 

[edjo123]

Re : ComboBox Simple

@13GIBE59

Il n'aime pas le "me". il me met utilisation incorrecte de Me

 

[13GIBE59]

Re : ComboBox Simple

Bizarre...


Vois le fichier joint.

 

[soenda]

Re : ComboBox Simple

Bonsoir le fil, edjo123, 13GIBE59

Dans la proposition de jean-bernard, qui fonctionne très bien d'ailleur.

On peut remplacer

...
For Each Cell In Selection
 Me.ComboBox1.Additem Cell
Next Cell

par

Me.ComboBox1.List = Selection.Value

Pour rester dans le ton de mon précédent post (sur ce fil).

A plus