Discussion :

[Samycool]

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 :

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

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

[BENNASR]

bonjour

Code :

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

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

[Samycool]

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.

[halaster08]

Bonjour,

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 :

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

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

[Samycool]

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 :

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

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