Select Case Bizard

[Damarice]

Salut le forum

J'ai un petit probléme de Select case. J'ai une situation ou j'ai trouvé comme solution de faire un Select case avec 3 condition qui requiéraient des action particuliéres et 11 autre qui aboutissais a la même action :

Select Case tab(1, n)

Case "A"
Action 1
Case "B"
Action 2
Case "C"
Action 3
Case "D" Or "E" Or "F"Or .......Or "L"
Action 4

Ca ne marche pas, il est possible que ce soit une erreur qui ne vienne pas du Select Case mais je n'arrive pas a le determiner . Ce que j'aimerais surtout savoir c'est si utiliser un Or comme je le fait dans un Select Case est possible ?

 

[Denis]

Re : Select Case Bizard

Bonjour Damarice et le forum
essais "Case Else" en dernière ligne
Bon courage et à +
Denis

 

[kjin]

Re : Select Case Bizard

bonjour,
Essaies
Case "D", "E", "F",..., "L"

A+
kjin

 

[Staple1600]

Re : Select Case Bizard

Bonjour à tous



Comme kjinn

Sub testt()
Dim x As String
x = Chr(Int((90 - 65 + 1) * Rnd + 65))
Select Case x
Case Is = "A"
MsgBox x
Case Is = "B"
MsgBox x
Case Is = "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
MsgBox x
End Select
End Sub

ou plus court

Sub test_ii()
Dim x As String
x = Chr(Int((90 - 65 + 1) * Rnd + 65))
Select Case Asc(x)
'A
Case 65
MsgBox x
'B
Case 66
MsgBox x
'C à Z
Case 67 To 90
MsgBox x
End Select
End Sub

 

[Damarice]

Re : Select Case Bizard

WOuaou le moins qu'on puisse dire c'est que quand on pose une question on est pas déçu avec vous, merci les gars 😉 . J'ai essaye plusieurs solutions mais ce qui marche le mieux c'est le Case Else à la fin parce que mais critére ne sont pas dans l'ordre de défilement du For , enfin c'est un peu compliqué a expliquer . En tout les cas merci encore 😀