Discussion :

[amiinaa]

bonsoir tout le monde!
j ai un problème au niveau de mon code vba! en fait je veux récupérer le max de chaque bloc d'une colonne donnée !
il retourne les bons resultats seulement pour qlq cellules !
voila mon code !

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
Sub composition()
Dim j As Integer
Dim i As Integer
Dim compteur As Integer
Dim l As Integer
Dim max As Integer
compteur = 0   'le roulement est lebloc qui contient une cellule non coloree suivi des cellules coloree exemple A7__A10
i = 0
j = 7 ' l indice de la cellule du premier roulement
l = 7
While j + compteur < 92
 While Sheets("composition1").Range("A7").Offset(i + 1, 0).Interior.ColorIndex <> xlNone
compteur = compteur + 1
i = i + 1
  Wend
max = Application.WorksheetFunction.max(Range(Cells(j, 17), Cells(j + compteur, 17)))
 
MsgBox max
   While l < (j + compteur + 1)  ' pour remplir le bloc des cellules par le meme nombre qui est maximum/54
    Cells(l, 4) = Round(max / 54, 0)
     l = l + 1
   Wend
j = j + compteur
Wend
End Sub

(P.S:pour moi ,un bloc est defini par une cellule en blanc suivie d'autres cellules de meme couleur!)