VBA vous permet d'utiliser des opérateurs de comparaison pour comparer des valeurs. En utilisant ces opérateurs, vous pouvez comparer des valeurs et renvoyer un booléen True ou False en conséquence.
La liste des principaux opérateurs de comparaison en VBA
Dans un premier temps, nous afficherons la liste des opérateurs de comparaison utilisables en code VBA :
|
Opérateur de comparaison | Explication |
| = |
Égal à |
|
Pas égal à |
|
|
> |
Plus grand que |
|
>= |
Plus grand ou égal à |
| < |
Moins que |
| <= |
Inférieur ou égal à |
Égal à
Les Égal à L'opérateur vérifie si deux valeurs sont égales et renvoie True ou False. Voici l'exemple de code :
| 123456789101112 | Dim intA en tant qu'entierDim intB en tant qu'entierDim blnRésultat en tant que booléenintA = 5intB = 5Si intA = intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
Dans cet exemple, nous voulons vérifier si intA est égal à intB. Si cela est vrai, la valeur de Boolean blnRésultat sera Vrai, sinon, ce sera Faux.
Tout d'abord, nous définissons les valeurs de intA et intB à 5:
| 12 | intA = 5intB = 5 |
Après cela, nous utilisons le = dans l'instruction If pour vérifier si les valeurs de intA et intB sont égaux:
| 12345 | Si intA = intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
Les deux variables sont égales à 5, donc le blnRésultat renvoie Vrai :
Image 1. Utilisation de l'opérateur Égal à
Pas égal à
Les Pas Égal à L'opérateur vérifie si deux valeurs ne sont pas égales et renvoie True ou False. Voici l'exemple de code :
| Une erreur est survenue. Veuillez réessayer plus tard. |
Dans cet exemple, nous voulons vérifier si intA n'est pas égal à intB. Si cela est vrai, la valeur de Boolean blnRésultat sera Vrai, sinon, ce sera Faux.
Nous utilisons le dans l'instruction If pour vérifier si les valeurs de intA et intB sont différents:
| 12345 | Si intA intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
La valeur de intA est 5 et la valeur de intB est 6, les variables ne sont pas égales, donc le blnRésultat renvoie Vrai :
Image 2. Utilisation de l'opérateur Différent de
Plus grand que
Les Plus grand que L'opérateur vérifie si la première valeur est supérieure à la deuxième valeur et renvoie True ou False. Voici l'exemple de code :
| 123456789101112 | Dim intA en tant qu'entierDim intB en tant qu'entierDim blnRésultat en tant que booléenintA = 6intB = 5Si intA > intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
Dans cet exemple, nous voulons vérifier si intA est supérieur à intB. Si cela est vrai, la valeur de Boolean blnRésultat sera Vrai, sinon, ce sera Faux.
De plus, nous utilisons le > opérateur dans l'instruction If afin de vérifier si la valeur de intA est supérieur à intB:
| 12345 | Si intA > intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
En conclusion, commeintA est supérieur à intB, les blnRésultat renvoie Vrai :
Image 3. Utilisation de l'opérateur Supérieur à
Plus grand ou égal à
Les Plus grand ou égal à L'opérateur vérifie si la première valeur est supérieure ou égale à la deuxième valeur et renvoie True ou False. Voici l'exemple de code :
| 123456789101112 | Dim intA en tant qu'entierDim intB en tant qu'entierDim blnRésultat en tant que booléenintA = 5intB = 5Si intA >= intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
Dans cet exemple, nous voulons vérifier si intA est supérieur ou égal à intB. Si cela est vrai, la valeur de Boolean blnRésultat sera Vrai, sinon, ce sera Faux.
Nous utilisons le >= dans l'instruction If pour vérifier si la valeur de intA est supérieur ou égal à intB:
| 12345 | Si intA >= intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
En conclusion, comme les deux variables sont égales à 5, le blnRésultat renvoie Vrai :
Image 4. Utilisation de l'opérateur Supérieur ou égal à
Moins que
Les Moins que L'opérateur vérifie si la première valeur est inférieure à la deuxième valeur et renvoie True ou False. Voici l'exemple de code :
| 123456789101112 | Dim intA en tant qu'entierDim intB en tant qu'entierDim blnRésultat en tant que booléenintA = 5intB = 6Si intA < intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
Dans cet exemple, nous voulons vérifier si intA est inférieur à intB. Si cela est vrai, la valeur de Boolean blnRésultat sera Vrai, sinon, ce sera Faux.
Nous utilisons le < dans l'instruction If pour vérifier si la valeur de intA est inférieur à intB:
| 12345 | Si intA < intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
Comme intA est inférieur à intB, les blnRésultat renvoie Vrai :
Image 5. Utilisation de l'opérateur Inférieur à
Inférieur ou égal à
Les Moins de ou Égal à L'opérateur vérifie si la première valeur est inférieure ou égale à et renvoie True ou False. Voici l'exemple de code :
| 123456789101112 | Dim intA en tant qu'entierDim intB en tant qu'entierDim blnRésultat en tant que booléenintA = 5intB = 5Si intA <= intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
Dans cet exemple, nous voulons vérifier si intA est inférieur ou égal à intB. Si cela est vrai, la valeur de Boolean blnRésultat sera Vrai, sinon, ce sera Faux.
Nous utilisons le <= dans l'instruction If pour vérifier si la valeur de intA est inférieur ou égal à intB:
| 12345 | Si intA <= intB AlorsblnRésultat = VraiAutreblnRésultat = FauxFin si |
En conclusion, comme les deux variables sont égales à 5, le blnRésultat renvoie Vrai :
Image 6. Utilisation de l'opérateur Inférieur ou égal à
est opérateur
L'opérateur Is teste si deux variables d'objet contiennent le même objet :
| 12345678910111213 | Sous-ComparerObjets()Dim ws1 en tant que feuille de calcul, ws2 en tant que feuille de calculDéfinir ws1 = Sheets("Sheet1")Définir ws2 = Sheets("Sheet2")Si ws1 est ws2 alorsMsgBox "Même WS"AutreMsgBox "Différents WS"Fin siFin du sous-marin |
Comme opérateur
L'opérateur Like peut être utilisé pour rechercher des correspondances de texte inexactes. Cet exemple testera si une chaîne commence par « Mr ».
| 1234567891011121314 | Sous LikeDemo()Dim strName en tant que chaîneDim blnRésultat en tant que booléenstrName = "M. Michael James"Si strName comme "Mr*" AlorsblnRésultat = VraiAutreblnRésultat = FauxFin siFin du sous-marin |
Si vous voulez apprendre à comparer des chaînes, cliquez ici : VBA Compare Strings - StrComp
Si vous souhaitez apprendre à utiliser les opérateurs de comparaison, cliquez ici : Opérateurs logiques VBA
