Problème arrêt d'une macro si une cellule avec valeur = 0

Bonjour,

Je ne trouve pas la formule a rajouter dans ma macro pour que celle ci s’arrête.

La macro est trop gourmande sur une grande feuille excel, je cherche donc a d'arrêter la macro si la valeur de la case G9 est à 0 .

Je vous fais parvenir le fichier excel d'essai.

Merci d'avance de votre réponse.

Anthony

Bonjour,

à ajouter dans le module Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$G$9" Then Exit Sub
    If Target = 0 Then
        ArrêtEclairage
    Else
        Eclairage
    End If
End Sub

Mais ce code est très correct et même très astucieux. Ca m'étonnerait fort que ce soit la cause de tes ralentissements.

Regarde plutôt du coté de tes formules (matricielles trop nombreuses et/ou sur de grandes plages par exemple)

eric

Merci de votre réponse, très rapide.

Si je veux mettre une autre condition :

Si G9=0 et F15=0 et L10=0

Le code suivant serait il correct :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$G$9" And Target.Address <> "$F$15" And Target.Address <> "$L$10" Then Exit Sub
    If Target = 0 Then
        ArrêtEclairage
    Else
        Eclairage
    End If
End Sub

Si il n'y a pas de clignotement le fichier est très rapide....

Le code suivant serait il correct

Non.

Mais je pressens qu'il y a des formules dans ces cellules et que ce n'est pas une saisie, ce qui change tout.

Si il n'y a pas de clignotement le fichier est très rapide....

Faut voir la formule de MFC, c'est sans doute elle. Mais as-tu le choix...

Utilise plutôt une cellule où tu fais une saisie pour activer ou non le clignotement comme sur ta 1ère demande, ça te simplifiera la vie.

Et si ta MFC ralentit toujours le fichier il faudra réfléchir pour agir autrement mais il faudra le fichier (allégé mais pas trop simplifié).

eric

Je vais tenté de m'y pencher un peu plus tard .

Un grand merci pour ton aide.