Feu vert sur étiquette avec une cellule de référence

[Domino4g]

Bonjour à tous
Je solicite un petit coup de main de la part d'un plus doué que moi et je l'en remercie d'avance.
Je voudrais avoir sur un onglet menu, un feu vert sur étiquette ou autre qui fait référence à une cellule sur un autre onglet.
Le but est que je sache sans aller voir sur mes différents onglets les cellules qui sont à zéro
Rouge quand ma cellule de référence est différente de zéro et vert quand c'est zéro.
Merci d'avance
Domino4g

 

[skoobi]

Re : Feu vert sur étiquette avec une cellule de référence

Bonsoir Domino4g, bienvenue sur XLD,

avec le fichier on pourra mieux t'aider. Quand tu dis onglet, tu parles de feuille je suppose, l'onglet étant ce qui se trouve en bas de la feuille (permettant de basculer d'une feuille à une autre).

 

[Domino4g]

Re : Feu vert sur étiquette avec une cellule de référence

de m'avoir répondu, je confirme je parle bien des onglets en bas, je vais essayer de joindre une ébauche de fichier que j'ai diminué pour que je puisse l'envoyer.
Merci pour ton aide.
Domino4g

 

[skoobi]

Re : Feu vert sur étiquette avec une cellule de référence

Bonjour,


Voici les 2 macros modifiées:

Sub Macro6()
With Sheets("ABADIE")
    If .Range("AC19").Value < 0 Then
        ActiveSheet.Shapes("Oval 22").Fill.ForeColor.SchemeColor = 10
    ElseIf .Range("AC19").Value = 0 Then
        ActiveSheet.Shapes("Oval 22").Fill.ForeColor.SchemeColor = 11
    End If
End With
End Sub
Sub Macro7()
With Sheets("ABOUD")
    If .Range("AB11").Value < 0 Then
        ActiveSheet.Shapes("Oval 19").Fill.ForeColor.SchemeColor = 10
    ElseIf .Range("AB11").Value = 0 Then
        ActiveSheet.Shapes("Oval 19").Fill.ForeColor.SchemeColor = 11
    End If
End With
End Sub

 

[Roland_M]

Re : Feu vert sur étiquette avec une cellule de référence

bonjour

voir fichier modifié

Roland

 

[Domino4g]

Re : Feu vert sur étiquette avec une cellule de référence

Merci beaucoup à Skoobi et à Roland M pour leur contribution à ma demande, c'est le top d'avoir des réponses aussi rapides.
Merci encore et bonne journée.
Domino4g