Discussion :

[Mat08]

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]

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]

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]

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]

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]

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