comment tester si une macro est active ?

Bonjour le forum,

j'ai cherché sur les forums et sur les tutoriels et je n'ai pas trouvé comment tester si une macro est active ?

je m'explique ; sur une feuille lorsque l'on pointe sur la première colonne, par VBA, j'éjecte gentillement sur une cellule définie.
Par ailleurs, j'ai une autre macro qui réalise une sélection d'une ligne pour un copier coller.
Le problème; lorsque la sélection de la ligne se fait je me fais gentillement éjecter moi aussi.:aie:
je cherche à tester dans ma worksheet si ma macro est active pour sortir de ce renvoi

dans la Worksheet

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Column = 1 Then Range("b3").Select End If End Sub

---

dans ma feuille

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ajouter() ' Macro enregistrée le 16/02/2008 par   'fermeture des filtres automatiques Selection.AutoFilter   'copie la ligne avec un décallage bas Rows("3").Select Selection.Copy Selection.Insert Shift:=xlDown

---

voilà !! avec vous une idée, un état de cette macro ou un flag à placer dans cette macro pour sauter le test If .. then .. end if :cfou:

sur Excel 2003
Merci

deux solution
dans ta macro utilise application.EnableEvents (utilise :f1: si tu veux plus d'info))

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub ajouter() ' Macro enregistrée le 16/02/2008 par   'fermeture des filtres automatiques Selection.AutoFilter   'copie la ligne avec un décallage bas application.EnableEvents=false Rows("3").Select Selection.Copy Selection.Insert Shift:=xlDown application.EnableEvents=true

---

deuxième solution tu commence a prendre la bonne habitude de ne plus utiliser les .select sauf si tu veux effectivement selectionner quelque chose

Code:

---

1 2	Rows("3").Select Selection.Copy

---

devient par exemple

Code:

---

Rows("3").Copy

---

Merci Kovrax :hola:

ta première solution fonctionne très bien :ccool:

par contre, pour les select cela ne marche pas très bien lorsqu'il y a plusieurs commandes suite à la sélection ! j'ai certainement pas tout compris, je regarde tes différents postes concernant les select, mais je n'y perds un peu !

Merci pour ton aide :chin:

A+