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

[Transitoire]

Au Fait, peut-être pourriez vous remplacer le MessageBox par un UF qui aurait la même fonction de choix. Dès fois que ce soit le MB qui soit en cause? on peut toujours réver.
Moi je ne peut pas faire l'essai, chez moi ça marche.
Par ailleurs, j'ai remplacé dans les textes "Supprimer" par "Supprimez". Dès fois que le Supprimer entre en conflit avec la Sub Supprimer() dans call AppellerBouton
Je vous joint dossier que j'ai créée chez moi, si vous voulez le tester .




Supprimer fichier.xlsm

[antonysansh]

Merci pour l'effort

Pas de conflit avec le caption du bouton et le nom de la sub.
Le msgbox n'est pas en cause non plus (testé sans message de confirmation)


Je pencherais pour un focus sur la pop-up ou bouton qui resterais après la suppression de la feuille.
Le comportement est le même en remplaçant objWorksheet.Delete par objWorksheet.Visible = xlSheetVeryHidden

J'ai testé les 3 choses suivantes (ou combinaison des 3 après la lignes .Delete):

1. Application.CommandBars.ReleaseFocus
2. Application.CommandBars.CommitRenderingTransaction (Application.Hwnd)
3. DoEvents

Sans effet

[mjpmjp]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
        Me.Delete
    'Application.DisplayAlerts = True
End Sub
 
Private Sub Worksheet_BeforeDelete()
    Worksheets("ess").Select
End Sub

@+JP

[antonysansh]

Bonjour mjpmjp,

Je ne peux pas mettre le code dans le code de la feuille car le nombre de feuille va évoluer (création, suppression, duplication)
De plus le code fonctionne bien (Sub Supprimer) en pas-à-pas ou via le menu macro (Alt + F8).

Mon problème survient avec l'utilisation du pop-up

[mjpmjp]

bonjour,

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.

@+JP

[mjpmjp]

bonjour,
j'ai collé le code dans un module ,
dans une feuille , j'ai créé un bouton 'activex" et ajouté : call ShowPopUp

quand je clique sur le bouton apparait "X Suprimer" , je clique dessus...
confirmer ?... oui
la feuille est supprimée , pas de problème , juste un truc ....
dans SupprimerFiche : 'Application.DisplayAlerts = True

@+JP

[antonysansh]

C'est après la suppression que le problème arrive.

Application.DisplayAlerts = True est déjà présent.
J'ai tester sans les DisplayAlerts, même comportement.

Je vous colle un GIF pour mieux comprendre ce qui me pose problème.
Les actions faites sur la capture :

1. Suppression de la feuille 3
2. Je ne peux plus fermer le classeur
3. Je change d'onglet
4. Je peux fermer le classeur
5. Suppression de la feuille 2
6. Sélection des cellules OK
7. Raccourcis clavier Ctrl + début fait planter Excel

[mjpmjp]

bonjour,

Application.DisplayAlerts = True est déjà présent.

justement ...enlève cette ligne !!

@+JP

[Transitoire]

Re
J'ai fait des modifications peut être pourriez vous les essayer dès fois que?

Code :

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

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

Je profite que j'ai la bouche ouverte pour poser des questions: Pourquoi Dim sPrompt$ ? ; Si je met directement "message de confirmation" je vire deux lignes de code qui pourraient sembler inutile. Avec ActiveSheet. delete chez moi ça marche aussi bien?
Par ailleurs, le popup apparaissant, je peut cliquer sur "Supprimez" tout va bien. si je clique sur la feuille, il disparait comme si rien ne s'était passé?
Bizarre.

[antonysansh]

@mjpmjp,
Déjà testé sans displayAlerts.


@Transitoire,

Code :

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

Dim sPrompt$

est la même chose que Dim sPrompt as String (déclaration implicite de variable via les suffixes)

Voilà le promt d'origine :

Code :

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

1
2
3
4
    Dim sPrompt$
        sPrompt = "Vous ne pourrez pas annuler cette action."
        sPrompt = sPrompt & vbCr
        sPrompt = sPrompt & vbCr & "Supprimer la fiche ?"

Plusieurs lignes que j'implémente en autant de ligne que dans la msgbox. Plus simple pour la relecture à mon gout.

[mjpmjp]

bonjour,
mon code et ton code fonctionnent avec xl2016

@+JP

[antonysansh]

L'un de vous a pu tester le code et constater le même problème ?