Forcer une valeur dans une combobox

[marmotte18]

Bonjour,

J'ai une combobox nommée "MortBox". Je voudrais forcer la valeur "Inconnu". Comment faut-il procéder ?

Le code suivant ne fonctionne pas :

ActiveSheet.Shapes("MortBox").Value = "Inconnu"

 

[Fred0o]

Re : Forcer une valeur dans une combobox

Bonjour marmotte,

Essaie de remplacer .Value par .Text :

UserForm1.ComboBox1.Text = "Inconnu"

A+

 

[marmotte18]

Re : Forcer une valeur dans une combobox

Bonjour Fred0o,

Merci pour ta réponse mais elle ne fonctionne pas.

Je précise qu'à l'origine, cette liste déroulante peut prendre les valeurs :
Nord, Sud, Est, Ouest et Inconnu

Pas de problème de fonctionnement ! Je souhaite pouvoir imposer la valeur "Inconnu" en affichage, autrement que manuellement sur la fenêtre des propriétés.

Par ailleurs, il ne s'agit pas d'un UserForm mais d'une zone de liste déroulante venant de la boîte à outils Contrôles

 

[Fred0o]

Re : Forcer une valeur dans une combobox

Re-bonsoir Marmotte,

Je ne sais pas répondre à ton problème.
Je ne vois pas comment fonctionne ta ComboBox avec Shape et pas avec ComboBox.

Désolé
A+

 

[marmotte18]

Re : Forcer une valeur dans une combobox

Fred0o,

C'est un essai que j'ai effectué avec "shape". Visiblement, soit la syntaxe n'est pas bonne, soit ce n'est pas la bonne méthode.

Merci en tous les cas de t'être penché sur mon problème.

 

[steph_60]

Re : Forcer une valeur dans une combobox

Re-bonsoir Marmotte,

Je ne sais pas répondre à ton problème.
Je ne vois pas comment fonctionne ta ComboBox avec Shape et pas avec ComboBox.

Désolé
A+

Bonsoir

voici une solution ,à chaque ouverture de l'Userform , ton combobox affiche inconnu....

Private Sub MaCombo_Change()
End Sub

Private Sub UserForm_Initialize()

Dim MonTableau As Variant
Dim Tab1 As Variant

MonTableau = Array("Inconnu", "Nord", "Sud", "Est", "Ouest")

For Each Tab1 In MonTableau
MaCombo.AddItem (Tab1)
Next Tab1


MaCombo.Value = "Inconnu"

End Sub

en espérant que cela répond a ta problèmatique
Bonsoir

 

[marmotte18]

Re : Forcer une valeur dans une combobox

Bonsoir steph_60,

C'est sympa d'avoir regarder mon problème et je t'en remercie.

Je précise que je sais alimenter ma liste déroulante et que je n'ai pas de problème pour afficher "Inconnu" lors de la constitution de la ComboBox nommée "MortBox".

Suite à un événement particulier de mon traitement, je souhaiterais afficher le mot "Inconnu" dans cette liste déroulante via VBA. C'est d'ailleurs l'une des options d'affichage prévue !

NB : ma ComboBox a été fabriquée par "une zone de liste déroulante" venant de la boîte à outils Contrôles.

 

[JCGL]

Re : Forcer une valeur dans une combobox

Bonjour à tous,

Quel événement particulier ?

Pour avoir Inconnu au DoubleClick sur la ComboBox :

Private Sub MortBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MortBox.Text = "Inconnu"
End Sub

A+ à tous

 

[marmotte18]

Re : Forcer une valeur dans une combobox

Bonsoir JCGL,

Merci pour ton intervention !

En fait, je suis en train de fabriquer un générateur automatique de donnes de bridge. La donne étant faite, on indique qui des 4 personnes doit étaler son jeu (on dit que c'est le mort !). Ce choix (nord, sud, est ouest), je le fais manuellement via le bouton de choix de ma liste déroulante nommée "MortBox".

Quand je clique sur un autre bouton nommé "Efface" (c'est mon événement), la donne actuelle doit être effacée et la valeur figurant dans la liste déroulante doit être "Inconnu".

 

[JCGL]

Re : Forcer une valeur dans une combobox

Bonjour à tous,

Peux-tu essayer en rajoutant :

MortBox.Text = "Inconnu"

dans ton code "d'effacement"

A+ à tous

 

[marmotte18]

Re : Forcer une valeur dans une combobox

JCGL,

Désolé mais cela ne fonctionne pas. Ferrand a cependant trouvé la réponse qui me convient :

Worksheets("ComboBox").MortBox.ListIndex = 4