confirmation avant macro Fermé

Question

Bonjour,  

j'ai essayer a crée un message de confirmer le déroulement d'un macro  cacher la feuille d'excel c'est si non effacer le contenu vous pouvez m'aider svp 

Sub MaFonction( 
) 
If MsgBox("Opération irréversible. Souhaitez-vous continuez ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then 
    ' le code de cacher la feuille 
Else 
    ' le code pour efface le contenu 
End If 

End Sub  


;o) 


Configuration: Windows 7 / Safari 537.1

WeaponEDGE · Answer

Bonjour,

voilà ton code.

Attention, Il agit sur la feuille active.

Sub MaFonction()
        
    Reponse = MsgBox("Opération irréversible. Souhaitez-vous continuer ?", vbYesNo)
    
    If Reponse = vbYes Then
        ActiveSheet.Visible = False
    Else
        Cells.Select
        Selection.ClearContents
    End If
End Sub


WeaponEDGE

Confirmation avant macro

1 réponse

Discussions similaires

Newsletters