Je souhaiterais rajouter dans ce code le fait que lorsque mon checkbox1 est
"coché", la macro supprime toutes les autres feuilles (Feuil3, Feuil4,
centres).
Mon projet VBA est protégé par un mot de passe !
Private Sub CheckBox1_Click()
If CheckBox1.Value = 0 Then
Sheets("Feuil1").Visible = xlSheetVeryHidden
Sheets("Feuil2").Visible = xlSheetVeryHidden
Else
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
Sheets("Centres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = 0 Then
Sheets("Feuil3").Visible = xlSheetVeryHidden
Sheets("Feuil4").Visible = xlSheetVeryHidden
Else
Sheets("Feuil3").Visible = True
Sheets("Feuil4").Visible = True
Sheets("Centres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub
Je vous remercie d'avance pour votre précieuse aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Philippe,
Voici le code que tu peux utiliser pour faire ce travail. À toi de déterminer l'événement qui déclenchera le code.
Ce code supprime toutes les feuilles du classeur sauf les feuilles : "Feuil1" et "Feuil2". À toi d'adapter !
'------------------------- If Me.CheckBox1.Value = True Then Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In Worksheets If sh.Name <> "Feuil1" And _ sh.Name <> "Feuil2" Then sh.Visible = True sh.Delete End If Next Application.DisplayAlerts = True End If '-------------------------
Salutations!
"PhilippeD1" a écrit dans le message de news:
Bonjour la communauté de cervaux,
Je souhaiterais rajouter dans ce code le fait que lorsque mon checkbox1 est "coché", la macro supprime toutes les autres feuilles (Feuil3, Feuil4, centres). Mon projet VBA est protégé par un mot de passe !
Private Sub CheckBox1_Click() If CheckBox1.Value = 0 Then Sheets("Feuil1").Visible = xlSheetVeryHidden Sheets("Feuil2").Visible = xlSheetVeryHidden Else Sheets("Feuil1").Visible = True Sheets("Feuil2").Visible = True Sheets("Centres").Select ActiveWindow.SelectedSheets.Visible = False End If End Sub
Private Sub CheckBox2_Click() If CheckBox2.Value = 0 Then Sheets("Feuil3").Visible = xlSheetVeryHidden Sheets("Feuil4").Visible = xlSheetVeryHidden Else Sheets("Feuil3").Visible = True Sheets("Feuil4").Visible = True Sheets("Centres").Select ActiveWindow.SelectedSheets.Visible = False End If End Sub
Je vous remercie d'avance pour votre précieuse aide.
@ +
Bonjour Philippe,
Voici le code que tu peux utiliser pour faire ce travail. À toi de déterminer l'événement qui déclenchera le code.
Ce code supprime toutes les feuilles du classeur sauf les feuilles : "Feuil1" et "Feuil2". À toi d'adapter !
'-------------------------
If Me.CheckBox1.Value = True Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Worksheets
If sh.Name <> "Feuil1" And _
sh.Name <> "Feuil2" Then
sh.Visible = True
sh.Delete
End If
Next
Application.DisplayAlerts = True
End If
'-------------------------
Salutations!
"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message de news:
7F93BA19-FF51-43CB-AED2-436978F76FCE@microsoft.com...
Bonjour la communauté de cervaux,
Je souhaiterais rajouter dans ce code le fait que lorsque mon checkbox1 est
"coché", la macro supprime toutes les autres feuilles (Feuil3, Feuil4,
centres).
Mon projet VBA est protégé par un mot de passe !
Private Sub CheckBox1_Click()
If CheckBox1.Value = 0 Then
Sheets("Feuil1").Visible = xlSheetVeryHidden
Sheets("Feuil2").Visible = xlSheetVeryHidden
Else
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
Sheets("Centres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = 0 Then
Sheets("Feuil3").Visible = xlSheetVeryHidden
Sheets("Feuil4").Visible = xlSheetVeryHidden
Else
Sheets("Feuil3").Visible = True
Sheets("Feuil4").Visible = True
Sheets("Centres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub
Je vous remercie d'avance pour votre précieuse aide.
Voici le code que tu peux utiliser pour faire ce travail. À toi de déterminer l'événement qui déclenchera le code.
Ce code supprime toutes les feuilles du classeur sauf les feuilles : "Feuil1" et "Feuil2". À toi d'adapter !
'------------------------- If Me.CheckBox1.Value = True Then Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In Worksheets If sh.Name <> "Feuil1" And _ sh.Name <> "Feuil2" Then sh.Visible = True sh.Delete End If Next Application.DisplayAlerts = True End If '-------------------------
Salutations!
"PhilippeD1" a écrit dans le message de news:
Bonjour la communauté de cervaux,
Je souhaiterais rajouter dans ce code le fait que lorsque mon checkbox1 est "coché", la macro supprime toutes les autres feuilles (Feuil3, Feuil4, centres). Mon projet VBA est protégé par un mot de passe !
Private Sub CheckBox1_Click() If CheckBox1.Value = 0 Then Sheets("Feuil1").Visible = xlSheetVeryHidden Sheets("Feuil2").Visible = xlSheetVeryHidden Else Sheets("Feuil1").Visible = True Sheets("Feuil2").Visible = True Sheets("Centres").Select ActiveWindow.SelectedSheets.Visible = False End If End Sub
Private Sub CheckBox2_Click() If CheckBox2.Value = 0 Then Sheets("Feuil3").Visible = xlSheetVeryHidden Sheets("Feuil4").Visible = xlSheetVeryHidden Else Sheets("Feuil3").Visible = True Sheets("Feuil4").Visible = True Sheets("Centres").Select ActiveWindow.SelectedSheets.Visible = False End If End Sub
Je vous remercie d'avance pour votre précieuse aide.
@ +
PhilippeD1
Bonjour Michdenis,
je te remercie car encore une fois tu as apporté la solution à mon problème.
Vous avez un problème, Vous restez blême, Demander Michdenis, Et la solution vous sourit.
MERCI @ +
Bonjour Philippe,
Voici le code que tu peux utiliser pour faire ce travail. À toi de déterminer l'événement qui déclenchera le code.
Ce code supprime toutes les feuilles du classeur sauf les feuilles : "Feuil1" et "Feuil2". À toi d'adapter !
'------------------------- If Me.CheckBox1.Value = True Then Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In Worksheets If sh.Name <> "Feuil1" And _ sh.Name <> "Feuil2" Then sh.Visible = True sh.Delete End If Next Application.DisplayAlerts = True End If '-------------------------
Salutations!
"PhilippeD1" a écrit dans le message de news:
Bonjour la communauté de cervaux,
Je souhaiterais rajouter dans ce code le fait que lorsque mon checkbox1 est "coché", la macro supprime toutes les autres feuilles (Feuil3, Feuil4, centres). Mon projet VBA est protégé par un mot de passe !
Private Sub CheckBox1_Click() If CheckBox1.Value = 0 Then Sheets("Feuil1").Visible = xlSheetVeryHidden Sheets("Feuil2").Visible = xlSheetVeryHidden Else Sheets("Feuil1").Visible = True Sheets("Feuil2").Visible = True Sheets("Centres").Select ActiveWindow.SelectedSheets.Visible = False End If End Sub
Private Sub CheckBox2_Click() If CheckBox2.Value = 0 Then Sheets("Feuil3").Visible = xlSheetVeryHidden Sheets("Feuil4").Visible = xlSheetVeryHidden Else Sheets("Feuil3").Visible = True Sheets("Feuil4").Visible = True Sheets("Centres").Select ActiveWindow.SelectedSheets.Visible = False End If End Sub
Je vous remercie d'avance pour votre précieuse aide.
@ +
Bonjour Michdenis,
je te remercie car encore une fois tu as apporté la solution à mon problème.
Vous avez un problème,
Vous restez blême,
Demander Michdenis,
Et la solution vous sourit.
MERCI @ +
Bonjour Philippe,
Voici le code que tu peux utiliser pour faire ce travail. À toi de déterminer l'événement qui déclenchera le code.
Ce code supprime toutes les feuilles du classeur sauf les feuilles : "Feuil1" et "Feuil2". À toi d'adapter !
'-------------------------
If Me.CheckBox1.Value = True Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Worksheets
If sh.Name <> "Feuil1" And _
sh.Name <> "Feuil2" Then
sh.Visible = True
sh.Delete
End If
Next
Application.DisplayAlerts = True
End If
'-------------------------
Salutations!
"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message de news:
7F93BA19-FF51-43CB-AED2-436978F76FCE@microsoft.com...
Bonjour la communauté de cervaux,
Je souhaiterais rajouter dans ce code le fait que lorsque mon checkbox1 est
"coché", la macro supprime toutes les autres feuilles (Feuil3, Feuil4,
centres).
Mon projet VBA est protégé par un mot de passe !
Private Sub CheckBox1_Click()
If CheckBox1.Value = 0 Then
Sheets("Feuil1").Visible = xlSheetVeryHidden
Sheets("Feuil2").Visible = xlSheetVeryHidden
Else
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
Sheets("Centres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = 0 Then
Sheets("Feuil3").Visible = xlSheetVeryHidden
Sheets("Feuil4").Visible = xlSheetVeryHidden
Else
Sheets("Feuil3").Visible = True
Sheets("Feuil4").Visible = True
Sheets("Centres").Select
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub
Je vous remercie d'avance pour votre précieuse aide.
je te remercie car encore une fois tu as apporté la solution à mon problème.
Vous avez un problème, Vous restez blême, Demander Michdenis, Et la solution vous sourit.
MERCI @ +
Bonjour Philippe,
Voici le code que tu peux utiliser pour faire ce travail. À toi de déterminer l'événement qui déclenchera le code.
Ce code supprime toutes les feuilles du classeur sauf les feuilles : "Feuil1" et "Feuil2". À toi d'adapter !
'------------------------- If Me.CheckBox1.Value = True Then Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In Worksheets If sh.Name <> "Feuil1" And _ sh.Name <> "Feuil2" Then sh.Visible = True sh.Delete End If Next Application.DisplayAlerts = True End If '-------------------------
Salutations!
"PhilippeD1" a écrit dans le message de news:
Bonjour la communauté de cervaux,
Je souhaiterais rajouter dans ce code le fait que lorsque mon checkbox1 est "coché", la macro supprime toutes les autres feuilles (Feuil3, Feuil4, centres). Mon projet VBA est protégé par un mot de passe !
Private Sub CheckBox1_Click() If CheckBox1.Value = 0 Then Sheets("Feuil1").Visible = xlSheetVeryHidden Sheets("Feuil2").Visible = xlSheetVeryHidden Else Sheets("Feuil1").Visible = True Sheets("Feuil2").Visible = True Sheets("Centres").Select ActiveWindow.SelectedSheets.Visible = False End If End Sub
Private Sub CheckBox2_Click() If CheckBox2.Value = 0 Then Sheets("Feuil3").Visible = xlSheetVeryHidden Sheets("Feuil4").Visible = xlSheetVeryHidden Else Sheets("Feuil3").Visible = True Sheets("Feuil4").Visible = True Sheets("Centres").Select ActiveWindow.SelectedSheets.Visible = False End If End Sub
Je vous remercie d'avance pour votre précieuse aide.