Macro pour supp. des onglet dès qu'il y à 1

Résolu/Fermé

claudine - 19 oct. 2011 à 16:40
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 20 oct. 2011 à 12:11

Bonjour,

Dans mon fichier ci-joint je voudrai mettre une macro pour dire dans tous mes onglet SF02... si dans la cellule E12 il y a un 0 il faut que l'onglet soit supprimer ou cacher.

Comme je ne suis pas une pro de la macro je dirai même nul je me permets de vous demander votre aide.

Merci d'avance

http://www.cijoint.fr/cjlink.php?file=cj201110/cijnduJlKS.xls

A voir également:

Macro pour supp. des onglet dès qu'il y à 1
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Rouvrir onglet fermé - Guide
Macro recorder - Télécharger - Confidentialité

4 réponses

Réponse 1 / 4

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
19 oct. 2011 à 17:23

Bonjour,

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

Réponse 2 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

Réponse 3 / 4

claudine
20 oct. 2011 à 08:55

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

mic13710 Messages postés 1088 Date d'inscription samedi 26 novembre 2005 Statut Membre Dernière intervention 13 mai 2021 354
20 oct. 2011 à 09:26

Format/Feuille/Afficher

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
20 oct. 2011 à 09:42

Bonjour,

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

Réponse 4 / 4

claudine
20 oct. 2011 à 10:42

merci encore de votre aide tout fonctionne à merveille.

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
20 oct. 2011 à 12:11

parfait, n'oublie pas de mettre en résolu.

Discussions similaires

Onglet disposition Excel ne s'affiche pas

Edge ouvir les onglets avec Google moteur de recherche

Zut, l'onglet a planté... !

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters