tourne en boucle

[francky]

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