[vb6] problem de si...
warent
-
Utilisateur anonyme -
Utilisateur anonyme -
slt a tous
g une question a poser sur visual basic 6(ou otre)
g fai un if mais avec plein d'attribut (je croi ke c ca )
et il y en a tellement ki veu pa me l'afficher sur une seul ligne
donc le if c ca :
If tabtemp(1) = 8 Or tabtemp(1) = 9 Or tabtemp(1) = 10 Or tabtemp(1) = 11 Or tabtemp(1) = 20 Or tabtemp(1) = 21 Or tabtemp(1) = 22 Or tabtemp(1) = 23 Or tabtemp(1) = 32 Or tabtemp(1) = 33 Or tabtemp(1) = 34 Or tabtemp(1) = 35 Or tabtemp(1) = 44 Or tabtemp(1) = 45 Or tabtemp(1) = 46 Or tabtemp(1) = 47 Or tabtemp(1) = 56 Or tabtemp(1) = 57 Or tabtemp(1) = 58 Or tabtemp(1) = 59 Or tabtemp(1) = 68 Or tabtemp(1) = 69 Or tabtemp(1) = 70 Or tabtemp(1) = 71 Or tabtemp(1) = 80 Or tabtemp(1) = 81 Or tabtemp(1) = 82 Or tabtemp(1) = 83 Or tabtemp(1) = 92 Or tabtemp(1) = 93 Or tabtemp(1) = 94 Or tabtemp(1) = 95 Or tabtemp(1) = 104 Or tabtemp(1) = 105 Or tabtemp(1) = 106 Or tabtemp(1) = 107 Or tabtemp(1) = 116 Or tabtemp(1) = 117 Or tabtemp(1) = 118 Or tabtemp(1) = 119 Or tabtemp(1) = 128 Or tabtemp(1) = 129 Or tabtemp(1) = 130 Or tabtemp(1) = 131 Or tabtemp(1) = 140 Or tabtemp(1) = 141 Or tabtemp(1) = 142 Or tabtemp(1) = 143
Then
en fait ca c une seul ligne (g redui la variable pour ke c tienne )
et je voudrai savoir si yavai pa moyen de faire une énumération de toute les valeurs plutot ke de metre un or a chaque foi et comment faire
pour l'intant ca marche comme ca mai c pa trop lisible...
c asser urgent car c pour un pti ke je doi présenté a la fin des vac
merci
g une question a poser sur visual basic 6(ou otre)
g fai un if mais avec plein d'attribut (je croi ke c ca )
et il y en a tellement ki veu pa me l'afficher sur une seul ligne
donc le if c ca :
If tabtemp(1) = 8 Or tabtemp(1) = 9 Or tabtemp(1) = 10 Or tabtemp(1) = 11 Or tabtemp(1) = 20 Or tabtemp(1) = 21 Or tabtemp(1) = 22 Or tabtemp(1) = 23 Or tabtemp(1) = 32 Or tabtemp(1) = 33 Or tabtemp(1) = 34 Or tabtemp(1) = 35 Or tabtemp(1) = 44 Or tabtemp(1) = 45 Or tabtemp(1) = 46 Or tabtemp(1) = 47 Or tabtemp(1) = 56 Or tabtemp(1) = 57 Or tabtemp(1) = 58 Or tabtemp(1) = 59 Or tabtemp(1) = 68 Or tabtemp(1) = 69 Or tabtemp(1) = 70 Or tabtemp(1) = 71 Or tabtemp(1) = 80 Or tabtemp(1) = 81 Or tabtemp(1) = 82 Or tabtemp(1) = 83 Or tabtemp(1) = 92 Or tabtemp(1) = 93 Or tabtemp(1) = 94 Or tabtemp(1) = 95 Or tabtemp(1) = 104 Or tabtemp(1) = 105 Or tabtemp(1) = 106 Or tabtemp(1) = 107 Or tabtemp(1) = 116 Or tabtemp(1) = 117 Or tabtemp(1) = 118 Or tabtemp(1) = 119 Or tabtemp(1) = 128 Or tabtemp(1) = 129 Or tabtemp(1) = 130 Or tabtemp(1) = 131 Or tabtemp(1) = 140 Or tabtemp(1) = 141 Or tabtemp(1) = 142 Or tabtemp(1) = 143
Then
en fait ca c une seul ligne (g redui la variable pour ke c tienne )
et je voudrai savoir si yavai pa moyen de faire une énumération de toute les valeurs plutot ke de metre un or a chaque foi et comment faire
pour l'intant ca marche comme ca mai c pa trop lisible...
c asser urgent car c pour un pti ke je doi présenté a la fin des vac
merci
A voir également:
- [vb6] problem de si...
- Vb6 - Télécharger - Divers Utilitaires
- Vb6 listbox ✓ - Forum VB / VBA
- Msflexgrid vb6 - Forum VB / VBA
- Timer vb6 - Forum VB / VBA
- VB6: installation d'un projet créer ✓ - Forum VB / VBA
1 réponse
Bonjour,
Suggestion :
Lupin
Suggestion :
Sub NewTest()
Dim tabtemp(1) As Long, Boucle As Long
Range("A1").Select
For Boucle = 0 To 150
tabtemp(1) = Boucle
Select Case (tabtemp(1))
Case 8 To 11, 20 To 23, 32 To 35, 44 To 47, 56 To 59, _
68 To 71, 80 To 83, 92 To 95, 104 To 107, 116 To 119, _
128 To 131, 140 To 143: ActiveCell.Offset(0, 0).Value = tabtemp(1)
ActiveCell.Offset(1, 0).Select
End Select
Next Boucle
End Sub
Lupin
