Macro excel éxécution automatique d'une macro si changement de valeur

ERIC S

XLDnaute Barbatruc

• 4 Novembre 2009

• #2

Re : Macro excel éxécution automatique d'une macro si changement de valeur

Bonjour

D65536 et non pas B65536

 

Vote positif 0 Vote négatif

6

6xela

Guest

• 4 Novembre 2009

• #3

Re : Macro excel éxécution automatique d'une macro si changement de valeur

C'est corrigé mais ça ne marche pas... Le code fonctionne si je change manuellement la valeur de la cellule de la colonne D mais pas si celle-ci change à cause de la formule qu'elle contient

 

Vote positif 0 Vote négatif

6

6xela

Guest

• 4 Novembre 2009

• #4

Re : Macro excel éxécution automatique d'une macro si changement de valeur

J'ai corrigé .
Merci.
Ça ne marche toujours pas. En fait le code fonctionne si je change manuellement la valeur de la cellule mais pas si ce changement résulte de la formule que la cellule contient.

 

Dernière modification par un modérateur: 4 Novembre 2009

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 4 Novembre 2009

• #5

Re : Macro excel éxécution automatique d'une macro si changement de valeur

Bonsoir 6xela et Bienvenue sur le forum, ERIC S,

Peut-être avec : If Range("D" & i).Value = 0 OR Range("D" & i).Value = "" Then Rows(i).Delete

Bonne soirée.

Jean-Pierre

Edit : Pfiou, à côté moi... voilà ce que c'est de ne lire qu'à moitié

 

Dernière édition: 4 Novembre 2009

Vote positif 0 Vote négatif

G

Guest

Guest

• 4 Novembre 2009

• #6

Re : Macro excel éxécution automatique d'une macro si changement de valeur

Bonsoir,

Soit tu mets ta macro dans l'évènement Calculate de ta feuille, mais elle se lancera à chaque calcul de la feuille (pénible et long) soit dans la ligne:

If Not Application.Intersect(Target, Range("$D$1:$D$1000")) Is Nothing Then

Tu mets l'adresse des cellules qui font changer les valeurs de la colonne D.

Autre petit conseil pour accélérer les choses rajoute les lignes en rouge ci-dessous, sinon à chaque suppression de ligne ta macro sera rappelée et relancée en la rappelant encore et encore:

Code:

       [COLOR=red]Application.EnableEvents = False[/COLOR]
        For i = [B65536].End(xlUp).Row To 2 Step -1
            If Range("D" & i).Value = 0 Then Rows(i).Delete
        Next
        [COLOR=red]Application.EnableEvents = True[/COLOR]

A+
[Edition] Bonsoir eric

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 4 Novembre 2009

• #7

Re : Macro excel éxécution automatique d'une macro si changement de valeur

re

tu risques d'être obligé de passer par calculate et non change

mais cela risque de multiplier les boucles....

Désolé je suis pris maintenant, bonne chance

 

Vote positif 0 Vote négatif