Bonjour,

La première partie de mon code marche très bien, merci le forum,
ca bloque à partir du moment ou je mets deux variables pour ma boucle while. En fait je souhaite mettre une condition sur chaque cellule de mon tableau sachant que le nombre de ligne et de colonne est variable (variable car ce bout de code rentre dans un code qui vérifie chaque feuille de mon classeur)

Par avance, merci




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
Sub interieurcellule()
 
 
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
y = 3
While y < DernColonne + 1
Cells(DernLigne + 1, y).Value = Application.Average(Range(Cells(2, y), Cells(DernLigne, y)))
Cells(DernLigne + 2, y).Value = Application.StDev(Range(Cells(2, y), Cells(DernLigne, y)))
y = y + 1
Wend
 
x = 2
y = 3
While x < DernLigne + 1 And y < DernColonne + 1
If Cells(x, y).Value > Cells(DernLigne, y).Value Then Cells(x, y).Interior.ColorIndex = 3
 
x = x + 1
y = y + 1
Wend
 
End Sub