Discussion :

[ALEX80800]

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 :

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

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

[Kimy_Ire]

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

[ALEX80800]

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

[Kimy_Ire]

Code :

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

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 ?

[ALEX80800]

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 ....)

[ALEX80800]

J'ai redémarré le PC

Et ça fonctionne


résolu


Un grand merci Kimy_Ire