GTmacrodeb
Expert
Bonjour à toute la communauté,
Je viens demander de l’aide car je ne parviens pas à réaliser une macro.
J’ai un fichier Excel dans lequel j’ai plusieurs feuilles dont certaines sont numérotées de 1 à 200 (correspond au nom de chaque feuille).
Je souhaite colorier l’onglet lorsque sur la feuille correspondante, la cellule H8 est complétée.
Voici les prémices du code que j’ai tenté :
Plusieurs questions :
1- comment faire pour que ce code s’applique à l’ensemble de mes feuilles numérotées de 1 à 200 sans passer par un copier/coller de cette formule (199 fois) ?
2- comment rendre cette macro automatique, c'est-à-dire qu’elle s’éxécute sans passer par une action « click » ?
3- actuellement avec ce code, lorsque j’efface le contenu de la cellule H8, l’onglet reste colorié en vert, existe-t-il un moyen pour qu’il retrouve la couleur par défaut ?
Merci d’avance pour votre aide.
Je viens demander de l’aide car je ne parviens pas à réaliser une macro.
J’ai un fichier Excel dans lequel j’ai plusieurs feuilles dont certaines sont numérotées de 1 à 200 (correspond au nom de chaque feuille).
Je souhaite colorier l’onglet lorsque sur la feuille correspondante, la cellule H8 est complétée.
Voici les prémices du code que j’ai tenté :
XML:
Option Explicit
Sub CouleurOnglet()
Dim ws_1 As Worksheet
Set ws_1 = Worksheets("1")
If ws_1.Range("H8").Value <> "" Then
ws_1.Tab.ColorIndex = 4
End If
End Sub
Plusieurs questions :
1- comment faire pour que ce code s’applique à l’ensemble de mes feuilles numérotées de 1 à 200 sans passer par un copier/coller de cette formule (199 fois) ?
2- comment rendre cette macro automatique, c'est-à-dire qu’elle s’éxécute sans passer par une action « click » ?
3- actuellement avec ce code, lorsque j’efface le contenu de la cellule H8, l’onglet reste colorié en vert, existe-t-il un moyen pour qu’il retrouve la couleur par défaut ?
Merci d’avance pour votre aide.