Comment exécuter une seule fois un IF ?

Bonjour à tous,

Je viens d'éditer une macro, qui a pour but de copier la date de la cellule B5 dans B8 si la valeur de la cellule E5 est >1
Le problème est qu'elle s'exécute en boucle est finie par planter... :(

Savez vous comment faire pour que la macro ne s'exécute, qu'une seule fois, à chaque changement de valeur dans E5 ?

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range)   If [E5] > 1 Then Range("B5").Select Selection.Copy Range("B8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss" End If End Sub

---

bonjour

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("B8").Value = "" If Range("E5").Value > 0 Then Range("B8").Value = Range("B5").Value End If Range("B8").NumberFormat = "dd/mm/yyyy hh:mm:ss" End Sub

---

Merci de ta réponse

Cependant, le problème s'est déplacé du coup...

Je faisais un collage spécial car j'ai besoin de figer la date: la date de la cellule B5 et la valeur de E5 sont en fait extrait de signaux de régulation.
J'ai besoin de capturer la date au moment où le bit lu sur E5 monte à 1.
Avec le code que tu proposes la date s'actualise tant que le bit est à 1.

Bonjour,

Citation:

---

Envoyé par Samycool

Savez vous comment faire pour que la macro ne s'exécute, qu'une seule fois, à chaque changement de valeur dans E5 ?

---

Si ce n'est pas déjà fait je t'invite à lire ce tuto sur les évènement: https://silkyroad.developpez.com/VBA...Feuille/#LII-E

Tu utilise une macro évènementielle qui se déclenche a chaque modification de ta feuille et cette macro modifie la feuille donc se déclenche elle-même d'où la boucle infinie. Pour résoudre ce problème tu dois désactiver les macros évènementielles pendant l'exécution de cette macro et les réactiver ensuite grâce à la commande "application.enableevents = false / true"
Pour ne la déclencher qu'au changement de valeur dans la cellule E5 il suffit d'utiliser le paramètre Target de cet évènement:

Code:

---

1 2 3

If Target.Address = Range("E5").Address Then 'ton code end if

---

Merci de ton conseil

Au final je me suis débrouillé autrement en comparant l'état du bit à la seconde n-1 avec la seconde n, pour capturer la date au moment où il passe à 1.

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("F3").Value > Range("F2").Value Then Range("B8").Value = Range("B5").Value End If End Sub

---