VB ; if avec plusieurs conditions

[invite1038f851]

Bonjour,
je me permets de vous solliciter pour une tite question par très compliquée je pense mais dont je ne trouve pas la solution :

J'ai écris le code suivant mais les conditions de mes if pose pb...

Dim i, j As Integer
j = Liste.Lstb_pts.ListCount - 1
For i = 0 To j
If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i - 1, 3) <> 0 Then
tdep = Lstb_pts.List(i - 1, 3)
End If
If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i + 1, 3) <> 0 Then
tfin = Lstb_pts.List(i + 1, 3)
End If
Next

Label7 = tdep
Label8 = tfin

Merci de votre aide qui me permettra de me corriger !
-----

[sitalgo]

La syntaxe semble correcte mais tu voudrais que ça fasse quoi au lieu de ce que tu obtiens?
Ou bien as-tu des messages d'erreurs, lesquels?

[invite1038f851]

En fait le programme s'arrête et ma ligne de commande if et surlignée en jaune !! Donc il y a quelque chose qui ne lui plait pas, mais quoi ?...

[invite9b7cd1a6]

Commence par mettre ton identation:

Dim i, j As Integer
j = Liste.Lstb_pts.ListCount - 1
For i = 0 To j
	If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i - 1, 3) <> 0 Then
		tdep = Lstb_pts.List(i - 1, 3)
	End If

	If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i + 1, 3) <> 0 Then
		tfin = Lstb_pts.List(i + 1, 3)
	End If
Next

Label7 = tdep
Label8 = tfin

Ensuite, je n'ai pas pu tester directement ton code, car je n'ai pas VB6 ici.. Mais bon, quelle est l'erreur?

[A voir en vidéo sur Futura]

[sitalgo]

For i = 0 To j
    If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i - 1, 3) <> 0 Then
        tdep = Lstb_pts.List(i - 1, 3)
    End If
...

Suis-je bête, c'est tout simple. Quand i=0, l'index de la liste devient -1.

[invite1038f851]

Oui, erreur bête. Mais le problème est tjs pa résolu. Mon problème est le suivant : dans la 4ième ligne de ma listbox "Liste.Lstb_pts" j'ai par exemple les valeurs suivantes :
...
t1
0
0
0
0
t2
...
j'aimerais alors pouvoir récupérer les valeurs t1 et t2.

Merci d'avance.

[invite1038f851]

J'écris le code suivant, mais toujours un problème avec mes if !

Dim i, j As Integer
j = Liste.Lstb_pts.ListCount
For i = 1 To j
If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i - 1, 3) <> 0 Then
tdep = Liste.Lstb_pts.List(i - 1, 3)
End If
Next

Dim u, v As Integer
v = Liste.Lstb_pts.ListCount - 1
For u = 0 To v
If Liste.Lstb_pts.List(u, 3) = 0 And Liste.Lstb_pts.List(u + 1, 3) <> 0 Then
tfin = Lstb_pts.List(u + 1, 3)
End If
Next

[sitalgo]

Tes explications sont trop partielles pour qu'on comprenne ce que tu veux. Décris ce que tu mets en place (notamment ta listbox, je ne sais pas du tout à quoi elle ressemble) et ce que tu veux traiter.

Indente ton code, ça facilite la lecture.
Dans tes déclarations i et u sont des variant puisque tu ne mets pas de type après.

[invite309a5f63]

Dim i As Integer
Dim tdep As Integer
Dim tfin As Integer

For i = 0 To (Liste.Lstb_pts.ListCount - 1)
IF (tdep = 0) then tdep = Lstb_pts.List(i, 3)
If (Liste.Lstb_pts.List(i, 3) <> 0 ) Then tfin = Lstb_pts.List(i, 3)
Next i

Label7 = tdep
Label8 = tfin

Stéphane