Discussion :

[arsenic1]

Bonjour,

Dans une macro j'ai une boucle en While qui me récupère un montant.
Or je dois encore récupéré d'autre montant, pour cela je fais un do While.
Mais comment dois-je faire pour ne pas perdre le 1er montant?

Pouvez vous m'aider svp?
Merci d'avance

[Invité]

Bonjour

Avec le code ce serait mieux.

Philippe

[arsenic1]

Le code n'est pas tout a fait fini encore.
J'aimerais juste savoir comment garder le montant de la première boucle.

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
28
29
deb = 0
fin = 0
i = 1
 
Do
 
 
While deb = 0 Or fin = 0
 
If (Sheets("Suivi").Cells(i, 8).Interior.Color = 16711422) Then
    If deb = 0 Then
        deb = i + 1
    Else
        fin = i - 1
    End If
 
End If
i = i + 1
Wend
 
 
For j = deb To fin
    mtt = mtt + Cells(i, 10)
Next
deb = 0
fin = 0
 
 
While Sheets("Suivi").Cells(i, 8).Interior.Color <> macouleur

[Mr.Mof]

Bonjour,

Tu pourrais peut être utiliser un tableau dynamique pour mémoriser tes montants à chaque sortie de ta boucle.

Cordialement.

[arsenic1]

Et utiliser la fonction tab?
Comment faut-il faire, je ne connais pas cette fonction?

[Mr.Mof]

Tu crées un tableau de Single de taille variable et un integer pour ton indice que tu initialise à 0.
Lorsque tu sort de ta boucle For, tu insert ton montant dans ton tableau et tu incrémente ton indice.

http://silkyroad.developpez.com/vba/tableaux/

Voila ça devrait te permettre de conserver tes valeurs dans un tableau.

[arsenic1]

Merci bien!