PB Reponse Message EXCEL
Bal1n
Messages postés
43
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
17 septembre 2008
-
6 mai 2004 à 17:43
VBbigineure Messages postés 169 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 27 février 2009 - 15 avril 2008 à 13:45
VBbigineure Messages postés 169 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 27 février 2009 - 15 avril 2008 à 13:45
A voir également:
- PB Reponse Message EXCEL
- Message box - Conseils pratiques -Visual Basic / VB.NET
- Excel vba modulo - Forum Visual Basic
- Tan-1 excel - Forum C++ & C++ .NET
- Arctangente excel ✓ - Forum Visual Basic 6
- Excel gmao - Forum Visual Basic 6
2 réponses
cs_PhilippeE
Messages postés
437
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
10 août 2010
2
6 mai 2004 à 18:04
6 mai 2004 à 18:04
Copier/Coller du site de Microsoft (MSDN)
You use the Worksheet object's Delete method to delete a worksheet from the Worksheets collection. When you try to programmatically delete a worksheet, Excel will display a message (alert); to suppress the message, you must set the Application object's DisplayAlerts property to False, as illustrated in the following example:
Function DeleteWorksheet(strSheetName As String) As Boolean
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(strSheetName).Delete
Application.DisplayAlerts = True
' Return True if no error occurred;
' otherwise return False.
DeleteWorksheet = Not CBool(Err.Number)
End Function
You use the Worksheet object's Delete method to delete a worksheet from the Worksheets collection. When you try to programmatically delete a worksheet, Excel will display a message (alert); to suppress the message, you must set the Application object's DisplayAlerts property to False, as illustrated in the following example:
Function DeleteWorksheet(strSheetName As String) As Boolean
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(strSheetName).Delete
Application.DisplayAlerts = True
' Return True if no error occurred;
' otherwise return False.
DeleteWorksheet = Not CBool(Err.Number)
End Function
VBbigineure
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
1
15 avril 2008 à 13:45
15 avril 2008 à 13:45
MERCI !!! (pour les autres, aussi)
