Discussion :

[developpeur82]

Bonjour,

J'ai cette fonction qui ne donne pas le resultat souhaité. Je souhaite simplement lorsque j'execute cette fonction de faire les calculs jusqu'a la ligne vide non incluse. Je ne fais aucun calcul dans la ligne ou ma cellule Cells(X,3) = "TOTO"; je passe simplement a la ligne suivante.

Merci pour votre aide,

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
21
22
23
24
25
26
27
Sub CalculateButton()
Dim Counter As Integer
Counter = 9
 
    Do
            If Cells(Counter, 3) = "TOTO" Then
                GoTo ExitIf
 
            Else
                GoTo LoopAllSheet
 
            End If
 
    Loop Until Cells(Counter, 2) = ""
 
 
ExitIf:
    Counter = Counter + 1
 
LoopAllSheet:
        Cells(ActiveCell.Row, ActiveCell.Column + 7).Value = Cells(ActiveCell.Row, ActiveCell.Column + 6).Value - Cells(ActiveCell.Row - 1, ActiveCell.Column + 6).Value
    Cells(ActiveCell.Row, ActiveCell.Column + 7).HorizontalAlignment = xlCenter
 
    Counter = Counter + 1
 
 
End Sub

[Kimy_Ire]

On m'a toujours dit d'éviter les GoTo.
Rentre dans ton "If" ce que tu as dans tes Goto.

De plus, je trouve ton code hyper compliqué... Pourquoi toutes ces "ActiveCell".

Tu dois donc placer précisément ton curseur avant d'effectuer ta macro.

Bref, je prense qu'il y a plus simple. Que veux-tu faire exactement en fait ?

Fichier exmple ?