VBA - Utilisation de l'opérateur Like avec Select Case
![](http://img.brin-designs.com/img/games/472/vba-using-like-operator-with-select-case.png)
VBA - Utilisation de l'opérateur Like avec Select Case
introduction
Dans des circonstances normales, l'instruction Select Case ne fonctionne pas avec l'opérateur Like . Dans cet article, vous apprendrez à surmonter cette limitation (If, ElseIf, ...)Select Case & Like - Test
Le code suivant montre que Select Case ne fonctionne pas avec l'opérateur Like:Sub Select_Case_Like () word = "KAKAO" Sélectionnez le mot de la casse Case mot Like "* K * K *" MsgBox "Good" Autre case MsgBox "Pas bon" End Select End End
Quel que soit le contenu du mot variable, il retournera toujours "pas bon" ...
Utilisation de l'expression True -Test
Pour utiliser l'opérateur Like dans un cas de sélection, vous devez ajouter l'expression True.Sub Select_Case_True_Like () word = "KAO" Sélection de la casse True Mot de la requête comme "* K * K *" MsgBox "Bonne" Cas sinon MsgBox "Pas bon" Fin Sélectionnez un mot = "KAKAO" Sélection de la casse True Mot de la requête comme "* K * K * "MsgBox" Bon "Autre cas MsgBox" Pas bon "End Select End Sub
Une fonction booléenne utile
La fonction
Fonction Case_True_Like (word As String) As Boolean Sélectionnez la casse True Mot de la casse comme "* K * K *" Case_True_Like = Vrai Cas sinon Case_True_Like = Faux Fin Sélectionnez Fin
Invoquer la fonction
Sub Test () MsgBox Case_True_Like ("KAKAO") End Sub