Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Excel-VBA.Supprimer feuilles suivant couleur d' onglets.

 

LOGICIELS : sesostris SECURITE : Sohome et 67 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Excel-VBA.Supprimer feuilles suivant couleur d' onglets.

RÉSOLU
Prévenir les modérateurs en cas d'abus 
BJ22
bj22
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 02/10/2013 à 11:10:52  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,

Je voudrais en fin d' une macro supprimer toutes les feuilles dont l' index est de couleur verte.

Ceci mettra fin à la procédure concernant mon autre post sur "les à nouveaux" (sans réponse actuellement).

Merci d' avance.

BJ22

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 02/10/2013 à 11:40:11  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour jean,

voici vite fait une ptite macro pour supprimer tes onglets verts

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub supprimerongletvert()
  2.  
  3.  Application.DisplayAlerts = False
  4.  
  5.  For Each sh In Worksheets
  6.    If sh.Tab.ColorIndex = 35 Then sh.Delete
  7.  Next
  8.  
  9.  Application.DisplayAlerts = True
  10. End Sub


à toi de choisir ta couleur verte:35,4,50...

quant à ton autre post, ton lien n'est pas valide.
 :hello:
Message édité par Tintin10 le 02/10/2013 à 15:13:22

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
bj22
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 03/10/2013 à 09:00:26  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour Willy

Merci de ta réponse rapide.

J' ai eu d' abord le message ci-dessous:

"Erreur de compilation
Variable non défini".

J'ai ajouter l'instruction suivante:

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Dim Sh As Variant


Hélas, la macro ne fonctionne pas, ou bien j' ai encore fait une erreur, j' ai pourtant procédé par copier-coller.

Pour mon autre post c'est la première fois que j'utilise "C.joint" et sans succès, bien que j' ai eu un message d' enregistrement correct.

Cordialement,
BJ22

Edit par Tintin10 : rajout balises de code
Message édité par Tintin10 le 03/10/2013 à 10:38:20
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 03/10/2013 à 09:29:35  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour jean,

la macro toute seule devrait bien fonctionner, sauf si tu l'as incluse dans un autre programme avec la commande "explicit" qui t'impose de déclarer tes variables,
comme Dim Sh as sheets

ton bug proviendrait du sh.tab.colorindex non reconnu par Excel 2007
mais ecrire sh.tab.color =5296274
à bientôt
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub SupprimerCouleurs()
  2.  'Touche de raccourci du clavier: Ctrl+Shift+R
  3.  Application.DisplayAlerts = False
  4.  For Each sh In ActiveWorkbook.Sheets
  5.    If sh.Tab.Color = 5296274 Then sh.Delete
  6.    Next
  7.  Application.DisplayAlerts = True
  8. End Sub
Message édité par Tintin10 le 09/10/2013 à 20:00:14

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
bj22
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 09/10/2013 à 17:38:07  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir,

La macro ne fonctionne pas:

"Erreur de compilation
Membre de méthode ou de données introuvables."

Pour: .Tab

Cordialement,
BJ

(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 09/10/2013 à 18:10:57  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonsoir,

voici un fichier demo qui fonctionne sous ta version d'Exel 2007
http://cjoint.com/?CJjujjx1DTQ

 :hello:
Message édité par willyplaisir le 10/10/2013 à 11:26:57

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
celine84
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 10/10/2013 à 00:57:17  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,

Merci pour cette macro... ;)

Bonne journée :)
Message édité par Céline84 le 10/10/2013 à 01:01:04
bj22
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 10/10/2013 à 08:40:27  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour Willy

Un grand merci, la macro fonctionne à merveille.

J' ai vu avec satisfaction que ton travail a été utile pour une autre utilisatrice.

Cordialement,
BJ

(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 10/10/2013 à 11:26:01  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
content pour toi
 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
 Page :
1

Aller à :
 

Sujets relatifs
IObit Unlocker : comment débloquer, modifier ou supprimer un fichier ou un dossi  
Plus de sujets relatifs à : Excel-VBA.Supprimer feuilles suivant couleur d' onglets.

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Mise en forme conditionnelle 1
Statistiques sur Outlook 0
EXCEL-A nouveau 3
Excel Sous-total Plan 7
desinstallation office 2010 OEM 4