Discussion :

[pat91]

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.
je cherche à tester dans ma worksheet si ma macro est active pour sortir de ce renvoi

dans la Worksheet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

sur Excel 2003
Merci

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

devient par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows("3").Copy

[pat91]

Merci Kovrax

ta première solution fonctionne très bien

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

A+