Activation ou inactivation d'une macro en fonction d'une Valeur

[Titoy]

Bonjour à tous,

Je pense que le titre parle de lui même,

En effet je voudrais rendre active ou inactive ma macro en fonction de la valeur d'une cellule. J'ai appliqué une macro à un bouton qui me permet de supprimé des lignes avec un système de compteur. (Le Bouton inverse permettant d'ajouter des lignes existe également.) Mon problème est que quand j'arrive à 1 si je rappui sur le bouton des lignes qui n'ont pas lieu d'être modifié vont l'être et je voudrais donc désactiver ma Macro quand la valeur 1 est atteinte et la ractiver quand la valleu de la cellule est supérieur à 1.

Exemple ci-joint.

Merci de votre aide,

TITOY

 

[JCGL]

Re : Activation ou inactivation d'une macro en fonction d'une Valeur

Bonjour à tous,

Peux-tu essayer avec :

[B][COLOR="Blue"]If Range("D4") < 2 Then Exit Sub[/COLOR][/B]
 Range("D4").Value = Range("D4").Value - 1
    Rows("8:8").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

A+ à tous

 

[Titoy]

Re : Activation ou inactivation d'une macro en fonction d'une Valeur

Merci beaucoup JCGL !

C'est exatement ce dont j'avais besoin !

Bonne journée !

A bientôt

TONY