Boucle while avec deux variables

Version imprimable

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:

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

08/10/2015, 10h48
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).
08/10/2015, 10h52
patricktoulon

heu
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:

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
08/10/2015, 10h54
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
08/10/2015, 11h00
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:

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 ?
08/10/2015, 11h11
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:

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
08/10/2015, 11h13
patricktoulon

re

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 ?

Désolée nos réponses se croisent...

je viens d'essayer ce code et ca bloque à if
Code:

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

08/10/2015, 11h27
patricktoulon

re

re
c'est quoi le message d'erreur ?
08/10/2015, 11h29
juliette81

erreur d'éxécution 13

re
j'avoue que je ne comprend pas l'erreur 13 je ne vois pas ce qui est mal typé

en tout cas ton code pourrait ressembler a ca

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub interieurcellule()
    dernligne = Range("A" & Rows.Count).End(xlUp).Row
    For col = 3 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Application.Average(Range(Cells(2, col), Cells(dernligne, col)))
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Application.StDev(Range(Cells(2, col), Cells(dernligne, col)))
    Next
    For Each cel In Range(Cells(2, 3), Cells(dernligne , derncolonne )).Cells
       'on compare chaque cellule a la cellule du bas l'avant derniere de la meme colonne  celle qui est alimentée par la ligne en rouge 
If cel.Value > Cells(dernligne+1, cel.Column).Value Then cel.Interior.ColorIndex = 3
    Next
End Sub

08/10/2015, 11h57
juliette81

Ca marche nickel pour la première mais ensuite ca bloque.
08/10/2015, 12h01
patricktoulon

re

re
je ne sais pas utiliserais tu la variable cel aileurs des fois???
change le mot cel pour ce que tu veux

re correction

ho!! purée mille excuse encore une fois
je dois pas etre bien réveillé moi

il faut determiner derncolonne car je l'ai supprimé

Code:

1
2
3
4
5
6
7
8
9
10
Sub interieurcellule()
    dernligne = Range("A" & Rows.Count).End(xlUp).Row
    For col = 3 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Application.Average(Range(Cells(2, col), Cells(dernligne, col)))
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Application.StDev(Range(Cells(2, col), Cells(dernligne, col)))
    Next
    For Each cel In Range(Cells(2, 3), Cells(dernligne , Columns.count).End(xlToLeft)).Cells
        If cel.Value > Cells(dernligne+1, cel.Column).Value Then cel.Interior.ColorIndex = 3
    Next
End Sub

bon je devrais aller me recoucher moi :mouarf:
non vraiment des fois j'te jure 8O

et apres un bon café
et pour suivre une idée suggérée plus haut dans le post
voila les deux boucles imbriquées

Code:

1
2
3
4
5
6
7
8
9
10
Sub test()
    dernligne = Range("A" & Rows.Count).End(xlUp).Row
   For col = 3 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Application.Average(Range(Cells(2, col), Cells(dernligne, col)))
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Application.StDev(Range(Cells(2, col), Cells(dernligne, col)))
        For Each cel In Range(Cells(2, col), Cells(derligne, col)).Cells
            If cel.Value > Cells(Rows.Count, col).End(xlUp).Offset(-1, 0).Value Then cel.Interior.ColorIndex = 3
        Next
    Next
End Sub

08/10/2015, 13h47
juliette81

pour la dernière colonne, j'avais vu et corrigé (pas de pb),
et le deuxième code marche nickel....

Milles mercis.

Juliette