Discussion :

[antonysansh]

Bonjour à tous,

Tout d'abord désolé pour le titre du poste, mais je n'ai pas trouvé de titre plus explicite.

Le contexte est le suivant :
Je cherche à mettre un bouton "actions" sur les feuilles d'un classeur, au clic sur ce bouton, un pop-up s'ouvre et offre plusieurs actions possibles.
Mes feuilles sont en fait des fiches à remplir et les actions possible sont : Valider, Modifier, Imprimer, Supprimer, ...

Mon problème :
Une action en particulière fait passer l'application Excel dans un "drôle d'état" (la encore je ne trouve pas d'autres mots).
L'action en question est : Supprimer (son but est tout simplement de supprimer la feuille).

Je vous décris brièvement le "drôle d'état" :

• La croix "fermer le classeur" est inopérante de même que celle "fermer l'application"
• La navigation dans le ruban est possible mais aucun bouton ne fonctionne
• Les autres contrôles du ruban font planter Excel
• La navigation dans la feuille (sélection de cellules) fonction à la souris mais plante si faite via le clavier (ex : Ctrl + Fin)
• Pleins d'autres choses étranges

---

J'ai minimisé le code en ne laissant que la création de la commandBar et du bouton Supprimer pour pouvoir vous le présenter.
Voici le code :

Création, suppression et alimentation de la Pop-up :

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
Const CmdBarName = "Menu Actions"
 
Private Sub DeleteCommandBar()
    On Error Resume Next
        Application.CommandBars(CmdBarName).Delete
End Sub
 
Private Sub CreateCommandBar()
    Dim objCommandBar As CommandBar
        Set objCommandBar = Application.CommandBars.Add(CmdBarName, msoBarPopup, False, True)
            Call AjouterBouton("Supprimer", 1088, "Supprimer", objCommandBar, True)
fin:
    Set objCommandBar = Nothing
End Sub
 
Private Sub AjouterBouton(ButtonName As String, ButtonFace As Long, ButtonOnAction As String, ByRef objCommandBar As CommandBar, bEnab As Boolean)
    With objCommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
        .Caption = ButtonName
        .FaceId = ButtonFace
        .OnAction = ButtonOnAction
        .Enabled = bEnab
    End With
End Sub

Le code de l'action Supprimer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Supprimer(): Call SupprimerFiche(ActiveSheet): End Sub
 
Sub SupprimerFiche(ByRef objWorksheet As Worksheet)
    Dim sPrompt$
        sPrompt = "Message de confirmation"
        Select Case MsgBox(Prompt:=sPrompt, Buttons:=vbExclamation + vbYesNo, Title:="Supprimer fiche pédagogique")
            Case vbYes
                Application.DisplayAlerts = False
                    objWorksheet.Delete
                Application.DisplayAlerts = True
            Case Else
                'Rien
        End Select
End Sub

Et enfin, la macro associée à mon bouton Actions :

Code :

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

1
2
3
4
5
Sub ShowPopUp()
    Call DeleteCommandBar
    Call CreateCommandBar
    Application.CommandBars(CmdBarName).ShowPopUp
End Sub

Je supprime le pop-up pour la recréer à chaque clic car le pop-up est en fait dynamique (Nombre de bouton et propriété Enabled des boutons). Notamment en fonction de l'utilisateur sur le fichier et du contenue de la fiche.
Le code fonctionne lorsqu'il est lancé depuis l'éditeur VBA. Mais provoque ce drôle d'état lorsqu'il l'est depuis le pop-up.

J'ai trouvé deux solutions pour sortir de cet état :

1. Changer de feuille et prendre le focus sur un Shape (les Shapes de la feuille active après suppression sont eux aussi inopérants)
2. Ajouter une feuille et la supprimer

Les deux solutions ne fonctionnent que manuellement.

---

Avez-vous des idées sur ce qui provoque cet état ? Des Solutions ?
S'il vous prend l'envie de tester le code, il vous suffit de copier les 3 morceaux de codes dans un module, de créer plusieurs feuilles et d'y ajouter un bouton en lui associant la macro ShowPopUp.

Merci d'avoir pris le temps de me lire et merci d'avance pour vos réponses.

[Phil Free]

Bonjour,

mon avis est que passer en paramètre, byref qui plus est, un objet qui va être supprimé par la sub qui le porte ne dois rien donner de stable

j'aurais plutôt préféré :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Supprimer(): Call SupprimerFiche(ActiveSheet.name): End Sub
 
Sub SupprimerFiche(ByVal WorksheetName As String)
    Dim sPrompt as String 'on est en VBA !!!
        sPrompt = "Message de confirmation"
        Select Case MsgBox(Prompt:=sPrompt, Buttons:=vbExclamation + vbYesNo, Title:="Supprimer fiche pédagogique")
            Case vbYes
                Application.DisplayAlerts = False
                    Worksheets(WorksheetName).Delete
                Application.DisplayAlerts = True
            Case Else
                'Rien
        End Select
End Sub

mais ce n'est que mon avis...

[antonysansh]

Merci pour cette réponse Phil Free,

ByVal ou ByRef ne change rien au comportement que je décris.
J'utilise ByRef car je travail avec l'objet lui même et non une copie de l'objet.

Ne trainant pas de variables entre mes procédures, pas de soucis avec la variable objWorksheet, elle devient juste Nothing et n'ai plus utilisé de toutes façons.

[Transitoire]

Bonjour,
Je viens de tester votre code ainsi que proposé.
Chez moi ça marche impec avec un truc bizarre. Un petit message qui me propose : Aide ou supprimer
Je choisi supprimer et la feuille est supprimée après le choix oui du MsgBox. ça marche impec! Je suis en Mac!

[antonysansh]

Merci Transitoire d'avoir pris le temps de tester le code.

N'étant pas sur mac je peux me tromper mais je crois que les pop-up sont toujours accompagnées d'un bouton aide. Donc rien d'anormale dans la pop-up.

Comme indiqué dans mon premier post, le code fonction donc la feuille est bien supprimée suite au message de confirmation. C'est une fois la suppression effectuée que le drôle d'état arrive.
Apres avoir supprimé la feuille le classeur se comporte normalement ?

[Transitoire]

Je confirme, même avec la feuille supprimée, tout fonctionne bien.
Je suis en Mac 10.6.8 et excel 2011 avec toutes les MAJ.
J'ai fait des copiés collés pour le code et tout fonctionne bien.. La s'arrête ma compétence, désolé.
Cordialement