[vb6] problem de si... Fermé

Question

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

Utilisateur anonyme · Answer

Bonjour,

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

[vb6] problem de si...

1 réponse

Discussions similaires