XL 2016 alerte par couleur et nom d'un onglet.

[eastwick]

Bonsoir à toutes et tous,

Je souhaiterais qu'un de mes onglets prenne la couleur rouge et (si possible) se renomme ALERTE si la moindre de ses cellules contient un pourcentage supérieur à 100%.
N'importe quelle cellule, je précise pour l'inutilité d'un fichier.
Je vous remercie grandement !

 

[fanch55]

Bonsoir,
Code à mettre dans celui de la feuille :

Option Explicit
Private Sub Worksheet_Activate()
    Over100
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Over100
End Sub
Private Sub Over100()
Dim Plage   As Range, Cel   As Range
Dim Fc      As String
Dim P       As Variant
    On Error Resume Next
    Set Plage = Me.UsedRange.Cells
    Me.Tab.Color = False
    Set Cel = Plage.Find("*%", , xlValues, xlWhole): Fc = ""
    Do While Not Cel Is Nothing
        If Fc = "" Then Fc = Cel.Address
        P = Split(Cel.Text, "%")
        Select Case True
        Case UBound(P) > 1
        Case UBound(P) = 0
        Case Val(P(0)) > 100
            ActiveWorkbook.Names.Add "SaveMe", RefersToR1C1:="=""" & Me.Name & """"
            Me.Tab.Color = vbRed
            Me.Name = "Alerte"
            Exit Do
        Case Not IsError([saveme])
            Me.Name = [saveme]
            ActiveWorkbook.Names("SaveMe").Delete
        End Select
        Set Cel = Plage.FindNext(Cel)
        If Cel.Address = Fc Then Set Cel = Nothing
    Loop
End Sub

Mais attention au rename de la feuille qui peut casser les liens entre feuilles ...

 

[eastwick]

Merci bien