VB - if avec plusieurs conditions

Fermé
stick25 - 19 mars 2010 à 14:36
 lokorn - 22 mars 2010 à 19:58
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 !!
A voir également:

23 réponses

a ton service
0
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.
0
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é
0