VB - if avec plusieurs conditions

c'est quoi ==> Liste.Lstb_pts
dans ta boucle au debut i=0
est ce que "Liste.Lstb_pts.List(i-1, 3)" peut passer (-1,3) ?

Bonjour,

J'aimerai aussi savoir où est le problème !!!

S'il y a un message d'erreur et sur quelle ligne ?

Merci

;o)

Exact lokorn, erreur à ce niveau là mais j'arrive tjs pas à m'en sortir. 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.

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

dis moi exactement ce que tu désires faire avec ton programme.
j'ai du mal a tout cerner

J'ai une listbox avec 4 colonnes. Chaque ligne correspond à un point connu en coordonnées et temps de passage (X,Y,Z,t). Dans la 4ième colonne je peux avoir des valeurs à 0 (du à des calcul préalables). Par exemple je peux avoir les valeurs suivante :

30700
30701
30703
0
0
0
0
30741
30750

J'aimerais alors récupérer dans cet exemple tdep=30703 et tfin=30741 !
Merci de ton aide.

(Quand j'arriverai à procéder ainsi, j'aimerais pouvoir gérer plusieurs succession de 0 mais on en est pas encore là...)

est ce que tes lignes fonctionnent 2 à 2
1 pout tdeb et 1 autre pour tfin?
comment tu sait si c'est tdeb ou tfin?

Mes lignes sont indépendantes les unes des autres. Pour différencier tdeb et tfin je pensais utiliser les conditions de mes 2 boucles if.

je comprends pas tout
quel condition te permet de differencier tdeb et tfin?

Mes points sont classés par ordre croissant.
Je localise tdeb lorsque t précédent tdeb est différent de 0 et t suivant tdeb est égal à 0. En résumé tdeb et encadré par une valeur différente de zéro et 0. tfin est encadré par 0 et une valeur différente de zéro.
Désolé mais je ne peux pas être plus clair.
Merci bcp pour ton intérêt et ton aide !

si j'ai tout pigé :
x diff de 0

si x - t - 0 --> t=tdeb
si 0 - t - x --> t=tfin

si c'est pas ca je me lobotomise

exact ! ;)
Voila ce que j'essaie d'obtenir, je pense pas que ce soit réellement compliqué mais...

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

pour tdep :
tu dois tester 2 lignes : ligne -1 diff de 0
ligne a tester
ligne +1 = 0
or jamais tu teste ligne +1

Je la teste pas car je pense que les deux tests suffisent. J'aurai pour seule réponse à mes deux test tdep. De plus si jamais j'ai par exemple :
30703
0
30713
ligne + est différent de 0.

donc
si x - t - 0 --> t=tdeb

est faux si tu ne teste pas ligne +1
et est ce que tdep doit etre diff de 0?

Si tu regarde bien mon code, je récupère la valeur i-1 pour tdep ce qui contourne le problème.

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)

par rapport a tdep, tu teste si la ligne suivante est =0 et tdep <>0
tu ne teste pas ligne -1 <>0

Oui c'est ça mais je pense pas que de tester ligne-1 sont nécessaire

"Je localise tdeb lorsque t précédent tdeb est différent de 0 et t suivant tdeb est égal à 0. En résumé tdeb et encadré par une valeur différente de zéro et 0"

si tu ne teste pas ligne-1 tu ne suis pas tes conditions

de plus si i va de 1 à listcount (ça c'est bon), list(i) va tomber en erreur :
la valeur max est list(i-1)
l'index de list va de 0 à listcount -1