comment faire un select case en fonction d'un array et d'une variable

Version imprimable

15/11/2018, 11h56
patricktoulon

comment faire un select case en fonction d'un array et d'une variable
re bonjour a tous
je me demande si c'est possible et comment organiser un select case avec des array differents
exemple ici j'ai un array et une variable x je voudrais que dans un select case en fonction de x et de l'array j'ai le message x ou "non"
Code:

1 2 3 4 5 6 7 8 9 Sub test() arr = Array(4, 9, 5, 3, 7) x = 3 Select Case True Case arr(0) To arr(4) MsgBox x Case Else: MsgBox "non" End Select End Sub
encore une fois je ne sais pas si c'est possible :pastaper:
15/11/2018, 19h00
patricktoulon

re
re

je vais essayer d'etre plus clair dans ma demande

je peux avoir plusieur array
Code:

1 2 3 4 5 6 a=2 x =3 arr1=array(1,5,9,3,7) arr2=array(4,8,2,7,9) 'selon la variable a je choisi un array if a=2 then arrr=arr2 else arrr=arr1
et dans un select case je voudrais tester x dans arrr

voila est ce posssible ??
15/11/2018, 19h53
pijaku

Salut,
En fait, je ne comprends pas ta question...
Tester x dans array avec un Select Case.
Tu veux savoir si x est un élément de ton array?
Autre chose?
Difficile de comprendre.

Bonsoir pihaku

je vais essayer d'etre encore plus clair
pour ce que tu sais on utilise des selectcase
et case x

au lieu de faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Select Case typeb
Case 1
    Select Case x
    Case 1, 5, 6, 8, 9
        'blabla bla
        'reste du code
    Case Else
    End Select
Case 2
    Select Case x
    Case 2, 4, 6, 8
        'blabla bla
        'reste du code
    Case Else
    End Select
End Select
Case 3
    Select Case x
    Case 0, 1, 3, 5, 8, 9
        'blabla bla
        'reste du code
    Case Else
    End Select
End Select

'je voudrais faire un truc du genre

Code:

1
2
3
4
5
6
7
arr = switch(typeb = 1, Array(2, 4, 6, 8), typeb = 2, Array(2, 4, 6, 8), typeb = 3, Array(0, 1, 3, 5, 8, 9))
Select Case x
Case arr
    'blabla bla
    'reste du code
Case Else
End Select

je sais pas si tu comprends ce que je veux dire

15/11/2018, 20h39
pijaku

Ce que tu veux faire est clairement impossible.
En tout cas, si j'ai bien compris la question...
A++
15/11/2018, 20h58
Pierre Fauconnier

Citation:

Envoyé par pijaku

Ce que tu veux faire est clairement impossible.
En tout cas, si j'ai bien compris la question...
A++

Je le pense aussi
15/11/2018, 21h12
Invité

Bonsoir Patrick,

Il est vraiment temps que tu te mettes aux Vb.net.

Ce que tu veux faire ce fait aisément en LinQ.
LinQ est une forme de requêtage sur des objets .

Array.where(........)
15/11/2018, 21h17
Pierre Fauconnier

Ca se fait sans difficultés en VBA, mais pas avec SELECT CASE...

De plus, sur un forum VBA, je ne vois pas la pertinence de parler d'un autre langage qui, s'il permet éventuellement une "solution", le fait avec un coût plus important dès qu'il va s'agir de transmettre son fichier, par exemple.

re
oui pierre j'ai trouvé ma solution
avec

Code:

1
2
3
4
5
6
7
8
9
10
11
typeb=1'2 ou 3
x=12
 arr = Switch(typeb = 1, Array(0, 1, 3, 4, 6, 7, 8, 9), typeb = 2, Array(0, 1, 2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 15, 16, 17, 18, 20, 21, 22, 23, 25, 26, 27), _
                 typeb = 3, Array(0, 1, 3, 4, 6, 7, 9, 10, 12, 13))
 
 
If Not IsError(Application.Match(X, arr, 0)) Then
msgbox cstr(true)
else
'msgbox cstr(false)
end if

si tu a mieux je prends

16/11/2018, 08h30
patricktoulon

re

Bonjour philippe

tu n'a pas l'impression que le select case ne sert a rien ?
Ma fois!!?? a utiliser le test match je n'ai plus besoins du select case puisque arr change en fonction du switch
non???
16/11/2018, 09h50
Pierre Fauconnier

Au départ, le Select Case est utilisé pour éviter les IF ElseIf lorsque les comparaisons portent sur la même variable. Utiliser Case True... Case Else reivient à utiliser un IF... Else.... Je ne vois pas trop l'intérêt du Case dans le cas d'un test de valeur booléenne ;).

Perso, je préfère utiliser les syntaxes ad hoc, même s'il y a moyen d'utiliser des syntaxes déviées pour un même résultat. A la lecture d'un Select Case, je m'attends à quelques Case, mais pas à un substitut de If.. else.... Ca n'a pour moi pas de sens d'utiliser Select Case X... Case True... Case Else... End Select. Autant utiliser If x then ... Else... End If.

C'est comme lorsqu'on utilise des Proprety dans un module standard, ou un Exit For pour sortir d'une boucle, par exemple. C'est pour moi dénaturer la notion de propriété dans le cas de Property ou l'utilisation de la boucle For...Next qui devrait être remplacée par Do While... Loop, par exemple.

Je sais. Je suis un peu chiant à ce niveau-là ;) (et je sais, on sort "à peine" du sujet initial).

Citation:

Envoyé par patricktoulon

re
oui pierre j'ai trouvé ma solution
avec

Code:

1
2
3
4
5
6
7
8
9
10
11
typeb=1'2 ou 3
x=12
 arr = Switch(typeb = 1, Array(0, 1, 3, 4, 6, 7, 8, 9), typeb = 2, Array(0, 1, 2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 15, 16, 17, 18, 20, 21, 22, 23, 25, 26, 27), _
                 typeb = 3, Array(0, 1, 3, 4, 6, 7, 9, 10, 12, 13))
 
 
If Not IsError(Application.Match(X, arr, 0)) Then
msgbox cstr(true)
else
'msgbox cstr(false)
end if

si tu a mieux je prends

Pile la raison de ma venue ! Merci beaucoup !

1 pièce(s) jointe(s)

Salut

Citation:

Envoyé par patricktoulon

tu n'a pas l'impression que le select case ne sert a rien ?

dans quel code ? Celui-ci avec un formulaire, une liste déroulante (Cb pour l'array 1), une liste (List) non déroulante) ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub UserForm_Initialize() Cb.List = Array(1, 2, 3, 4, 5, 6) 'array 1 End Sub Private Sub Cb_Change() Dim a As Byte a = Cb.ListIndex Select Case Array(0, 1, 3, 4, 5, 6, 7)(a) 'array 2 Case 0: Lst.List = Array(1, 5, 9, 3, 7) Case 1: Lst.List = Array(4, 8, 2, 7, 9) Case 2: Lst.List = Array(1, 4) Case 3: Lst.List = Array(4, 5) Case Else: Lst.List = Array("a", "b", "c", "etc", "...") End Select End Sub
Sinon, de façon générale, son intérêt principal est de sortir plus vite de la boucle (dès qu'un cas est traité ) d'où un gain de rapidité !