Discussion :

[juliette81]

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

[Philippe Tulliez]

Bonjour,
Tu incrémentes en même temps les variables x et y qui je suppose représentent les numéros de lignes et colonnes. C'est donc normal que cela ne réponde pas à tes attentes.
Privilégie l'utilisation de deux boucles imbriquées (For...To...Next).

[juliette81]

Merci de votre retour,

Ok pour For To Next, si je commence ligne par ligne d'une même colonne (oK) mais comment je la nomme cette colonne puisqu'elle est variable. Vraiment je ne comprends pas (et pourtant j'ai cherché).

Merci

[patricktoulon]

re
tu n'a pas bien examiner la ligne 1 "for .....)
je prend en compte toute les colonne et les lignes de la plage determineé par la ligne 2 a la derniere et colonne3 jusqu'a la derniere

donc cel sera a chaque tour de boucle for
cells(2,3),cells(2,4),cells(2,5) etc......jusqu'a derncolonne et passe a la ligne suivante
cells(3,3),cells(3,4),cells(4,3) etc....
etc etc .....

mille excuses je t'ai induit en erreur

c'est plutot ca

Code :

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

1
2
3
For Each cel In Range(Cells(2, 3), Cells(dernligne + 1, derncolonne + 1)).Cells
If cel.Value > Cells(dernligne, cel.Column).Value Then Cel.Interior.ColorIndex = 3
Next

en gros ca compare la cel a la derniere cellule de la meme colonne c'est bien ca que tu veux ?

[juliette81]

Mais ma réponse concernait la réponse de PatrickTulliez et non Patricktoulon,

Merci Patricktoulon,

j'ai esayé le code en l'adaptant, mais ca colore de façon aléatoire. En fait ma DernLigne+1 est la moyenne des cellules au dessus et je veux comparer chaque cellule à cette moyenne.

Code :

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

1
2
3
4
y = 3
For Each Cel In Range(Cells(2, 3), Cells(DernLigne, DernColonne)).Cells
If Cel.Value > Cells(DernLigne + 1, y).Value Then Cel.Interior.ColorIndex = 3
Next

[patricktoulon]

re
oui j'ai corrigé en post #5

si je ne me trompe pas le "+1" a dernligne et derncolonne est en trop
pour faire bien il faudrait un exemple de ta feuille avec le resultat bon pour comprendre ce que tu cherche a faire
car c'est un peu incohérent avec ta premiere boucle while
car ta derniere ligne et derniere colonne change apres la 1 ere boucle

et toi tu utilise la variable dernligne et derncolonne en 2 boucle
donc la partie qui a été ajouté en 1 ere boucle n'est pas pris en compte par la 2 eme
tu comprends ca ?

[patricktoulon]

bonjour juliette

dans ta 2 boucle tu utilise dernligne et derncolonne
bien evidement tu te rends bien compte que se ne sont plus les dernieres lignes et colonne apres etre passée par la 1 ere boucle while
si pour toi c'est bon pour ces deux dernieres variables
je te propose plus simple

Code :

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

1
2
3
For Each Cel In Range(Cells(2, 3), Cells(dernligne + 1, derncolonne + 1)).Cells
If Cel.Value > Cells(dernligne, y).Value Then Cel.Interior.ColorIndex = 3
Next