récupération de la valeur d'un "msoControlEdit" d'un barre d'outils perso

**canichon** · 19/11/2013, 15h41

bonjour a tous,

j'ai créé une barre d'outils perso comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub BarreOutilsCourbe()
 
    Dim BarreOutilsCourbe As CommandBar
    Dim Bouton_BAO_Courbe As CommandBarButton
    Dim Bouton_BAO_Planning As CommandBarButton
    Dim Bouton_fenetre_choix As CommandBarButton
 
' Si cette barre d'outils existe, on la supprime
    On Error Resume Next
        Application.CommandBars("BarreOutilsCourbe").Delete
 
' Ajoute la barre de commande à la collection CommandBars
 
        Set BarreOutils = Application.CommandBars.Add
        BarreOutils.Name = "BarreOutilsCourbe"
 
    ' Ajoute le bouton de commande à la collection des contrôles de la barre
        With BarreOutils.Controls
            Set Zone_echelle_instantanée = .Add(msoControlEdit)
            Set zone_echelle_cumule = .Add(msoControlEdit)
 
    ' Règle les propriétés du bouton de commande
            With Zone_echelle_instantanée
                .Caption = "échelle de pointage instantanée"
                .OnAction = "action_zone1"
            End With
 
            With Zone_echelle_cumule
                .Caption = "échelle de pointage cumulé"
                .OnAction = "action_zone2"
            End With
        End With
 
        BarreOutils.Enabled = True
        BarreOutils.Visible = True
        BarreOutils.Position = msoBarTop
 
End Sub

et je voudrais recupérer la valeur que je mets dans ma "zone de texte " dans la "sub" action_zone1.
le probleme est que je n'ai pas la syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub action_zone1()
 
  Sheets("Courbe").Activate
  ActiveSheet.ChartObjects("Chart 13").Activate
  ActiveChart.Axes(xlValue).MaximumScale = CommandBars("BarreOutilsCourbe").Controls(Bouton_echelle_instantanée). '???
 
End Sub

Merci pour votre aide.

**canichon** · 20/11/2013, 11h13

alors, j'ai trouvé la solution comme un grand garçon...

d'abord je suis sous Excel 2010 et donc la gestion des barres d'outils est différente des versions d'excel précédentes.

l'ajout, la modification et tout ce qui peut se passer autour des "RUBANS" se fait en XML avec un petit utilitaire nommé Custom UI Editor.

un super Tuto a été fait par Silkyroad ici :
http://silkyroad.developpez.com/excel/ruban/#LIV

je découvre et donc j'aurais sans aucun doute des questions