[WD-2010] VBA Combobox LimitToList property [Résolu]

[sunlover]

Bonjour,
J'ai ajouté une combobox dans word comme ceci :

Code :

1
2
3
 
Dim cbox as InlineShape
Set cbox = ActiveDocument.InlineShapes.AddOLEControl("Forms1.Combobox.1")

Je voudrais savoir comment empêcher que l'utilisateur puisse mettre une valeur qui n'est pas dans la liste.

J'ai cherché un peu et j'ai vu qu'il y avait la propriété LimitToList.

Je voudrais savoir comment accéder à cette propriété car j'ai essayé :

Code :

1
2
 
cbox.OLEFormat.Object.LimitToList = True

et ça ne marche pas. (Runtime error : Object does not support this method or property.)

Par contre, pour récupérer la valeur sélectionnée, je fais ceci et ça fonctionne.

Code :

1
2
3
 
Dim s As String
s = cbox.OLEFormat.Object.Value

[Heureux-oli]

Salut,

Ce n'est pas une propriété qui correspond à cet objet.

[sunlover]

Envoyé par Heureux-oli

Salut,

Ce n'est pas une propriété qui correspond à cet objet.

Y a-t-il un autre moyen de limiter la sélection à la liste ?

[Heureux-oli]

Salut,

je ne vois qu'une comparaison possile en VBA après sélection.

[sunlover]

Envoyé par Heureux-oli

Salut,

je ne vois qu'une comparaison possile en VBA après sélection.

Merci.

[sunlover]

Envoyé par Heureux-oli

Salut,

je ne vois qu'une comparaison possile en VBA après sélection.

Encore une dernière question: pour ajouter des éléments à ma combobox, j'utilise

Code :

1
2
3
 
cbox.addItem "toto"
cbox.addItem "tata"

.

Mais comment faire pour récupérer la liste des propositions, élément par élément, pour voir si "titi" = un des éléments de la liste ?

Je n'ai pas envie de stocker la liste dans un tableau car je crois qu'elle y est déjà dans l'objet combobox ou alors je me trompe ?

[sunlover]

J'ai trouvé une solution plus simple que de comparer un à un les éléments (je ne sais d'ailleurs pas comment accéder aux éléments de la liste).

Il suffit de faire ceci :

Code :

1
2
3
4
5
6
7
Sub Cbox_Change()
    With ThisDocument.Cbox
        If .ListIndex = - 1 Then 
            MsgBox "Seuls les choix proposés sont admis."
        End If
    End With
End Sub

[Heureux-oli]