Macro pour supp. des onglet dès qu'il y à 1
Résolu/Fermé
claudine
-
19 oct. 2011 à 16:40
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 - 20 oct. 2011 à 12:11
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 - 20 oct. 2011 à 12:11
A voir également:
- Macro pour supp. des onglet dès qu'il y à 1
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Rouvrir onglet fermé - Guide
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
4 réponses
eriiic
Messages postés
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 243
19 oct. 2011 à 17:23
19 oct. 2011 à 17:23
Bonjour,
eric
Sub cacherOnglet()
Dim w As Worksheet
For Each w In Worksheets
If Left(w.Name, 4) = "SF02" And w.[E12] = 0 And w.[E12] <> "" Then
w.Visible = False
' ou bien suppression sans demande de confirmation :
' Application.DisplayAlerts = False
' w.Delete
' Application.DisplayAlerts = True
End If
Next w
End Sub
eric
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 711
19 oct. 2011 à 17:32
19 oct. 2011 à 17:32
Bonjour,
Sub Cache_Onglets()
For x = 1 To Sheets.Count
If Left(Sheets(x).Name, 4) = "SF02" Then
Sheets(x).Activate
If Range("E12").Value = 0 And Range("E12").Value <> "" Then
'Cache Onglet
Sheets(x).Visible = False
End If
End If
Next x
End Sub
Ou
Sub Supprime_Onglets()
For x = 1 To Sheets.Count
If Left(Sheets(x).Name, 4) = "SF02" Then
Sheets(x).Activate
If Range("E12").Value = 0 And Range("E12").Value <> "" Then
'Empeche les Alertes EXCEL: ici celle de la suppression d'onglet
Application.DisplayAlerts = False
'Supprime onglet
Sheets(x).Delete
End If
End If
Next x
Application.DisplayAlerts = True
End Sub
Attention vous pouvez faire reapparaitre un onglet cache, pas un onglet supprime
Bonne suite
Sub Cache_Onglets()
For x = 1 To Sheets.Count
If Left(Sheets(x).Name, 4) = "SF02" Then
Sheets(x).Activate
If Range("E12").Value = 0 And Range("E12").Value <> "" Then
'Cache Onglet
Sheets(x).Visible = False
End If
End If
Next x
End Sub
Ou
Sub Supprime_Onglets()
For x = 1 To Sheets.Count
If Left(Sheets(x).Name, 4) = "SF02" Then
Sheets(x).Activate
If Range("E12").Value = 0 And Range("E12").Value <> "" Then
'Empeche les Alertes EXCEL: ici celle de la suppression d'onglet
Application.DisplayAlerts = False
'Supprime onglet
Sheets(x).Delete
End If
End If
Next x
Application.DisplayAlerts = True
End Sub
Attention vous pouvez faire reapparaitre un onglet cache, pas un onglet supprime
Bonne suite
Bonjour,
La macro pour cacher les onglet fonctionne à merveille, par contre comment fait on pour faire réaparaître les ongler cacher.
Merci de votre aide
La macro pour cacher les onglet fonctionne à merveille, par contre comment fait on pour faire réaparaître les ongler cacher.
Merci de votre aide
mic13710
Messages postés
1087
Date d'inscription
samedi 26 novembre 2005
Statut
Membre
Dernière intervention
13 mai 2021
355
20 oct. 2011 à 09:26
20 oct. 2011 à 09:26
Format/Feuille/Afficher
eriiic
Messages postés
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 243
20 oct. 2011 à 09:42
20 oct. 2011 à 09:42
Bonjour,
ou pour réafficher tous les onglet SF02xxxx :
eric
ou pour réafficher tous les onglet SF02xxxx :
Sub affOnglet()
Dim w As Worksheet
For Each w In Worksheets
If Left(w.Name, 4) = "SF02" Then
w.Visible = true
End If
Next w
End Sub
eric
merci encore de votre aide tout fonctionne à merveille.
eriiic
Messages postés
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 243
20 oct. 2011 à 12:11
20 oct. 2011 à 12:11
parfait, n'oublie pas de mettre en résolu.