informer

Généralement une erreur arrête l'exécution du code et j'ai donc ce modèle

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
public function myFunction ()
 
 On Error GoTo Err_
     ... Code
 
Exit_:
 
Exit function
 
Err_:
 
    sMsg = Err.Number & char(13) & Err.Description
    Goto Exit_
 
End function

Quand je clos/quite/ libére des objets après Exit_: naïf que je suis, je pensais que la ...

Bonjour à tous,

La syntaxe proposée par l'aide en ligne MS est :

Switch(expr-1, value-1, [ expr-2, value-2..., [ expr-n, value-n ]])

Switch renvoie une valeur Null dans le cas suivants :

• Aucune expression n’a la valeur True.
• La première expression ayant une valeur True a une valeur correspondante Null

Mais rien d'explicite sur comment avoir l'équivalent de ELSE

Très simple

Code :

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

SELECT Switch(..., True, 'ValueByDefault'

...