Discussion :

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

re

je vais essayer d'etre plus clair dans ma demande

je peux avoir plusieur array

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ??

[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.

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pijaku]

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

[Pierre Fauconnier]

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

Je le pense aussi

[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(........)

[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.

[patricktoulon]

re
oui pierre j'ai trouvé ma solution
avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[CuisineAuBeurre]

re
oui pierre j'ai trouvé ma solution
avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[patricktoulon]

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???

[OrDonc]

Salut

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é !

[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).