Macro avec compteur ?

[Nonno 94]

Bonsoir le Forum,

j'aimerais savoir s'il est possible d"imposer à une macro qui s'exécute indéfiniment de ne s'exécuter qu'une seule fois.
Si oui, comment ?

Précision : cette Macro s"exécute lorsqu'une cellule prend la valeur 1.
Cette cellule repasse à 0 quand la Macro s"est exécutée. Avec le code que j'utilise, elle "n'a pas le temps" de repasser à 0 et la Macro s"exécute donc .....indéfiniment !
Le code est le suivant :

Private Sub Worksheet_Calculate()
Sheets("Récap").Select
If Range("Q4").Value > 0 Then
Sheets("LV").Select
Sheets("LV").Copy Before:=Sheets("Récap")
Sheets("Récap").Select
End If
End Sub

Remerciements pour vos réponses et suggestions.

Nonno 94.

 

[Victor21]

Re : Macro avec compteur ?

Bonjour, Nonno 94

Ma suggestion :
Publier au moins le code...

 

[MJ13]

Re : Macro avec compteur ?

Bonjour Nonno, Victor

Souvent, il faut utiliser au début de la sub

application.enableevents = false

Puis le remettre à true avant la fin de la sub.

 

[Nonno 94]

Re : Macro avec compteur ?

Bonsoir et remerciements pour le conseil,

je n'ai plus le temps de l'essayer ce soir mais te tiendrai informé demain.
Bonne soirée.
Cordialement.

Nonno 94.

 

[Robert]

Re : Macro avec compteur ?

Bonsoir le fil, bonsoir le forum,

Je pense que la solution de Michel va résoudre ton problème. Toutefois, si tu as un bug avant de repasser sur la ligne Application.EnableEvents = True, il n'y aura plus aucune macro événementielle qui fonctionnera. On peut contourner avec un code de ce type :

Private test As Boolean 'déclare la variable test
 
Private Sub Worksheet_Calculate()
If test = True Then Exit Sub 'si la variable test est vrai, sort de la procédure
test = True 'définit la variable test
Sheets("Récap").Select
If Range("Q4").Value > 0 Then
Sheets("LV").Select
Sheets("LV").Copy Before:=Sheets("Récap")
Sheets("Récap").Select
End If
test = False 'redéfinit la variable test
End Sub

La variable test doit être déclaré en dehors de la procédure tout en haut...

 

[Nonno 94]

Re : Macro avec compteur ?

Merci por la réponse.
Je te tiendrai au courant dès demain.

Bonne soirée.
Nonno 94.

 

[ROGER2327]

Re : Macro avec compteur ?

Bonsoir à tous

Une autre proposition :

Private Sub Worksheet_Calculate()
  If Sheets("Récap").Range("Q4").Value > 0 Then
    Application.EnableEvents = 0
    On Error Resume Next 'Pour le cas où il n'existerait pas d'onglet nommé "LV".
     Sheets("LV").Copy Before:=Sheets("Récap")
    Sheets("Récap").Select
    On Error GoTo 0
    Application.EnableEvents = 1
  End If
End Sub

​

ROGER2327
#4983

Lundi 2 Pédale 138 (Saint André Marcueil, ascète cycliste, SQ)
6 Ventôse An CCXIX
2011-W08-4T23:55:42Z

 

[kjin]

Re : Macro avec compteur ?

Bonsoir,

Précision : cette Macro s"exécute lorsqu'une cellule prend la valeur 1.
Cette cellule repasse à 0 quand la Macro s"est exécutée. Avec le code que j'utilise, elle "n'a pas le temps" de repasser à 0 et la Macro s"exécute donc .....indéfiniment !

Manquerait pas qqchose pour qu'on y comprenne qqchose ?!
A+
kjin