Onglet de couleur si visité...

[romeoldinho]

Bonjour,
J'aimerais savoir s'il est possible qu'un onglet apparaisse d'une couleur (n'importe laquelle) dès que sa feuille a été visitée ou modifiée?
exemple: dans un classeur j'ai 40 feuilles. Dans ces 40 feuilles mon équipe est censée venir inscrire des renseignements semaine après semaine. Afin d'éviter de verifier toutes les feuilles peut-être y'a t'il un moyen pour que celles qui ont été visitées ou modifiées puisse apparaitre d'une couleur par l'intermédiaire de l'onglet. Ainsi je ne vérifie que celles-ci.
Je ne sais pas si c'est bien clair mon histoire?!

Merci pour votre aide si une solution existe.
Cordialement
Roméo

 

[jeanpierre]

Re : Onglet de couleur si visité...

Bnsoir romeoldinho et Bienvenue sur le forum,

Regarde ce lien : Gestion des événements

Il devrait te convenir.

Bonne nuit

Jean-Pierre

 

[ROGER2327]

Re : Onglet de couleur si visité...

Bonsoir à tous

Une suggestion simpliste, qu'on peut à coup sûr perfectionner.
Le code

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
   Me.Tab.ColorIndex = 3
End Sub[/B][/COLOR]

placé dans le module d'une feuille de calcul colorie son onglet en rouge dès qu'une modification de la feuille se produit.

On peut, par exemple, restreindre la prise en compte des modifications à une plage donnée en écrivant_:

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Me.Columns(1)) Is Nothing Then Me.Tab.ColorIndex = 3
End Sub[/B][/COLOR]

Dans ce cas, seule une modification dans la première colonne provoquera le coloriage de l'onglet.

Pour supprimer le coloriage de tous les onglets des feuilles de calcul, on peut utiliser :

[COLOR="DarkSlateGray"][B]Sub RAZ()
Dim i&
   For i = 1 To Worksheets.Count
      Worksheets(i).Tab.ColorIndex = -4142
   Next i
End Sub[/B][/COLOR]

placé dans un module standard.

La réponse peut sembler assez vague, mais la question n'étant pas très précise en ce qui concerne les modifications à prendre ou à ne pas prendre en compte, difficile d'être plus précis.
​

ROGER2327
#3343

 

[BOISGONTIER]

Re : Onglet de couleur si visité...

Bonjour,

-Onglet en jaune si visite
-Onglet en rouge si modif dans feuille

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If Sh.Tab.ColorIndex <> 3 Then Sh.Tab.ColorIndex = 6
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Sh.Tab.ColorIndex = 3
End Sub

JB
Formation Excel VBA JB

 

[romeoldinho]

Re : Onglet de couleur si visité...

Bonjour,
Merci Jean Pierre, merci ROGER2327, merci JB pour vos explications.
Etant assez novice dans le language "macro" si il s'appelle ainsi ?!?...
J'ai opté pour la solution à JB qui me parraissait la plus proche de ce que je voulais
Et cela fonctionne parfaitement, merci et encore merci.
Dernière chose, et sans aller dans le tunning, est-il possible de créer une condition
pour qu'une cellule clignote?
Par avance merci,
Roméo