Multiples conditions : simplifications possibles ?

[Matt51100]

Bonjour à tout le forum,

Mon problème est le suivant :

Je dois tester une variable sous de multiples conditions, ce qui me donne ceci :

a.Value = 1 or a.value = 2 or a.value = 3 .....

Ma variable peut prendre 23 valeurs. N'ai je d'autres moyens que d'écrire une ligne à rallonge ou connaissez vous un autre moyen ?

Merci d'avance.

A+, Matt.

 

[Paritec]

Re : Multiples conditions : simplifications possibles ?

Bonjour Matt51100 le forum
et si tu nous mettais un petit fichier avec les explications on pourrait certainement t'aider et trouver une solution
a+
Papou 🙂

EDIT: autrement:

 if a.value >=1 and a.value<=23 then 'peut peut-être répondre à ta demande?

EDIT Bonjour Mromain

 

[mromain]

Re : Multiples conditions : simplifications possibles ?

Bonjour Matt51100, Paritec, le forum


Un essai avec Select Case :[/QUOTE]

Sub test()
Dim a As Range
    Set a = Range("A1")
    
    Select Case a.Value
        Case 1, 2, 3, 4, 5, 6, 7, 8, 9
            MsgBox "test"
    End Select
End Sub

a+

 

[Matt51100]

Re : Multiples conditions : simplifications possibles ?

Salut,

Merci mromain, exactement ce que je cherchais et que je ne connaissais pas.

Paritec, j'ai voulue simplifier au max, mes conditions ne sont pas 1 à 23 mais 23 nombres ne se suivant pas.

En tout cas encore merci pour la réactivité.

A+, MAtt.