VB - if avec plusieurs conditions

Question

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 !!

Afficher la suite

stick25 · Accepted Answer

Voila enfin un code qui marche, merci quand même pour ton implication. 

Dim i As Integer, j As Integer
    For i = 0 To Liste.Lstb_pts.ListCount - 1
        ' on cherche tdep
        If Liste.Lstb_pts.List(i, 3) = 0 And i > 0 Then
            tdep = Liste.Lstb_pts.List(i - 1, 3)
            Exit For
        End If
    Next i
    ' on cherche tfin
    For j = i + 1 To Liste.Lstb_pts.ListCount - 1
        If Liste.Lstb_pts.List(j, 3) <> 0 Then
            tfin = Liste.Lstb_pts.List(j, 3)
            Exit For
        End If
    Next j

Il me reste maintenant à voir comment je vais gérer quand j'aurai plus d'une série de 0.

lokorn · Answer

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

Polux31 · Answer

Bonjour,

J'aimerai aussi savoir où est le problème !!!

S'il y a un message d'erreur et sur quelle ligne ?

Merci

;o)

stick25 · Answer

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.

stick25 · Answer

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

lokorn · Answer

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

stick25 · Answer

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

lokorn · Answer

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?

stick25 · Answer

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.

lokorn · Answer

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

stick25 · Answer

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 !

lokorn · Answer

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

stick25 · Answer

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

lokorn · Answer

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

stick25 · Answer

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.

lokorn · Answer

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?

stick25 · Answer

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

lokorn · Answer

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

stick25 · Answer

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

lokorn · Answer

"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

VB - if avec plusieurs conditions

23 réponses

Votre réponse

Discussions similaires

Newsletters