Boucle sur Target Address

Bonjour,

Je cherche à empêcher l'evénement sélection change sur une référence on va dire circulaire.

Voilà j'ai un code qui effectue une multiplication sur le target.offset (-2,0)

Sauf que ce code s'applique aussi sur le Range de cet offset (-2,0)

Donc forcément, je ne sais quel terme on emploie pour VBA, mais ceci correspon à une référence circulaire

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Worksheet_Change(ByVal Target As Range)     Dim TxE As Range, Intersection As Range, o As Range, p As Variant   Set TxE = Range("AD338:AY338") Set HP = Range("AD336:AY336")   p = Target.Offset(-1, 0).Value   If Not Intersect(TxE, Target) Is Nothing And Target.Count = 1 Then Target.Offset(-2, 0).Value = p * Target.Value End If If Not Intersect(HP, Target) Is Nothing And Target.Count = 1 Then Target.Offset(2, 0).Value = p / Target.Value End If       End Sub

---

J'aurais besoin soit de dire à Vba de ne ne pas intervenir ou de trouver une autre solution que je n'ai pas à brule pour point

Merci de votre aide

Bonjour ALEX80800,

Sauf erreur de ma part, ton code dit :
1) Si je modifie une (et une seule) cellule de la range AD338:AY338, alors écrit dans la cellule de la range AD336:AY336 correspondante (deux cases au dessus) le résultat de la multiplication des deux cellules des lignes 338 et 339.

ou alors,

2) Si je modifie une (et une seule) cellule de la range AD336:AY337, alors écrit dans la cellule de la range AD338:AY338 correspondante (deux cases en dessous) le résultat de la division des deux cellules des lignes 337 par 336.

Que veux-tu donc faire exactement ?

Cordialement,
Kimy

Oui c'est cela. Mais par exemple si je modifie une cellule de la ligne 336 la 338 effectuera la division et comme celle-ci a fait l'objet d'un changement la ligne 336 va effectuer la multiplication et ainsi de suite d'où une boucle infinie

Code:

---

1 2 3 4 5 6 7 8

Application.EnableEvents = False If Not Intersect(TxE, Target) Is Nothing And Target.Count = 1 Then Target.Offset(-2, 0).Value = p * Target.Value End If If Not Intersect(HP, Target) Is Nothing And Target.Count = 1 Then Target.Offset(2, 0).Value = p / Target.Value End If Application.EnableEvents = True

---

Avec ceci, ça marcherait ?

Super ca marche!!!
j'ai réessayé une deuxième fois et bizarement le worksheet change ne réagit plus au changement même en enlevant "Application.EnableEvents "

j'ai ouvert un autre fichier xlsm et pareil plus de macro qui s'éxecute (workbook open ....)

J'ai redémarré le PC

Et ça fonctionne


résolu


Un grand merci Kimy_Ire