VBA-E n° des types control

Bjr,
Ou peut-on trouver les n° des types des findcontrol ?
ex:
(.FindControl(, 2031) 'Le menu contextuel
Cdt

Citation:

---

Envoyé par Microsoft Visual Basic : Aide

FindControl, méthode

Renvoie un objet CommandBarControl qui correspond à des critères spécifiés.

expression.FindControl(Type, Id, Tag, Visible, Recursive)

expression Obligatoire. Expression qui renvoie un objet CommandBars.

Type MsoControlType facultatif. Type de contrôle.

Le type MsoControlType peut être l'une de ces constantes MsoControlType.
msoControlActiveX
msoControlCustom
msoControlButton
msoControlEdit
msoControlDropdown
msoControlComboBox
msoControlButtonDropdown
msoControlSplitDropdown
msoControlGenericDropdown
msoControlGraphicCombo
msoControlSplitButtonMRUPopup
msoControlSplitExpandingGrid
msoControlGraphicDropdown
msoControlPopup
msoControlGraphicPopup
msoControlButtonPopup
msoControlGauge
msoControlLabel
msoControlExpandingGrid
msoControlGrid
msoControlOCXDropDown
msoControlSplitButtonPopup
msoControlPane

Id Argument de type Variant facultatif. Identificateur du contrôle.

Tag Argument de type Variant facultatif. Valeur de l'étiquette du contrôle.

Visible Argument de type Variant facultatif. Affectez-lui la valeur True pour inclure uniquement les contrôles de barre de commandes visibles dans la recherche. La valeur par défaut est False. Les barres de commandes visibles incluent toutes les barres d'outils visibles et tout menu ouvert lors de l'exécution de la méthode FindControl.

Recursive Argument de type Boolean facultatif. Affectez-lui la valeur True pour inclure la barre de commandes et toutes ses sous-barres d'outils contextuelles dans la recherche. La valeur par défaut est False.

Note
Si la collection CommandBars contient deux contrôles ou plus correspondant aux critères de recherche, la méthode FindControl renvoie le premier contrôle qu'elle trouve. Si aucun contrôle n'est trouvé, la méthode FindControl renvoie Nothing.

Exemple
Cet exemple montre comment rechercher le premier contrôle de la barre de commandes intitulée « Custom ». Si le contrôle est un bouton, l'exemple montre comment utiliser la méthode FindControl pour rechercher le bouton Copy (dans la barre d'outils Standard), puis comment copier et coller l'image du bouton Copy sur le contrôle.

Code:

---

1 2 3 4 5 6 7 8

Set oldCtrl = CommandBars("Custom").Controls(1) If oldCtrl.Type = 1 Then Set newCtrl = CommandBars.FindControl(Type:= _ MsoControlButton, ID:= _ CommandBars("Standard").Controls("Copy").ID) NewCtrl.CopyFace OldCtrl.PasteFace End If

---

---

Que cherches-tu à faire au juste ?

As-tu sollicité l'aide en ligne ? F1 sur FindControl + 1 clic sur MsoControlType

Citation:

---

Envoyé par l'aide en ligne

Le type MsoControlType peut être l'une de ces constantes MsoControlType.
msoControlActiveX
msoControlCustom
msoControlButton
msoControlEdit
msoControlDropdown
msoControlComboBox
msoControlButtonDropdown
msoControlSplitDropdown
msoControlGenericDropdown
msoControlGraphicCombo
msoControlSplitButtonMRUPopup
msoControlSplitExpandingGrid
msoControlGraphicDropdown
msoControlPopup
msoControlGraphicPopup
msoControlButtonPopup
msoControlGauge
msoControlLabel
msoControlExpandingGrid
msoControlGrid
msoControlOCXDropDown
msoControlSplitButtonPopup
msoControlPane

---

Pour les N°, tu l'utilises dans une ligne de commande et, en pas à pas (F8) tu passes la souris sur l'argument, cela donne la valeur.
Ou tu les mets tous et tu reportes leurs valeurs sur une feuille.
Je vois bien ce que tu demandes mais à part un bouquin, je ne vois pas bien où tu peux trouver l'utilisation de chacun... :(
Jète un oeil dans les tutoriels. Fring en a écrit un superbe sur les barres de commandes.
Bonne chance.

Hello tlm,

Les numéros des ID correspondent aux n° des FaceId, par exemple le bouton exécutant l'application Word a l'ID 42.

Tu peux trouver toutes les FaceId ICI

C'est vrai que je suis bête à manger du foin ! :marteau:
Tu as également la liste de tous les id (dans la version 2003) dans la barre de menus "Icônes"... si tu l'as ! Parce que depuis que j'ai réinstallé Office, je ne l'ai plus :evilred: