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
Partager