Select case ...case avec and

[mécano41]

Bonjour,

Comment écrire autrement les deux lignes avec commentaire? (le AND ne fonctionne pas dans le CASE) :

Select Var
                    Case Is < 10
                        .....
                    Case 10 To 100 - 0.0000000000001           ' si Var >=10 et Var<100
                        .....
                    Case 100 To 1000 - 0.0000000000001          ' Var >=100 et Var<1000
                        .....
                    Case Is >= 1000
                        .....

End Select

Je n'ai rien trouvé, ni dans ma mémoire 🙂mad🙂, ni dans les livres ni sur les forums...

Merci d'avance.

Cordialement

 

[Gorfael]

Re : Select case ...case avec and

Salut mécano41 et le forum
donner un code qui ne fonctionne pas...

Select Case Var
    Case Is < 10     ' Var<10
    .....
    Case Is < 100   ' si 10<=Var<100
    .....
    Case Is < 1000  ' si 100<=Var<1000
    .....
    Case Else       ' le reste (1000<=Var)
    .....
End Select

select case, une fois qu'il a eu une case à Vrai, exécute l'instruction prévue et saute à end select
A+

 

[mécano41]

Re : Select case ...case avec and

C'est pourtant simple! ... va falloir que je fasse une mise à jour de mon cerveau!

Merci beaucoup.

Cordialement