tourne en boucle

Bonsoir a tous

Comment je pourrai faire pour eviter que ce programme tourne en boucle mais le garder dans worksheet / change

Dim tmp As Integer

tmp = Range('A2')
Range('a2') = tmp + Range('A1')

[Enzobob]

Bonsoir Francky

Je ne sais pas si j'ai compris ce que tu souhaite,
as tu essayé ca,

Private Sub Worksheet_Activate()
Dim tmp As Integer

tmp = Range('A2')
Range('a2') = tmp + Range('A1')

End Sub
la macro ne tourne pas en boucle, mais uniquement quand tu active la feuille où tu veux ton résultat.

A +

[Charly2]

Bonsoir Francky et Enzobob,

Deux solutions, mais je préconise la première :

1)
Dim InChange As Boolean

Private Sub ... ()
**If Not InChange Then
****InChange = True
****Ton code
****InChange = False
**End If
End Sub

2)
Private Sub ... ()
**Application.EnableEvents = False
**Ton code
**Application.EnableEvents = True
End Sub

Voili voilà

Amicalement
Charly