Microsoft 365 VBA : Fonction Select Case

[VBA_dev_Anne_Marie]

Bonjour,

Ma question est facile, mais je ne trouve pas de solution.
Quand je lance

Select Case Variable
Case "PR", "TP"

J'obtiens un bon résultat, néanmoins, je souhaite stocker les modalités dans une variables Donnees comme Donnees= "PR" & ", " & "TP", et quand je lance le programme:
Case Donnees

le code ne marche, pas. J'ai essayé aussi Donnees= "PR, TP", le code ne marche pas non plus.

Merci pour votre aide

 

[patricktoulon]

et on peut s'étaler
allez 3 rubriques
le select case pas en dur

'version1
Const Val1$ = "SX,SP,SY"
Const Val2$ = "AA,DF,SY"
Const Val3$ = "CA,LF,SQ"
Sub Demo1()
    Dim Valeur$, x&

    t = Split(Val1 & "," & Val2 & "," & Val3, ",")   'compil en array

    Valeur = "LF"    'la valeur  à chercher

    x = Application.IfError(Application.Match(Valeur, t, 0), 0)
    Select Case True
    Case x < UBound(t) + 1
        Select Case x
        Case 9: MsgBox "trouvé en position " & x & " dans la rubrique3"
        Case 8: MsgBox "trouvé en position " & x & " dans la rubrique3"
        Case 7: MsgBox "trouvé en position " & x & " dans la rubrique3"
        Case Else: MsgBox "trouvé nulle part3"
        End Select

    Case x < UBound(Split(Val1 & "," & Val2, ",")) + 1    'rubrique2
        Select Case x
        Case 6: MsgBox "trouvé en position " & x & " dans la rubrique2"
        Case 5: MsgBox "trouvé en position " & x & " dans la rubrique2"
        Case 4: MsgBox "trouvé en position " & x & " dans la rubrique2"
        Case Else: MsgBox "trouvé nulle part2"
        End Select

    Case x <= UBound(Split(Val1, ",")) + 1  'rubrique1
        Select Case x
        Case 3: MsgBox "trouvé en position " & x & " dans la rubrique1"
        Case 2: MsgBox "trouvé en position " & x & " dans la rubrique1"
        Case 1: MsgBox "trouvé en position " & x & " dans la rubrique1"
        Case Else: MsgBox "trouvé nulle part1"
        End Select
    End Select
End Sub

 

[TooFatBoy]

Bonjour,

Case 1: MsgBox "trouvé en position " & x & " dans la rubrique1"
Case 2: MsgBox "trouvé en position " & x & " dans la rubrique1"
Case 3: MsgBox "trouvé en position " & x & " dans la rubrique1"
Case 4: MsgBox "trouvé en position " & x & " dans la rubrique1"
Case 5: MsgBox "trouvé en position " & x & " dans la rubrique1"

Juste pour ma culture personnelle : quel est l'intérêt de mettre 5 "Case" ???

 

[patricktoulon]

re
oui tu a raison @TooFatBoy dans la version val1 ou val2 on peut arrêter a 3

 

[TooFatBoy]

Ce que je veux dire c'est que, pour moi, une seule ligne suffit.

Donc je voulais savoir pourquoi mettre 5 lignes "différentes" identiques.
Est-ce que ça permet d'avoir une macro plus rapide ?

 

[patricktoulon]

ben dans l'exemple ca envoie un message
mais dans une vrai utilité on pourrait faire 3 choses complètement différentes

si c'etait pas le cas alors la discussion est caduque puisqu'un simple instr complet ferait l'affaire