Autorisation ou non d'un menu contextuel

**Mat08** · 09/10/2009, 09h31

Bonjour, j'ai un menu contextuel qui me permet de copier, coller et annuler.

Le problème est que parfois les champs du formulaire sont vérouillés et si on veut coller alors une erreur se produit et la bdd se ferme.
Je voudrais savoir si on peut griser (rendre l'action impossible) le coller et le annuler lorsque les champs du formulaire sont vérouillés.

Ou n'importe quel autre solution pour éviter l'erreur.

Voici le code si cela peut vous aider :

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
39
40
41
42
43
44
45
46
47
48
Public Sub Form_Load()
 
    'Call ContextuelSimple
    With Me
        .ShortcutMenu = True
        .ShortcutMenuBar = "Mnu_CopierCollerAnnuler"
    End With
End Sub
Public Sub ContextuelSimple()
    ' ======================================================================================
    ' Auteur        : Starec - Philippe JOCHMANS - http://starec.developpez.com
    ' Description   : Création d'un menu contrextuel simple
    '=======================================================================================
 
    ' ===== déclaration =====
    Dim cmb As Office.CommandBar
    Dim btn As Office.CommandBarButton
 
    ' ===== suppression de la barre existante =====
    On Error Resume Next
    Application.CommandBars("Mnu_CopierCollerAnnuler").Delete
 
    ' ===== génération du menu contextuel ======
    Set cmb = Application.CommandBars.Add("Mnu_CopierCollerAnnuler", msoBarPopup)
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "copier"
        .Style = msoButtonCaption
        .OnAction = "Macro_Copier"
    End With
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "coller"
        .Style = msoButtonCaption
        .OnAction = "Macro_Coller"
    End With
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "annuler"
        .Style = msoButtonCaption
        .OnAction = "Macro_Annuler"
    End With
 
    ' ===== faire apparaitre le menu contextuel =====
 
    cmb.ShowPopup
 
End Sub

Merci d'avance pour vos réponses.

**Domi2** · 09/10/2009, 10h51

Bonjour,

Pas de solutions toutes faites mais 2 pistes :

Quand tu dis :

on veut coller alors une erreur se produit et la bdd se ferme

Tu n'as aucun message d'erreur ?

Et en supprimant ?

Code :

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

On Error resume Next

Si tu peux récupérer un numéro d'erreur, tu peux la gérer.

Ou si tu peux tester l'état de ton contrôle, tu peux agir sur la propriété "enabled" de ton bouton.

Domi2

**Mat08** · 09/10/2009, 11h33

Oui je peux tester l'état de mon contrôle mais je ne comprend pas ce que vous voulez dire par agir sur la propriété "enable" de mon bouton. Ce n'est pas un bouton c'est un menu quand on fait un clique droit.

Vous voyez une solution ?

**Domi2** · 09/10/2009, 13h00

Re,

Code :

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

1
2
3
4
5
6
With btn
    .Caption = "coller"
    .Enabled = False  'True pour l'activer
    .Style = msoButtonCaption
    .OnAction = "Macro_Coller"
End With

Maintenant, le problème, c'est de pouvoir faire un test valable. Si tout tes contrôles sont verrouillés ou non verrouillés, c'est plus ou moins simple.

Plus compliqués s'ils ont des états différents.

C'est pour ça que la piste de la gestion d'erreur me semblait plus prometteuse...

Domi2

**Mat08** · 09/10/2009, 14h46

Je préfererais aussi utiliser la gestion d'erreur, dans le message je vois qu'il s'agit de l'erreur 2950. Que faire à partir de ceci ?

**Domi2** · 09/10/2009, 15h10

Re,

Quelque chose 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
Sub MaSub()
 
    On Error GoTo GestionErreur
    'Code
    'Code
    Exit Sub
 
GestionErreur:
 
    Select Case err.Number
 
        Case 2590: MsgBox "Impossible de coller pour l'instant", vbCritical
        Case Else: MsgBox "Erreur inconnue", vbCritical
 
    End Select
 
End Sub

Domi2

Invité · 09/10/2009, 15h18

Bonjour

Si je peux me permettre d'intervenir dans la discussion.

La gestion d'erreur dans ce tuto est un peu mal pensée, en effet elle était là pour gérer la suppression du menu avant de le créer.

Il faut dans tout les cas la gérer comme te le propose Domi2

Philippe

**Mat08** · 12/10/2009, 14h31

Bonjour, j'ai suivi ce que vous m'avez dit mais cela ne fonctionne pas.
Voici mon code si ça peut vous aider :

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
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
66
67
68
Public Sub Form_Load()
 
    'Call ContextuelSimple
    With Me
        .ShortcutMenu = True
        .ShortcutMenuBar = "Mnu_CopierCollerAnnuler"
    End With
End Sub
Public Sub ContextuelSimple()
    ' ======================================================================================
    ' Auteur        : Starec - Philippe JOCHMANS - http://starec.developpez.com
    ' Description   : Création d'un menu contrextuel simple
    '=======================================================================================
 
    ' ===== déclaration =====
    Dim cmb As Office.CommandBar
    Dim btn As Office.CommandBarButton
 
    ' ===== suppression de la barre existante =====
 
 
 
    On Error GoTo GestionErreur
    'Code
    'Code
 
 
GestionErreur:
 
    Select Case Err.Number
 
        Case 2950: MsgBox "Impossible de coller pour l'instant", vbCritical
        Case Else: MsgBox "Erreur inconnue", vbCritical
 
    End Select
 
 
 
 
   ' On Error Resume Next
   ' Application.CommandBars("Mnu_CopierCollerAnnuler").Delete
 
    ' ===== génération du menu contextuel ======
    Set cmb = Application.CommandBars.Add("Mnu_CopierCollerAnnuler", msoBarPopup)
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "copier"
        .Style = msoButtonCaption
        .OnAction = "Macro_Copier"
    End With
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "coller"
        .Style = msoButtonCaption
        .OnAction = "Macro_Coller"
    End With
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "annuler"
        .Style = msoButtonCaption
        .OnAction = "Macro_Annuler"
    End With
 
    ' ===== faire apparaitre le menu contextuel =====
 
    cmb.ShowPopup
 
End Sub

**Domi2** · 12/10/2009, 14h54

Bonjour,

Ca ne peut pas fonctionner...

Tu dois mettre la gestion d'erreur dans la procédure/fonction ou l'erreur se produit et non à la construction du menu.

Ce doit être ta procédure ou fonction "Macro_Coller".

De plus, regarde mieux l'exemple de code. La gestion se place en fin de procédure, précédée d'un "Exit Sub" ou "Exit Function", sinon tu vas exécuter ta gestion d'erreur même quand il n'y en a pas !

Domi2

**Mat08** · 12/10/2009, 15h08

Ok mais comment je fais si j'utilise des macros et non des procédures pour les fonctions copier coller et annuler ?

**Domi2** · 12/10/2009, 15h22

Re,

Tu les enregistres en VBA. Tu les sélectionnes, Enregistrer sous, et dans la boîte de dialogue tu choisis comme module.

Cela va te générer le code VBA correspondant (pas forcément très propre, mais fonctionnel).

Domi2

**Mat08** · 12/10/2009, 15h32

Tout ça est fait mais je n'arrive pas à comprendre pourquoi mon code prend en compte les macros à la place des modules vba.

Pouvez-vous me dire si cette partie de code est correctement écrite pour appeller un module et pas une macro ?

Code :

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

.OnAction = "Macro_Copier"

**Domi2** · 12/10/2009, 16h58

Re,

Code :

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

1
2
3
4
5
'Si tu as fait une procédure (Sub)
.OnAction = "=NomDeTaProcedure"
 
'Si c'est une fonction (Function)
.OnAction = "=NomDeTaFonction()"

Domi2

Autorisation ou non d'un menu contextuel

IHM

Discussions similaires

Partager

Partager