VB - if avec plusieurs conditions Fermé

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

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

lokorn · Answer

a ton service

stick25 · Answer

Je profite de ta gentillesse et disponibilité lokorn pour te demander à nouveau ton aide.
Dans une textbox je souhaite qu'on puisse écrire uniquement un chiffre, et que si jamais l'opérateur écrit du texte puis valide sa saisie (bouton ok), une msgbox apparaisse en affichant un message d'erreur.
Je ne connais pas le code pour dire "si saisie différent de chiffre".
Merci d'avance.

lokorn · Answer

Je profite de ta gentillesse et disponibilité lokorn pour te demander à nouveau ton aide. 
Dans une textbox je souhaite qu'on puisse écrire uniquement un chiffre, et que si jamais l'opérateur écrit du texte puis valide sa saisie (bouton ok), une msgbox apparaisse en affichant un message d'erreur. 
Je ne connais pas le code pour dire "si saisie différent de chiffre". 
Merci d'avance. 

1 tu peu mettre un "maskedbox" au lieu d'un textbox.
2 tu peu aussi tester le code ascii du caractere entré

VB - if avec plusieurs conditions

23 réponses

Discussions similaires