Si vous cherchez les moyens les plus simples d'utiliser la VBA IsNumeric Vous êtes au bon endroit. Nous utilisons généralement cette fonction pour VBA pour tester si une expression est un nombre ou non et selon l'expression, il retournera VRAI si l'expression est un nombre sinon FAUX .

Télécharger le cahier d'exercices

Fonction VBA IsNumeric : Syntaxe & ; Arguments

⦿ Syntaxe

IsNumeric (Expression)

⦿ Arguments

⦿ Valeur de retour

⦿ Version

Le site Fonction ISNUMERIC a été introduit dans le Excel 2000 et est disponible pour toutes les versions suivantes.

9 exemples d'utilisation de la fonction IsNumeric de VBA

Dans cet article, nous allons essayer de démontrer les utilisations de la fonction VBA IsNumeric avec quelques exemples aléatoires ainsi que quelques exemples dont le tableau suivant.

Nous avons utilisé Microsoft Excel 365 ici, vous pouvez utiliser toute autre version selon votre convenance.

1. vérifier VBA IsNumeric avec quelques valeurs aléatoires

Ici, nous allons tester quelques chaînes de caractères aléatoires avec la fonction VBA ISNUMERIC si les valeurs sont numériques ou non.

Step-01 :

➤ Go to Développeur Tab>> ; Visual Basic Option.

Ensuite, le Éditeur Visual Basic s'ouvrira.

➤ Go to Insérer Tab>> ; Module Option.

Après cela, un Module sera créé.

Step-02 :

➤ Écrivez le code suivant

 Sub checkvalue1() Dim x As Variant x = InputBox("Give any Value") MsgBox IsNumeric(x) End Sub 

Ici, nous avons déclaré x en tant que Variante et il stockera la valeur d'entrée. Ensuite ISNUMERIC retournera VRAI si la valeur d'entrée est numérique, sinon il retournera FAUX Nous trouverons le résultat dans une boîte de message ( MsgBox ).

➤ Press F5 .

Ensuite, vous obtiendrez la boîte de saisie suivante et si vous écrivez la valeur 100 et appuyez sur OK ,

vous obtiendrez une boîte de message qui dit "Vrai" .

Pour écrire la chaîne de caractères Chat et en appuyant sur OK dans le champ de saisie,

Nous recevons un message disant "Faux" .

Lire la suite : Comment utiliser la fonction VBA Randomize dans Excel (5 exemples)

2. utilisation de VBA IsNumeric avec l'instruction IF-THEN-ELSE

Dans cette section, nous utiliserons le Fonction ISNUMERIC avec le IF-THEN-ELSE dans un VBA pour définir les valeurs numériques et non numériques.

Étapes :

➤ Follow Step-01 de la section 1 .

➤ Écrivez le code suivant

 Sub checkvalue2() Dim x As Variant x = InputBox("Give any Value") If IsNumeric(x) = True Then MsgBox "The Given Value is numeric" Else MsgBox "The Given Value is not numeric" End If End Sub 

Ici, nous avons déclaré x en tant que Variante et il stockera la valeur d'entrée. Lorsque ISNUMERIC retournera VRAI , SI retournera un message disant "La valeur donnée est numérique" et si ISNUMERIC renvoie à FAUX alors SI renvoie un message expliquant "La valeur donnée n'est pas numérique" .

➤ Press F5 .

Ensuite, vous obtiendrez la boîte de saisie suivante et si vous écrivez la valeur 200 et appuyez sur OK ,

vous obtiendrez une boîte de message qui dit "La valeur donnée est numérique" .

Pour écrire la chaîne de caractères Chat et en appuyant sur OK dans le champ de saisie,

Nous recevons un message disant "La valeur donnée n'est pas numérique" .

Lire la suite : Déclaration VBA If - Then - Else dans Excel (4 exemples)

3. création d'un résultat opposé avec la fonction IsNumeric

Ici, nous allons créer un VBA code qui nous donnera le résultat inverse de la Fonction ISNUMERIC ce qui signifie que pour des valeurs numériques, nous obtiendrons FAUX et pour les valeurs non numériques, il retournera VRAI .

Étapes :

➤ Follow Step-01 de la section 1 .

➤ Écrivez le code suivant

 Sub checkvalue3() Dim x As Variant x = InputBox("Give any Value") If IsNumeric(x) = True Then MsgBox ("FALSE") Else MsgBox ("TRUE") End If End Sub 

Ici, nous avons déclaré x en tant que Variante et il stockera la valeur d'entrée. Lorsque ISNUMERIC retournera VRAI , SI retournera un message disant "FALSE" et si ISNUMERIC renvoie à FAUX alors SI renvoie un message expliquant "VRAI" .

➤ Press F5 .

Ensuite, vous obtiendrez la boîte de saisie suivante et si vous écrivez la valeur 25 et appuyez sur OK ,

vous obtiendrez une boîte de message qui dit "FALSE" .

Pour écrire la chaîne de caractères Alaska et en appuyant sur OK dans le champ de saisie,

Nous recevons un message disant "VRAI" .

Contenu connexe : Fonction VBA Format dans Excel (8 utilisations avec exemples)

4. vérifier si les blancs sont numériques ou non

Vous pouvez vérifier facilement avec un VBA code si les blancs sont numériques ou non.

Étapes :

➤ Follow Step-01 de la section 1 .

➤ Écrivez le code suivant

 Sub checkvalue4() Dim x As Variant x = " " MsgBox IsNumeric(x) End Sub 

Ici, nous avons déclaré x en tant que Variante et il stockera le vierge . puis ISNUMERIC retournera VRAI si le vierge est numérique, sinon il retournera FAUX .

➤ Press F5 .

Ensuite, vous obtiendrez une boîte de message disant "Faux" ce qui signifie les blancs ne sont pas numériques .

Lire la suite : Formule Excel pour générer un nombre aléatoire (5 exemples)

5. vérifier si les dates sont numériques ou non

Dans cette section, nous allons utiliser une date aléatoire et vérifier si la date est numérique ou non.

Étapes :

➤ Follow Step-01 de la section 1 .

➤ Écrivez le code suivant

 Sub checkvalue5() Dim x As Variant x = "02/02/2022 " MsgBox IsNumeric(x) End Sub 

Ici, nous avons déclaré x en tant que Variante et il enregistrera une date. Ensuite ISNUMERIC retournera VRAI si la date est numérique, sinon il retournera FAUX .

➤ Press F5 .

Ensuite, vous obtiendrez une boîte de message disant "Faux" ce qui signifie les dates ne sont pas numériques .

On peut aussi essayer avec le Fonction DATESERIAL pour créer des dates et vérifier si elles sont numériques ou non.

➤ Tapez le code suivant

 Sub checkvalue5a() Dim x As Variant x = DateSerial(2022, 2, 2) MsgBox IsNumeric(x) End Sub 

Ici, nous avons déclaré x en tant que Variante et il stockera une date créée par le Fonction DATESERIAL . puis ISNUMERIC retournera VRAI si la date est numérique, sinon il retournera FAUX .

➤ Press F5 .

En retour, vous obtiendrez une boîte de messages disant "Faux" également cette fois.

Lire la suite : Fonction Date en VBA (12 utilisations des macros avec exemples)

Lectures similaires :

• Comment utiliser la fonction MsgBox dans Excel VBA (Guide complet)
• Utiliser la fonction Environ de VBA (4 exemples)
• Comment utiliser le VBA et la fonction dans Excel (4 exemples)
• Utiliser l'énoncé de cas VBA (13 exemples)
• Comment utiliser la fonction Log dans Excel VBA (5 exemples pertinents)

6. vérifier si l'heure est numérique ou non

Dans cette section, nous allons vérifier si les heures sont numériques ou non en utilisant la fonction Fonction ISNUMERIC .

Étapes :

➤ Follow Step-01 de la section 1 .

➤ Écrivez le code suivant

 Sub checkvalue6() Dim x As Variant x = "09:30:00 AM" MsgBox IsNumeric(x) End Sub 

Ici, nous avons déclaré x en tant que Variante et il enregistrera une heure. Ensuite ISNUMERIC retournera VRAI si l'heure est numérique sinon il retournera FAUX .

➤ Press F5 .

Après cela, vous obtiendrez une boîte de message disant "Faux" ce qui signifie les heures ne sont pas numériques .

Vous pouvez également essayer avec le Fonction TIMESERIAL pour créer des dates et vérifier si elles sont numériques ou non.

➤ Tapez le code suivant

 Sub checkvalue6a() Dim x As Variant x = TimeSerial(9, 30, 0) MsgBox IsNumeric(x) End Sub 

Ici, nous avons déclaré x en tant que Variante et il stockera une heure créée par le Fonction TIMESERIAL . puis ISNUMERIC retournera VRAI si l'heure est numérique sinon il retournera FAUX .

➤ Press F5 .

Ensuite, vous obtiendrez un message disant "Faux" également cette fois.

Là encore, nous pouvons essayer de faire référence à une valeur temporelle dans une cellule d'une feuille.

➤ Tapez le code suivant

 Sub checkvalue6b() Dim x As Variant x = range("B2").value MsgBox IsNumeric(x) End Sub 

Ici, nous avons déclaré x en tant que Variante et il stockera un temps qui est dans le B2 cellule. Puis ISNUMERIC retournera VRAI si l'heure est numérique sinon il retournera FAUX .

➤ Press F5 .

Enfin, vous obtiendrez une boîte de message disant "Vrai" cette fois-ci.

Lire la suite : Comment utiliser VBA TimeSerial dans Excel (3 exemples)

7. utilisation de VBA IsNumeric pour une plage de valeurs

Ici, nous allons vérifier si les valeurs de l'élément Marques/Grades sont numériques ou non numériques et ont les résultats dans la colonne Vérifiez colonne.

Étapes :

➤ Follow Step-01 de la section 1 .

➤ Écrivez le code suivant

 Sub checkvalue7() Dim cell As Range For Each cell In Range("D5:D11") cell.Offset(0, 1) = IsNumeric(cell) Next cell End Sub 

Nous avons déclaré la cellule en tant que Range et utilisé une fonction POUR boucle pour les cellules de la plage "D5:D11" et pour ces cellules, le ISNUMERIC retournera VRAI si la valeur est numérique, sinon il retournera FAUX et cellule.Offset(0, 1) renverra les valeurs de sortie dans une colonne ultérieure à la colonne d'entrée.

➤ Press F5 .

Après cela, nous aurons VRAI pour les valeurs numériques ou Marks et FAUX pour les valeurs non numériques ou Grades .

Lire la suite : Comment utiliser la fonction VBA Val dans Excel (7 exemples)

8. création d'une fonction pour tester une plage de valeurs

Dans cette section, nous allons créer une fonction avec l'attribut VBA ISNUMERIC et vérifier si les valeurs des Marques/Grades sont numériques ou non numériques.

Step-01 :

➤ Follow Step-01 de la section 1 .

➤ Ecrivez et enregistrez le code suivant

 Function IsNumericTest(value As Variant) As Boolean If IsNumeric(value) Then IsNumericTest = True Else IsNumericTest = False End If End Function 

Ce code va créer une fonction nommée IsNumericTest .

Step-02 :

➤ Retournez à la feuille principale et tapez la formule suivante dans la cellule E5

D5 est le Marques/Grades d'un élève et IsNumericTest retournera VRAI/FAUX en fonction de la valeur.

➤ Press ENTER et faites glisser vers le bas le Poignée de remplissage outil.

Enfin, nous aurons VRAI pour les valeurs numériques ou Marks et FAUX pour les valeurs non numériques ou Grades .

Contenu connexe : Comment utiliser la fonction VBA DIR dans Excel (7 exemples)

9. compter les valeurs non numériques avec la fonction IsNumeric de VBA

Nous voulons compter les valeurs non numériques ou les notes des Marques/Grades et pour ce faire, nous allons utiliser la colonne VBA ISNUMERIC et avoir le nombre total des valeurs non-numériques que nous avons dans la Comte colonne.

Step-01 :

➤ Follow Step-01 de la section 1 .

➤ Ecrivez et enregistrez le code suivant

 Function countnonnumeric(value As range) As Long Dim cell As range Dim count As Long For Each cell In value.Cells If Not IsNumeric(cell.value) Then count = count + 1 End If Next countnonnumeric = count End Function 

Ce code va créer une fonction nommée countnonnumeric .

Lorsque la valeur de la cellule n'est pas une valeur numérique, la fonction compter sera augmenté de 1 .

Step-02 :

➤ Retournez à la feuille principale et tapez la formule suivante .

D5:D11 est la portée de la Marques/Grades des élèves et countnonnumeric retournera le nombre total de notes non numériques.

➤ Press ENTER

Enfin, vous obtiendrez la valeur 3 ce qui signifie que vous avez 3 Grades dans le Marques/Grades colonne.

Lire la suite : Comment retourner une valeur dans une fonction VBA (valeurs de type tableau ou non) ?

IsNumeric vs ISNUMBER

• ISNUMERIC vérifie si une valeur peut être convertie en un nombre et ISNUMBER vérifie si une valeur est stockée sous forme de nombre.
• Il existe quelques différences entre les Fonction VBA ISNUMERIC et l'Excel Fonction ISNUMBER et nous avons essayé de montrer les différences ci-dessous en utilisant notre fichier précédemment créé Fonction IsNumericTest et la fonction Excel intégrée Fonction ISNUMBER .

Section pratique

Pour vous entraîner vous-même, nous avons fourni un Pratique comme ci-dessous dans une feuille nommée Pratique S'il vous plaît, faites-le vous-même.

Conclusion

Dans cet article, nous avons essayé de couvrir quelques-unes des façons d'utiliser les VBA ISNUMERIC J'espère que vous le trouverez utile. Si vous avez des suggestions ou des questions, n'hésitez pas à les partager dans la section des commentaires.