Discussion :

[champmart]

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 .

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

[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

Ou alors "Selectionchange" peut être

[champmart]

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

[marsupilami34]

As tu essayé avec "Selectionchange" ?

[champmart]

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

[cafeine]

Hello,

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

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 :

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

[champmart]

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 :

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

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