Discussion :

[Alex BI]

Hello le forum,

Je n'arrive pas à résoudre un problème logique qui découle d'une macro worksheet change.

En gros j'ai un prix liste, un discount et un prix remisé. Ce que je veux c'est de pouvoir saisir un discount et avoir le prix remisé qui se calcul, ou saisir un prix remisé et que le discount se calcul.

Dans mon projet j'ai mes discounts en colonne K et les prix remisé en colonne L.

J'ai placé une macro sur le worksheet change :

-Si on change une valeur en colonne K alors on écris une formule de calcul du prix remisé sur la cellule d'a coté en colonne L.
-Si on change une valeur en colonne L alors on écris une formule de calcul du discount sur la cellule d'a coté en colonne K.

Le problème c'est que quand K change, je fais changer L qui fait changer K, qui fait changer L......

Bref je n'arrive pas à trouver une astuce pour sortir de la macro au bon moment pour éviter cette référence circulaire.

Si quelqu'un a une idée je veux bien.

Merci d'avance

[BENNASR]

bonjour ALEX, le forum
je sais pas si j'ai bien compris mais si par exemple vous cherchez à doublez pour la colonne B la valeur saisie en colonne A et vous divisez en deux si le saisie en colonne B vous pouvez faire avec
NB : ce n'est que le bricolage d'un autodidacte et débutant VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("A2:A20")) Is Nothing Then
        Cells(Target.Row, 2) = Cells(Target.Row, 1) * 2
    End If
      If Not Application.Intersect(Target, Range("B2:B20")) Is Nothing Then
        Cells(Target.Row, 1) = Cells(Target.Row, 2) / 2
    End If
    Application.EnableEvents = True
End Sub

[halaster08]

Bonjour,

Il faut désactiver les évènement au début de ta macro et les réactiver à la fin.
LA syntaxe ressemble à:

Code :

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

application.enableevents=false ' ou true

[Ecthelion2]

Le problème c'est que quand K change, je fais changer L qui fait changer K, qui fait changer L......

Bonjour,

dans ton évènement worksheet_change, désactive les événements (Application.EnableEvents = False) avant la modification puis réactive les après (après avoir établi quelle colonne a été modifiée) :

désactivation événements
modification formule colonne L
réactivation événements

Et pareil pour l'autre colonne.

Cordialement.

Edit: pris de cours par Halaster.

[Alex BI]

Magnifaïk

Merci beaucoup Ecthelion2, halaster08 et BENNASR pour vos réponses.

Bon week end !