Ce didacticiel montrera comment utiliser la fonction CInt VBA pour convertir une expression en type de données entier.
Fonction CInt
VBA CInt Convertir l'expression en entier
La fonction VBA CInt peut être utilisée pour convertir des expressions en type de données entier dans le code VBA. Le nombre résultant est arrondi pour devenir un entier.
| 123456 | Sous CIntExample_1()MsgBox CInt(12.34) 'Le résultat est : 12MsgBox CInt(12.345) 'Le résultat est : 12MsgBox CInt(-124) 'Le résultat est : -124MsgBox CInt(-12.34) 'Le résultat est : -12Fin du sous-marin |
Arrondi CInt VBA
La fonction VBA CInt arrondira la partie décimale d'un type de nombre ou d'une expression de type nombre. Cependant, il ne s'arrondit pas correctement dans tous les cas. Lorsque la partie décimale est de 0,5, la fonction VBA CInt renvoie l'entier pair le plus proche.
| 12345678910111213141516 | Sous CIntExample_2()MsgBox CInt(0.34)'Le résultat est : 0MsgBox CInt(0.99)'Le résultat est : 1MsgBox CInt(-124.95)'Le résultat est : -125MsgBox CInt (1.5)'Le résultat est : 2MsgBox CInt (2.5)'Le résultat est : 2Fin du sous-marin |
Nous pouvons ajouter un nombre décimal relativement petit à notre valeur décimale attendue pour modifier le comportement de la fonction VBA Cint en fonction de ce qui est attendu.
| 1234567891011 | Sous CIntExample_3()MsgBox CInt (2.5)'Le résultat est : 2MsgBox CInt (2,5 + 0,001)'Le résultat est : 3MsgBox CInt(14.5)'Le résultat est : 14MsgBox CInt (14,5 + 0,001)'Le résultat est : 15Fin du sous-marin |
Programmation VBA | Le générateur de code fonctionne pour vous !
VBA CInt Conversion de chaînes en entiers
La fonction VBA CInt peut être utilisée pour convertir des chaînes en nombres entiers si les caractères de la chaîne ont une signification sous forme de nombres.
| 123456789101112131415161718 | Sous CIntExample_4()Dim StrEx en tant que chaîneStrEx = "112"MsgBox CInt(StrEx)'Le résultat est : 112StrEx = "112.3"MsgBox CInt(StrEx)'Le résultat est : 112 --> 112.3 est arrondiStrEx = "11,2"MsgBox CInt(StrEx)'Le résultat est : 112 --> , est ignoréStrEx = " 112 $"MsgBox CInt(StrEx)'Le résultat est : 112 --> $ est ignoréFin du sous-marin |
Erreur d'exécution VBA CInt 13 non-concordance de type
L'utilisation de la fonction VBA Cint avec des chaînes contenant des caractères non numériques ou des caractères qui n'ont pas de sens dans un contexte numérique entraînera une erreur d'exécution « 13 » : incompatibilité de type.
| 1234567 | Sous CIntExample_5()'Le code ci-dessous entraînera un message d'ERREUR'CInt ne peut pas gérer les caractères non numériquesDim StrEx en tant que chaîneStrEx = "Ab13"MsgBox CInt(StrEx)Fin du sous-marin |
Débordement d'erreur d'exécution VBA CInt 6
L'utilisation de la fonction VBA Cint avec des chaînes qui entraînent une valeur inférieure ou supérieure à l'entier attendu entraînera une erreur d'exécution « 6 » : débordement. Le type de données entier dans Excel a une valeur attendue de -32768 à 32767.
| 1234567 | Sous CIntExample_6()'Le code ci-dessous entraînera un message d'ERREUR'CInt ne peut pas gérer les caractères non numériquesDim StrEx en tant que chaîneStrEx = "1234567"MsgBox CInt(StrEx)Fin du sous-marin |
Fatigué de rechercher des exemples de code VBA ? Essayez AutoMacro !
Paramètres régionaux VBA CInt
La fonction VBA CInt a un comportement différent en convertissant les chaînes avec une virgule ou un point. Il utilise les paramètres régionaux du système d'exploitation pour le séparateur décimal et le séparateur de chiffres.
| 12345678910111213141516 | Sous CIntExample_7()Dim StrEx en tant que chaîneStrEx = "1,9"MsgBox CInt(StrEx)« Si les paramètres régionaux ont , comme séparateur de regroupement, alors'Le résultat est : 19‘Si les paramètres régionaux ont , comme séparateur décimal alors'Le résultat est : 2 (2 car 1,9 est arrondi)StrEx = "1.9"MsgBox CInt(StrEx)« Si les paramètres régionaux ont . comme séparateur de regroupement alors'Le résultat est : 19« Si les paramètres régionaux ont . comme séparateur décimal alors'Le résultat est : 2 (2 car 1,9 est arrondi)Fin du sous-marin |
Programmation VBA | Le générateur de code fonctionne pour vous !
VBA CInt Conversion de booléens en nombres entiers
La fonction VBA Cint peut convertir des variables booléennes en nombres entiers. Si l'expression évaluée est vraie, l'entier résultant est -1 et si l'expression évaluée est fausse, l'entier résultant est 0.
| 12345678910 | Sous CIntExample_8()Dim BoolEx en tant que booléenBoolEx = VraiMsgBox CInt(BoolEx) 'Le résultat est : -1MsgBox CInt(2 = 2) 'Le résultat est : -1BoolEx = FauxMsgBox CInt(BoolEx) 'Le résultat est : 0MsgBox CInt(1 = 2) 'Le résultat est : 0Fin du sous-marin |
VBA CInt Conversion de dates en nombres entiers
La fonction VBA Cint peut convertir une variable de date en un entier. La valeur renvoyée est le numéro interne utilisé par Excel pour le stockage de la date arrondie. Si ce nombre est en dehors des limites d'entier attendues pour VBA, nous obtenons une erreur d'exécution « 6 » : débordement.
| 123456789 | Sous CIntExample_9()Dim DateEx As DateDateEx = #2/3/1940#MsgBox CInt(DateEx)'Le résultat est : 14644DateEx = #8/7/1964#MsgBox CInt(DateEx)'Le résultat est : 23596Fin du sous-marin |
