Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Sélection Item dans une liste déroulante d'un menu personnalisé.

Sélection Item dans une liste déroulante d'un menu personnalisé.

2 réponses
Avatar
JMV
Bonjour,

J'ai crée une barre de commande personnalisée qui contient une liste
déroulante.

Pour créer la liste déroulante, j'utilise le code suivant :

Set mycontrol =
CommandBars("MENU").Controls.Add(Type:=msoControlComboBox)

With mycontrol
.AddItem Text:="Sélection des fiches ...", Index:=1
.AddItem Text:="Fiche 01", Index:=2
.AddItem Text:="Fiche 02", Index:=3
.AddItem Text:="Fiche 03", Index:=4
.AddItem Text:="Fiche 04", Index:=5
.DropDownLines = 5
.DropDownWidth = 120
.Caption = "Simulations"
.OnAction = "Simulations_go"
.ListHeaderCount = 0
.Width = 120
End With

... et la liste déroulante se crée et fonctionne tout à fait correctement.

Le seul Hic est que je souhaiterai à l'initialisation de la liste déroulante
afficher le 1er Item ce qui n'est pas le cas actuellement : aucun item n'est
sélectionné alors que je souhaiterai que la liste déroulante affiche
"Sélection des fiches ...".

Si quelqu'un pouvais m'aider .

Merci d'avance

Jean-Marc
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Rai
Bonjour,

ajoute
.listindex=1
avant ton
end with

Bonne fin d'aprèm

Rai

Bonjour,

J'ai crée une barre de commande personnalisée qui contient une liste
déroulante.

Pour créer la liste déroulante, j'utilise le code suivant :

Set mycontrol > CommandBars("MENU").Controls.Add(Type:=msoControlComboBox)

With mycontrol
.AddItem Text:="Sélection des fiches ...", Index:=1
.AddItem Text:="Fiche 01", Index:=2
.AddItem Text:="Fiche 02", Index:=3
.AddItem Text:="Fiche 03", Index:=4
.AddItem Text:="Fiche 04", Index:=5
.DropDownLines = 5
.DropDownWidth = 120
.Caption = "Simulations"
.OnAction = "Simulations_go"
.ListHeaderCount = 0
.Width = 120
End With

... et la liste déroulante se crée et fonctionne tout à fait correctement.

Le seul Hic est que je souhaiterai à l'initialisation de la liste déroulante
afficher le 1er Item ce qui n'est pas le cas actuellement : aucun item n'est
sélectionné alors que je souhaiterai que la liste déroulante affiche
"Sélection des fiches ...".

Si quelqu'un pouvais m'aider .

Merci d'avance

Jean-Marc











Avatar
JMV
Merci beaucoup !

Jean-Marc



"Rai" a écrit dans le message de
news:
Bonjour,

ajoute
.listindex=1
avant ton
end with

Bonne fin d'aprèm

Rai

Bonjour,

J'ai crée une barre de commande personnalisée qui contient une liste
déroulante.

Pour créer la liste déroulante, j'utilise le code suivant :

Set mycontrol > > CommandBars("MENU").Controls.Add(Type:=msoControlComboBox)

With mycontrol
.AddItem Text:="Sélection des fiches ...", Index:=1
.AddItem Text:="Fiche 01", Index:=2
.AddItem Text:="Fiche 02", Index:=3
.AddItem Text:="Fiche 03", Index:=4
.AddItem Text:="Fiche 04", Index:=5
.DropDownLines = 5
.DropDownWidth = 120
.Caption = "Simulations"
.OnAction = "Simulations_go"
.ListHeaderCount = 0
.Width = 120
End With

... et la liste déroulante se crée et fonctionne tout à fait
correctement.



Le seul Hic est que je souhaiterai à l'initialisation de la liste
déroulante


afficher le 1er Item ce qui n'est pas le cas actuellement : aucun item
n'est


sélectionné alors que je souhaiterai que la liste déroulante affiche
"Sélection des fiches ...".

Si quelqu'un pouvais m'aider .

Merci d'avance

Jean-Marc