Supprimer des feuilles suivant couleur onglet

[JB22]

Bonjour,

Dans un dossier EXCEL j' ai un nombre variable de feuilles.
Je voudrais, par macro, supprimer toutes les feuilles dont l' onglet est de couleur verte.
Je précise que dans les feuilles à supprimer la valeur de la cellule B3 est à 2.

Merci d' avance pour l' aide apportée.

Cordialement,
JB22

 

[Papou-net]

Re : Supprimer des feuilles suivant couleur onglet

Bonjour JB22, et bienvenue à toi,

Pas bien compris l'énoncé de ta question.

Est-ce que la cellule B3 comporte le n° de couleur de l'onglet ?

Dans tous les cas, un fichier exemple reproduisant la structure de ton fichier, et sans données confidentielles, serait souhaitable.

A +

Cordialement.

 

[Dull]

Re : Supprimer des feuilles suivant couleur onglet

Salut JB22

Bonjour,

Dans un dossier EXCEL j' ai un nombre variable de feuilles.
Je voudrais, par macro, supprimer toutes les feuilles dont l' onglet est de couleur verte.
Merci d' avance pour l' aide apportée.
Cordialement,
JB22

Tout dépends de la couleur Verte🙂

un essai avec ce code et macouleurpréférée🙂

Option Explicit

Sub EssAi()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Sheets
Application.DisplayAlerts = False
If Ws.Tab.ColorIndex = 10 Then Ws.Delete
Application.DisplayAlerts = True
Next Ws
End Sub

ATTENTION: Action irrémédiable à utiliser sur une copie de ton fichier

pour

Je précise que dans les feuilles à supprimer la valeur de la cellule B3 est à 2.

peux tu préciser ta pensée illustrée d'un fichier conforme a ton attente.

EDITION: Oupps... Salut papou-net🙂 Pas rafraichit😱

Bonne Journée

 

[DoubleZero]

Re : Supprimer des feuilles suivant couleur onglet

Bonjour à toutes et à tous,

Bienvenue sur XLD, JB22 !

Je voudrais, par macro, supprimer toutes les feuilles dont l' onglet est de couleur verte.
Je précise que dans les feuilles à supprimer la valeur de la cellule B3 est à 2.

Quel est le rapport entre la couleur d'onglet et la valeur de B3 😕 ? Comme le disent mes camarades, le fichier de travail, dépourvu de données confidentielles me semble nécessaire.

En attendant, je ne peux m'empêcher...

Option Explicit
Sub Citron_vert_spécial_Dull()
Dim ws As Worksheet
Dim citronvert As Variant
citronvert = 5287936 'à adapter
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Tab.Color = citronvert Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub

Bises à Papou-net et Dull 😀😀 !

A bientôt 🙂

 

[JB22]

Re : Supprimer des feuilles suivant couleur onglet

Bonsoir,

Un grand merci, la macro fonctionne à merveille.

C'est ma première demande sur le forum, je ne sais pas encore mettre des pièces jointes, mais cela viendra...

En ce qui concerne la cellule B3, aucun lien direct avec la couleur d'onglet, mais c'était un autre moyen d'identifier les feuilles à supprimer.

Encore merci pour cette réponse rapide.

Cordialement,
JB22