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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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