Boucle while avec deux variables

**juliette81** · 08/10/2015, 11h34

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** · 08/10/2015, 11h48

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).

**patricktoulon** · 08/10/2015, 11h52

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

**juliette81** · 08/10/2015, 11h54

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** · 08/10/2015, 12h00

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** · 08/10/2015, 12h11

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** · 08/10/2015, 12h13

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 ?

**juliette81** · 08/10/2015, 12h18

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

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

Code :

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

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

**patricktoulon** · 08/10/2015, 12h27

re
c'est quoi le message d'erreur ?

**juliette81** · 08/10/2015, 12h29

erreur d'éxécution 13

**patricktoulon** · 08/10/2015, 12h46

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 :

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

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

**juliette81** · 08/10/2015, 12h57

Ca marche nickel pour la première mais ensuite ca bloque.

**patricktoulon** · 08/10/2015, 13h01

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

**patricktoulon** · 08/10/2015, 13h13

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 :

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

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

non vraiment des fois j'te jure

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 :

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

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

**juliette81** · 08/10/2015, 14h47

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

Milles mercis.

Juliette

Boucle while avec deux variables

Macros et VBA Excel

Discussions similaires

Partager

Partager