alerte clignotante

[jg14210]

Bonjour,
voici mon petit probleme : Je voudrais que l'image que j'ai créee ne se voit, que, lorsqu' un resultat de ma plage de cellule D18:d29 et D37😀48 est superieur à 60.
Je suis en panne sèche.
Merci d'avance pour votre aide.

 

[tototiti2008]

Re : alerte clignotante

Bonjour jg14210,

Bienvenue sur XLD,

peut-être comme ça

Sub Message()
Dim cel As Range
    For Each cel In Range("d18:d29,d37:d48")
    If IsNumeric(cel) And cel > 60 Then
        ActiveSheet.Shapes("alerte").Visible = True
        Exit Sub
    End If
    Next cel
    ActiveSheet.Shapes("alerte").Visible = False
End Sub

mais je me demande si les plages spécifiées dans la macro sont justes....

 

[jg14210]

Re : alerte clignotante

Merci
mais ou je mets sujet resolu