Renseigner listfillrange

[Coco-31]

Bonjour le Forum

Avec les listes de validation, il est possible de la renseigner directement sans passer par une plage contenant les valeurs, dans source il suffit de saisir titi;toto;tutu etc …

Mais avec une combobox est-il possible de renseigner directement listfillrange sans faire référence à une plage

Je n’arrive pas à écrire le code, si quelqu’un pouvait me donner un petit coup de main, je lui en serais reconnaissante

 

[Dull]

Re : Renseigner listfillrange

Salut Coco-31, el Forum

J'en déduit que ton ComboBox est sur la Feuille

essaye ça

With ComboBox1
    .AddItem "Toto"
    .AddItem "Titi"
    .AddItem "Lulu"
    .AddItem "Lala"
End With

Fait une recherche avec la touche F1 sur AddItem

Bonne Journée

 

[skoobi]

Re : Renseigner listfillrange

Bonjour Coco-31,
salut Dull 🙂,

une autre manière de faire:

ComboBox1.List = [{"toto";"titi";"tata"}]

 

[Coco-31]

Re : Renseigner listfillrange

Bonjour Dull et skoobi,

Oui j'aurai dû le préciser le combobox est sur la feuille et J'avais déjà testé le code de Dull.
mais les deux codes ne fonctionnent pas ou je zappe quelque chose

Private Sub ComboBox1_Change()
ComboBox1.List = [{"toto";"titi";"tata"}]
'ou ce code
ComboBox1.ListFillRange = [{"toto";"titi";"tata"}]
'ou ce code
'With ComboBox1
'.AddItem "Toto"
'.AddItem "Titi"
'.AddItem "Lulu"
'.AddItem "Lala"
'End With
End Sub

Merci encore peut être une autre solution

 

[Dull]

Re : Renseigner listfillrange

Re Coco, Salut Skoobi🙂

Pour que ce code fonctionne il faut le mettre dans le Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.List = [{"toto";"titi";"tata"}]
End Sub

Bonne Journée

 

[Coco-31]

Re : Renseigner listfillrange

Re bonjour,

Merci Dull, c'est le code que je cherchais

Merci à tous ceux qui animent ce forum

 

[Coco-31]

Re : Renseigner listfillrange

Bien que le code de Dull me convienne, le code de skoobi, s'affiche bien dans le combobox, mais à chaque utilisation la liste est doublée, au départ j'ai bien une liste et après plusieurs utilisation je me retrouve avec plusieurs listes dans le zone de texte déroulante comme cela

Toto
Titi
Lulu
Lala
Toto
Titi
Lulu
Lala
Toto
Titi
Lulu
Lala
etc ...

mon code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
.AddItem "Toto"
.AddItem "Titi"
.AddItem "Lulu"
.AddItem "Lala"
End With
End Sub

Que faut il ajouter pour éviter cette duplication de liste, merci pour vos réponses

@+ COCO

 

[skoobi]

Re : Renseigner listfillrange

Re,

mets cette instruction avant la création de la liste:

ComboBox1.Clear

 

[Coco-31]

Re : Renseigner listfillrange

Salut skoobi,

Je n’aime pas rester sur un échec, ton code placé dans les différentes propriétés du combobox ou de la Worksheet ne donnait pas satisfaction, ou la sélection s’effaçait dès que je sortais du combobox ou la liste se dupliquait etc …, par contre avec ce code il se comporte comme je le voulais

Mais est il correctement écrit

Private Sub ComboBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox3.Clear
With ComboBox3
.AddItem "Toto"
.AddItem "Titi"
.AddItem "Lulu"
.AddItem "Lala"
End With
End Sub

en tout cas merci à vous deux