Enabled un bouton dans un menu addin

Version imprimable

Bonjour,

J' aimerai que dans une plage séléctionné je puisse activer ou nom un bouton personnalise du menu addin de type popup

J'ai réalisé ce code mais cependant j'ai une erreur
Code:

1 2 3 4 5 6 If (ActiveSheet.Name <> "Gestion budgétaire") And (ActiveSheet.Name <> "Vide") Then If Not Application.Intersect(ActiveCell, Range("$B$7:$B$108")) Is Nothing Then CommandBars(NomCommandBar).FindControl(Tag:="Annulation").Enabled = True End If End If
variable objet ou variable de bloc with non definie...

Merci

Bonjour,

vérifie l’existence de ton NomCommandBar et de ton Tag Annulation

le code suivant te permet de lister dans un nouveau classeur ces informations :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
 
 
Sub ListeCommandBar()
 Dim i  As Integer
 Dim b As CommandBar
 Dim c As CommandBarControl
 Dim sh As Worksheet
 Set sh = Workbooks.Add().Sheets(1)
 
 sh.Cells(1, 1) = "CommandBar"
 sh.Cells(1, 2) = "Caption"
 sh.Cells(1, 3) = "Tag"
 i = 2
 For Each b In CommandBars
    For Each c In b.Controls
     sh.Cells(i, 1) = b.Name
     sh.Cells(i, 2) = c.Caption
     sh.Cells(i, 3) = c.Tag
    i = i + 1
    Next
 Next
 
End Sub

08/05/2013, 11h00
Ashireon

J'ai modifié ta macro pour qu'il ajoute une feuille dans le même classeur excel et non pas dans une autre.( car dans un autre le menu complément est desactivé)

Dans le classeur concerné donc :
Bien que dans le menu complément les boutons sont présents la macro ne référence rien des bouton persos...
08/05/2013, 12h02
SfJ5Rpw8

De quel complément s'agit-il ?

c'est des bouton de menus qu'on creer dans l'onglet complement sous 2010

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub auto_open()
    Dim Bar As CommandBar
    Set Bar = Application.CommandBars.Add(Name:=NomCommandBar, _
             Position:=msoBarFloating, Temporary:=True)
 
    With Bar
        .Left = 100
        .Top = 100
        .Visible = True
    End With
 
    Dim Popup As CommandBarPopup
    Set Popup = Application.CommandBars(NomCommandBar).Controls _
                            .Add(Type:=msoControlPopup)
 
    With Popup
        .Caption = "Gestion de comptes"
        .TooltipText = "Facilités de gestion de comptes"
    End With
 
    Dim button As CommandBarButton
    Set button = Popup.Controls.Add
 
    With button
        .Style = msoButtonIconAndCaption
        .FaceId = 1020
        .Caption = "Saisie facture"
        .TooltipText = "Saisir des factures payées"
        .OnAction = "SaisieFacture"
    End With
 
    Set button = Popup.Controls.Add
 
    With button
        .Style = msoButtonIconAndCaption
        .FaceId = 1021
        .Caption = "Nouveau poste"
        .TooltipText = "Ajouter un nouveau poste budgétaire"
        .OnAction = "NouveauPoste"
    End With
 
    Set button = Popup.Controls.Add
 
    With button
        .Style = msoButtonIconAndCaption
        .FaceId = 1030
        .Caption = "Annulation"
        .Tag = "Annuler"
        .TooltipText = "Annuler des factures déjà saisies"
        .OnAction = "AnnulerEcriture"
        .Enabled = False
 
    End With
 
    Set button = Popup.Controls.Add
 
    With button
        .Style = msoButtonIconAndCaption
        .FaceId = 1032
                .Caption = "Transfert"
        .TooltipText = "Transférer des factures déjà saisies sur un autre poste"
        .OnAction = "Transfert"
    End With
 
End Sub

J'ai ajouté un tag au bouton concerné afin de pouvoir pointer dessus et l'activer et le désactiver que dans des conditions particulières. Afin de limiter des erreurs utilisateurs...J'ai bien sur enregistré fermé et relancé le classeur afin que le tag soit actif.

Merci de ton aide en tout cas je cherche toujours une solution...

08/05/2013, 12h26
SfJ5Rpw8

Et tu ne retrouve pas ce commandbar dans la liste générée par mon code ?

comment renseigne tu la variable NomCommandBar
08/05/2013, 12h44
Ashireon

c'est une constante se trouvant dans le même module

Code:

Public Const NomCommandBar As String = "Gestion budgétaire"

pour moi find ne trouve pas le controle de la commandbar perso , pourquoi ???
Faut il déclarer quelque chose au niveau de l'onglet complément ?
08/05/2013, 12h48
SfJ5Rpw8

avant de regarder ton find ... il faudrait que ce contrôle soit lister par le code que je t'ai proposé ( Tu n'as pas besoin de modifier ce code ! ) peu tu me confirmer que tu ne trouve aucune lignes commençant par "Gestion budgétaire" ?

[Edit]

de plus tu cherche le tag "Annulation" cependant le tag utilisé pour ce bouton est

Code:

.Tag = "Annuler"
08/05/2013, 12h56
Ashireon

ce n'est pas ca j'ai changer le tag pour qu'il soit different de caption et refais le code.

Je cherche depuis ce matin, donc j'ai quelque peu modifier depuis.

je viens d'ajouter

Code:

MsgBox (Application.CommandBars(NomCommandBar).Controls.Count)

afin d'avoir le nombre de controles trouvé dans le nouveau menu et la il me retourne "1" alors que je devrais en avoir 4 puis qu’a l’écran j'ai 4 popups dans la commandbar.
08/05/2013, 12h58
SfJ5Rpw8

Citation:

Envoyé par bbil

avant de regarder ton find ... il faudrait que ce contrôle soit lister par le code que je t'ai proposé ( Tu n'as pas besoin de modifier ce code ! ) peu tu me confirmer que tu ne trouve aucune lignes commençant par "Gestion budgétaire" ?
...

alors ?
08/05/2013, 13h06
Ashireon

j'ai bien la commandbar gestion budgétaire qui est listé
Mais je n'ai pas les controles creer de type popups

J'ai fini par touver une solution qui fonctionne en fait
j'ai ajouté msocontrolbutton pour tous les type de boutton et j'ai modifié mon find

Du coup cela fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ActivationAnnulerEcriture()
Dim myControls As CommandBarControls
Dim ctl As CommandBarControl
If (ActiveSheet.Name <> "Gestion budgétaire") And (ActiveSheet.Name <> "Vide") Then
   If Not Application.Intersect(ActiveCell, Range("$B$7:$B$108")) Is Nothing Then
'
        Set myControls = CommandBars.FindControls _
            (Type:=msoControlButton, Tag:="Annuler")      '21 = cut
        For Each ctl In myControls
            ctl.Enabled = True
        Next ctl
    Else
 
        Set myControls = CommandBars.FindControls _
            (Type:=msoControlButton, Tag:="Annuler")      '21 = cut
        For Each ctl In myControls
            ctl.Enabled = False
        Next ctl
 
    End If
End If
 
End Sub

Je mets en résolu je te remercie Bbil tu m'a mis sur la voie , et j'ai finit par trouver...
Je mets en resolu

08/05/2013, 20h21
patricktoulon

heu
bonjour
si ca
Code:

1 2 3 4 5 Set myControls = CommandBars.FindControls _ (Type:=msoControlButton, Tag:="Annuler") '21 = cut For Each ctl In myControls ctl.Enabled = False Next ctl
te change le statut du bouton "annuler " moi je danse le sirtaki

traduction de tes 3 lignes de code

Citation:

set mycontrols= le control "annuler" chercher dans la commandbar

pour tout les controls dans mon controls"annuler" controls enabled=false

tu vois ce que je veux dire ?????