[VBA - Excel] Problème de deux cellules sur l'evenement OnChange

Bonjour tous le monde,

Malheuresement comme d'habitude, quand je viens soliciter de l'aide sur ce forum, c'est que j'ai un problème insolvable (pour mon humble niveau).

Le problème est le suivant, je suis entrain de develloper une application VBA-Excel, et je me retrouve face à une impasse.
En effet j'ai deux cellules qui sont calculées par des formules, mais qui viennent interagir l'une sur l'autre.

Dans la première cellule ("tonnes"), si je rentre un chiffre il est automatiquement converties en nombres de bobines correspondants dans la cellule deux ("bobine").
Le problème c'est que je dois également permettre de rentrer un chiffre dans la cellule bobine qui doit permettre de recalculer l'équivalent en tonne.

Vu que c'est sur l'évenement OnChange que les formules sont appliquées, dès qu'une de mes cellules est modifiées par la deuxième, l'évenemenent est de nouveau invoqué. Les cellules sont très vite saturée par les calcules frénétique qu'on leurs demande de faire :roll: .

Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("QteTonne").Address Then If Range("nbBobine").Value <> "=SI(IU17="";;)" Then Range("nbBobine").Value = Range("qteTonne").Value * 1000 / (Range("longueur").Value * Range("laize").Value * Range("grammage").Value / 1000000) Range("nbBobine").FormulaR1C1 = "=IF(R[0]C[3]="""",,)" End If End If If Target.Address = Range("nbBobine").Address Then If Range("QteTonne").FormulaLocal <> "=SI(H17="";;)" Then Range("QteTonne").Value = (Range("nbBobine").Value * (Range("laize").Value * Range("grammage").Value / 1000000)) / 1000 Range("QteTonne").FormulaR1C1 = "=IF(R[0]C[-3]="""",,)" End If End If   End Sub

---

J'aurais esperé que vous auriez une technique à me faire part pour contourner cette difficultée.

En vous remerciant d'avance je vous souhaite une agréable journée.

Bonjour,
tu peux essayer avec l'evenement "AfterUpdate" qui te modifira l'autre cellule une fois que tu seras sorti de ta première

Ou alors "Selectionchange" peut être

Citation:

---

Envoyé par marsupilami34

Bonjour,
tu peux essayer avec l'evenement "AfterUpdate" qui te modifira l'autre cellule une fois que tu seras sorti de ta première

---

Merci pour ta réponse rapide, mais malheuresement sur VB 6.3, cet évenement n'existe pas (ou alors je ne sais pas où aller le chercher).

As tu essayé avec "Selectionchange" ?

Citation:

---

Envoyé par marsupilami34

As tu essayé avec "Selectionchange" ?

---

je m'y emploie mais ca risque d'être un arrache cerveau car ce sont de belles référence circulaire

Hello,

Marsupilami, tu as testé les solutions que tu proposes ?

Citation:

---

Envoyé par marsupilami34

As tu essayé avec "Selectionchange" ?

---

Sinon, pour en revenir au problème, tu peux gérer ça en testant si la formule qui appelle le Change contient une formule avec .HasFormula pour distinguer une modif issue d'une saisie manuelle ou bien de ta propre macro ..

Dans cet exemple la colonne 2 sert à la saisie en Francs
la colonne 4 à celle en Euros et les conversions sont faites automatiquement.

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column = 2 Then ' saisie en franc For Each c In Target.Cells If Not c.HasFormula Then c.Offset(0, 2).FormulaR1C1 = "=IF(RC[-2]<>"""",RC[-2] / 6.55957,"""")" End If Next c ElseIf Target.Column = 4 Then 'saisie en € For Each c In Target.Cells If Not c.HasFormula Then c.Offset(0, -2).FormulaR1C1 = "=IF(RC[2]<>"""",RC[2] * 6.55957,"""")" End If Next c End If   End Sub

---

Je pense que tu peux l'adapter à ton cas précis.

Je te remercie c'est parfait ! ;)

Pour me dépanner j'utilisais pour le moment 4 cellules :
- 2 qui contenaient le résultat des calcules, mais qui n'était pas attrapé par l'évenement OnChange.
- et mes 2 cases sencés contenir le résultat dont la formule est : =caseIntermediaire

(c'est totalement incompréhensible c'est pour cela que je vais mettre le code à la suite, néanmoins ta solution est propre, je te remercie vraiment bcp pour ton aide ;)

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("QteTonne").Address Then Range("nbBobine").FormulaLocal = "=nbBobineBis" End If If Target.Address = Range("nbBobine").Address Then Range("QteTonne").FormulaLocal = "=QteTonneBis" End If End Sub

---