Le erreur d'incompatibilité de type dans Excel VBA se produit lorsque vous essayez d'affecter une valeur à une variable qui n'est pas du type correct.
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
Dim number As Integer
nombre = "vélo"
Résultat lorsque vous cliquez sur le bouton de commande sur la feuille :
Explication : vous ne pouvez pas affecter une valeur de chaîne (vélo) à une variable de type Integer.
L'erreur de non-concordance de type (erreur d'exécution 13) se produit souvent lors de l'utilisation de la fonction InputBox dans Excel VBA.
1. Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
Dim number As Integer
nombre = InputBox("Entrez un nombre", "Racine carrée")
MsgBox "La racine carrée de " & nombre & " est " & Sqr(nombre)
2. Cliquez sur le bouton de commande sur la feuille, entrez la valeur de chaîne cent et cliquez sur OK.
Résultat:
3. Cliquez sur Fin.
4. Pour afficher un message amical au lieu du erreur d'incompatibilité de type, mettez à jour le code comme suit.
Numéro de cote En tant que variante
nombre = InputBox("Entrez un nombre", "Racine carrée")
Si est numérique (nombre) alors
MsgBox "La racine carrée de " & nombre & " est " & Sqr(nombre)
Autre
MsgBox "Veuillez entrer un numéro"
Fin si
Explication : une variable de type Variant peut contenir n'importe quel type de valeur (voir première ligne). La fonction IsNumeric dans Excel VBA vérifie si une valeur est un nombre.
5. Répétez l'étape 2.
Résultat:
6. Enfin, vérifiez si ce simple calculateur de racine carrée fonctionne.
Résultat:
Astuce : téléchargez le fichier Excel (côté droit de cette page) et essayez-le.
