Discussion :

[APLOMB]

Bonjour le Forum et merci de me lire.
Je suis à la recherche de 2 Macros
1ère Macro:
Consiste à supprimer les onglets dont la couleur (des onglets) est (verte 719876).
2ème Macro:
Consiste à supprimer les onglets dont la cellule B11 de chaque onglet est marquée TERMINER.

Dans l'attente je vous remercie de votre réponse.

[Philippe Tulliez]

Bonsoir,
Pour les deux procédures (macros), il faut savoir comment parcourir la collection des feuilles du classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Dim wkb As Workbook, sht  As Worksheet ' Déclaration variables objets
 Dim txt$
 Set wkb = ThisWorkbook
 ' Boucle sur les feuilles du classeur où se trouve le code VBA
 For Each sht In wkb.Worksheets
   ' Le traitement de la feuille 
   txt = txt & sht.Name & vbCrLf  ' Affic
 Next
 MsgBox txt, Title:="Liste des feuilles du classeur " & wkb.Name

Pour les instructions de destruction et de coloration des onglets, tu pourrais utiliser l'enregistreur de macros pour avoir le code qui correspond à ces instructions.
Pour la 1ère procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Application.DisplayAlerts = False 'Empêche le message d'avertissement
 For Each sht In wkb.Worksheets
  With sht
   If sht.Range("B11").Value = "TERMINER" Then .Delete
  End With
 Next
 Application.DisplayAlerts = True

Pour la deuxième

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Application.DisplayAlerts = False
 For Each sht In wkb.Worksheets
  With sht
   If .Tab.Color = 719876 Then .Delete
  End With
 Next
 Application.DisplayAlerts = True

Au lieu du code couleur RGB 719876, tu peux utiliser la constante vbGreen

[APLOMB]

Merci Philippe de vous occuper de moi.

Vos macros ne fonctionnent pas parce que je n'arrive pas à les coordonner entre elles.

A quoi me sert la msgbox ????

A bientôt

[Philippe Tulliez]

Bonjour,
J'ai donné un exemple pour parcourir la collection des feuilles et l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox txt, Title:="Liste des feuilles du classeur " & wkb.Name

Affiche la variable txt qui contient la liste des feuilles du classeur parce-que construite par cette ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txt = txt & sht.Name & vbCrLf

où sht est une variable objet qui représente un feuille de cette collection qui est différente à chaque passage de la boucle.

Evidemment ce n'est certainement pas la réponse toute faite et emballée de la question posée.
Mais je pense que si l'on prend la peine de lire, analyser et tester les procédures proposées dans cette réponse tout y est pour réaliser ce que l'on cherche.
J'y ai mis en plus des commentaires.