Discussion :

[buhrne]

Et hop, deuxième post de la journée.

Reproblème.
J'ai besoin d'analyser une plage de cellule selon 2 critères.
Pour cela j'ai créé une boucle for next qui analyse ma plage avec ce 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
 
Dim i As Integer
Dim limhaute
Dim limbasse
 
limhaute = Range("F1").Value
limbasse = Range("F2").Value
 
For i = 0 To 15
If Cells(15 - i, 1).Value >= limhaute Then
Cells(15 - i, 1).Style = "style x"
Cells(15 - i, 1).Activate
Exit For
End If
Next i

Ce qui me met en noir la dernière cellule à remplir le critère N°1 et active cette cellule.
Maintenant je voudrais analyser le reste de ma plage selon un autre critère à partir de cette cellule active.

Mais pour l'instant je coince un poil!!

[ouskel'n'or]

i te donne le N° de ligne... Pour analyser la suite de ta plage, tu fais une boucle partant de i

Code :

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

For j = i to derniereligne

Par contre, si tu ne trouves pas la données, ton i sera = à 16. Si cette éventualité est possible, j'utiliserais un boolean

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim ok as boolean
For i = 0 To 15
If Cells(15 - i, 1).Value >= limhaute Then
    Cells(15 - i, 1).Style = "style x"
    Cells(15 - i, 1).Activate
    Ok = True
    Exit For
End If
Next i
If ok then
     For j = i to derniereligne
        ...
     Next
End if

[buhrne]

Ok ça fonctionne en reprenant j = i.
C'est une méthode que je ne connaissais pas.
Mais c'est normal aussi, je suis encore une bite en vba

Merci et à tout à l'heure sûrement pour un nouveau problème!!!!

[ML0808]

j'anticipe alors!

si tu vas de 0 à 15 concernant i alors ton 15 - i ira de 15 à... 0 ! et tu auras un bug (je pense).
Prends i de 0 à 14

Bonne journée

[ouskel'n'or]

Comprends pas. Si la donnée n'est pas trouvée dans la première boucle, alors i aura 16 pour valeur. 16 devient la ligne suivante. Donc la boucle suivante commence à la ligne 1 de la recherche commençant sur la ligne i.
Précise ce que tu veux dire.
A+

Edit
J'ajoute que si la donnée n'est pas trouvée on n'entre pas dans la boucle suivante...

[ML0808]

Je sais pas, ça se trouve je raconte n'importe quoi!

Je pensais que dans cette partie là :

Code :

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

1
2
For i = 0 To 15
If Cells(15 - i, 1).Value >= limhaute Then

Lorsque i = 15 alors is cherchera :

Code :

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

If Cells(0, 1).Value >= limhaute Then

et buggera... je dis du caca?