Controls dans commandbars

Bonjour à tous,

J'ai tenté de me créer une barre menu à partir ce celle qu'on peut télécharger ici.

Je ne peux pas uploader d'image depuis le travail donc, je vais essayer de décrire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'création de la barre de menus Set Cbar = CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)     'insertion sur la barre de menus d'un sous-menu 1 Set Cpop1 = Cbar.Controls.Add(msoControlPopup)     'insertion sur la barre de menus d'une zone de texte Set Ctxt12 = Cpop1.Controls.Add(msoControlEdit)

---

j'ai donc une zone de texte dans mon sous menu.

Ce que je ne sais pas faire, c'est récuperer la valeur dans cette zone de texte

Code:

---

1 2 3 4 5 6

Sub Macro5() Dim x As Integer   With CommandBars("MaBarre").Controls("Cpop1").Controls("Ctxt12") If Not Val(.Text) Mod 1 = Val(.Text) Then

---

Si vous pouviez m'aider ça serait très sympa.

Merci d'avance

Bonjour,

j'ai finalement trouvé la solution.
Il faut utiliser les "caption"

Si ça peut aider quelqu'un d'autre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro5() With CommandBars("MaBarre").Controls("Texte à largeur fixe").Controls("nbre caractères :") If Not Val(.Text) Mod 1 = Val(.Text) Then MsgBox "Veuillez saisir un entier" Exit Sub Else Call Import_largeur_fixe(Val(.Text)) End If End With End Sub

---