Problème Boucle For

Bonjour,

J'ai un problème au niveau de ma boucle Pour :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

For i=0 to MaDataGridView.RowCount   If condition1 et condition2 alors mon code Elseif condition3 et conditio3n alors mon code   EndIf   If condition4 et condition5 alors mon code Elseif condition6 et condition7 alors mon code   EndIf     If condition8 et condition9 alors mon code Elseif condition10 et condition11 alors mon code   EndIf   Next

---

Mais voila, mon code ne va effectuer le code que pour les conditions 8-9 et 10-11.

Je me suis donc dit : 1 boucle pour = 1 série de condition, j'ai donc voulu faire une autre boucle Pour, mais quand je regarde en mode pas à pas détaillé, il n'y a que la première boucle qui s'effectue et après ça passe a la fin de la Sub...


Donc ma question est : Pourquoi quand je met toutes mes conditions dans une seule boucle pour, ça n'effectue que la derniere condition, et si réparti les conditions dans des boucles pour, il n'y en a qu'une qui est executée ?

Cordialement

Première intuition : ça vient du code qu'il y a dans tes conditions...
Tu peux donner le code complet ?

Bonjour,

bien sûr voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

For i = 0 To dgvDeclencheurs.RowCount       'Dates de révisions If dgvDeclencheurs.Item(4, i).Value > Date.Now.AddMonths(-1) And dgvDeclencheurs(4, i).Value < Date.Now.AddMonths(3) Then   dgvDeclencheurs.Item(4, i).Style.BackColor = Color.Black dgvDeclencheurs.Rows(i).DefaultCellStyle.ForeColor = Color.Red   ElseIf dgvDeclencheurs.Item(4, i).Value > Date.Now.AddMonths(-3) And dgvDeclencheurs(4, i).Value < Date.Now.AddMonths(3) Then   dgvDeclencheurs.Item(4, i).Style.ForeColor = Color.Orange dgvDeclencheurs.Rows(i).DefaultCellStyle.ForeColor = Color.Chocolate   End If   'Dates de piles If dgvDeclencheurs.Item(6, i).Value > Date.Now.AddMonths(+1) And dgvDeclencheurs(6, i).Value < Date.Now.AddMonths(3) Then   dgvDeclencheurs.Item(6, i).Style.BackColor = Color.Black dgvDeclencheurs.Rows(i).DefaultCellStyle.ForeColor = Color.Red   ElseIf dgvDeclencheurs.Item(6, i).Value > Date.Now.AddMonths(-3) And dgvDeclencheurs(6, i).Value < Date.Now.AddMonths(3) Then   dgvDeclencheurs.Item(6, i).Style.BackColor = Color.Black dgvDeclencheurs.Rows(i).DefaultCellStyle.ForeColor = Color.Orange   End If   'Nombre de sauts If dgvDeclencheurs.Item(7, i).Value < dgvDeclencheurs.Item(8, i).Value Then dgvDeclencheurs.Item(8, i).Style.BackColor = Color.Black dgvDeclencheurs.Rows(i).DefaultCellStyle.ForeColor = Color.Red     ElseIf dgvDeclencheurs.Item(7, i).Value * (90 / 100) < dgvDeclencheurs.Item(8, i).Value And dgvDeclencheurs.Item(7, i).Value > dgvDeclencheurs.Item(8, i).Value Then dgvDeclencheurs.Item(8, i).Style.BackColor = Color.Black dgvDeclencheurs.Rows(i).DefaultCellStyle.ForeColor = Color.Orange   End If Next

---

Et il n'y a que ce code la qui est effectué :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Nombre de sauts If dgvDeclencheurs.Item(7, i).Value < dgvDeclencheurs.Item(8, i).Value Then dgvDeclencheurs.Item(8, i).Style.BackColor = Color.Black dgvDeclencheurs.Rows(i).DefaultCellStyle.ForeColor = Color.Red     ElseIf dgvDeclencheurs.Item(7, i).Value * (90 / 100) < dgvDeclencheurs.Item(8, i).Value And dgvDeclencheurs.Item(7, i).Value > dgvDeclencheurs.Item(8, i).Value Then dgvDeclencheurs.Item(8, i).Style.BackColor = Color.Black dgvDeclencheurs.Rows(i).DefaultCellStyle.ForeColor = Color.Orange   End If

---

A mon avis le problème c'est la comparaison entre ton dgvDeclencheurs.Item(4, i).Value et le DateTime retourné par AddMonths().

As-tu essayé de le convertir avec un DateTime.Parse/TryParse ?

Merci pour ta réponse rapide, non je n'ai pas essayé de le convertir avec un DateTime.Parse/TryParse car je ne connaissais pas, et de plus, le code fonctionne parfaitement quand j'enleve le dernier bout de code ('Nb sauts).

J'ai fait un pas a pas détaillé avec espion sur mes variables au début du code, tout fonctionne mais au fur et a mesure, j'ai l'impression qu'a chaque fois que la boucle pour recommence, alors elle ne vérifie plus dgvDeclencheurs.Item(4, i).Value et le DateTime.....

Si ça marche sans parsing, c'est que ta cellule doit déjà être de type Date pour ces colonnes là.

Quel est le type de la valeur pour les colonnes 7 et 8 ?

Code:

---

dgvDeclencheurs.Item(7, i).Value * (90 / 100) < dgvDeclencheurs.Item(8, i).Value

---

Citation:

---

Si ça marche sans parsing, c'est que ta cellule doit déjà être de type Date pour ces colonnes là.

---

Oui désolé j'ai oublié de le préciser...

Pour les colonnes 7 et 8, ce sont des Smallint qui sont récupéré dans ma BDD avec un GetValue

Etant donné que l'indice des rows est de base 0, je ne comprend pas pourquoi tu n'obtiens aucune erreur dans ta boucle arrivé à i = rowCount

Code:

---

For i = 0 To dgvDeclencheurs.RowCount

---

Devrait plutôt être

Code:

---

For i = 0 To dgvDeclencheurs.RowCount -1

---

Citation:

---

Envoyé par Neiflheim

Etant donné que l'indice des rows est de base 0, je ne comprend pas pourquoi tu n'obtiens aucune erreur dans ta boucle arrivé à i = rowCount

Code:

---

For i = 0 To dgvDeclencheurs.RowCount

---

Devrait plutôt être

Code:

---

For i = 0 To dgvDeclencheurs.RowCount -1

---

---

Lorsque je commence fais For i = 1, alors la première ligne est ignorée, les composants DataGrid Commencent à 0 il me semble pourtant

Oui ils commencent bien à 0, mais ils finissent à RowCount - 1

Voici la solution à mon probleme :

Code:

---

Val(dgvDeclencheurs.Item(7, i).Value.ToString) < Val(dgvDeclencheurs.Item(8, i).Value.ToString)

---

Merci pour votre aide