[AC-2003] soustraction entre les cellules

[johndi]

Bonjour à tous,

Je souhaiterai obtenir de l'aide sur ma macro qui ne fonctionne pas.

C'eest une soustraction entre deux cellules. ensuite je demande de comparer avec une autre cellule , si celle-ci est supérieur c'est ok mais si c'est inférieur je déplace une des cellule qui à été soustraite.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim z As Integer
Dim E As Integer
E = 2
Do While Not IsEmpty(Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 2))
z = 1
    Do While Not IsEmpty(Workbooks("COMPTSAP.txt").Worksheets("COMPTSAP").Cells(z, 1))
        If Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 2).Value = Workbooks("COMPTSAP.TXT").Worksheets("COMPTSAP").Cells(z, 1).Value Then
            If Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 9).Value - Workbooks("COMPTSAP.TXT").Worksheets("COMPTSAP").Cells(z, 2).Value > Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 5).Value Or _
            Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 9).Value - Workbooks("COMPTSAP.TXT").Worksheets("COMPTSAP").Cells(z, 2).Value < Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 4).Value Then
            Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 11).Value = Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 9).Value
            Workbooks("Macro Compteur Psion.xls").Worksheets("export import").Cells(E, 9).ClearContents
            Exit Do
            End If
        End If
        z = z + 1
    Loop
E = E + 1
Loop

J'espère que je suis assez claire.

Merci d'avance pour votre aide.

[Kloun]

Bonjour,

C'est quoi qui ne fonctionne pas ?

[johndi]

Bonjour,

Pour etre plus claire:

Dans ma colonne A= 20
"" "" B= 100
C= 70
D=10

Donc ce que je voudrais: Si B - C > A or B - C < D alors il efface la cellule B pour l'insérer dans E sinon elle reste tel quel.

mais voila, le probleme est quand la boucle atteind la cellule B est la met directement en erreurs sans faire de calcule. donc toutes mes valeurs sortent en erreurs.

Je n'ais aucun message d'erreurs ni aucun prob pour le fonctionnement de la macro.

Merci pour votre aide

Cdl