[XL-2000] Controls dans commandbars [Résolu]

[jenoyend]

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

[jenoyend]

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