Discussion :

[tetro27]

Bonjour, ma deuxième boucle ne fonctionne pas et je ne comprend pas pourquoi voici mon code ( j'ai mis en rouge la section qui ne fonctionne pas(selon moi)):

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
Dim r As Integer
Dim c As Integer
Dim rr As Integer
Dim cc As Integer
c = 3
r = 15
rr = 7
cc = 4
Sheets("histo").Select
Do Until Sheets("histo").Cells(15, c) = ""
    Do Until Cells(r + 1095, c) = ""
    
            Sheets("rendement").Cells(rr, cc) = (Sheets("histo").Cells(r + 1095, c) - Sheets("histo").Cells(r, c)) / Sheets("histo").Cells(r, c)
        rr = rr + 1
    r = r + 1
    Loop
cc = cc + 1
c = c + 1
Loop


End Sub

[Pierre Fauconnier]

Salut.

Ca veut dire quoi "ne fonctionne pas"? De plus, il me semble que ce que tu as mis en rouge se trouve dans la première boucle et non dans la seconde...

Cela dit, ta première boucle ne sera exécutée que si Sheets("histo").Cells(15, 3) n'est pas vide.

La meilleure façon de déboguer une boucle ni ne fonctionne pas bien est de passer en pas à pas sur la boucle et de vérifier les variables faisant partie de la condition de sortie.

[tetro27]

Alors comment puis-je dire en VBA fait la colonne 3 (toutes les lignes) ensuite change de colonne et recommence.

P.S: en se moment elle ne fait que la colonne 3

[Pierre Fauconnier]

Et en modifiant la ligne 10 du code que tu as donné comme suit:

Code :

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

Do Until Sheets("histo").Cells(r+1095, c) = ""

ça fonctionne mieux?