Erreur 13 : incompatibilité de type sur macro - Excel 2021

Bonjour la communauté,

j'ai un fichier excel avec une macro pour calculer le poids d'un carton de papier. Ce fichier fonctionnait très bien jusqu'à la version d'excel 2021, j'etais en 2010 avant.

la macro se déroule avec succès lorsque j'ai 4 exemplaires de papier mais si j'en ai 5, la macro plante et je ne comprends pas pourquoi.

Pour tester la macro exemple à renseigner, cliquer sur la calculette :

Entrer la longueur du document en mm : 152

Entrer la largeur du document en mm : 240

Entrer le nombre de feuillets ..... : 5

Entrer le grammage 1 : 60

Entrer le grammage 2 : 53
Entrer le grammage 3 : 53
Entrer le grammage 4 : 53
Entrer le grammage 5 : 57

C'est à ce moment que la macro plante?....

Je suis novice en VBA

Je vous remercie par avance pour l'aide que vous pourrez m'apporter.

Cordialement
Stéphane

Bonjour,

Le problème vient d'ici:

Dim Gr1, Gr2, Gr3, Gr4, Gr5 As Integer

Cette ligne de code donne le résultat suivant:

On a seulement Gr5 qui est de type Integer, c'est d'ailleurs pour ça que c'est sur cette ligne que ça plante:

If Gr5 = "" Then

Cette ligne est présente pour tous les grammages, mais comme Gr5 est un Nombre de type Integer, c'est impossible de le comparer à "" qui est du texte, ce qui renvoie l'erreur.

Si on veut éviter le plantage, on peut déclarer les variables comme ça:

Dim Gr1, Gr2, Gr3, Gr4, Gr5

Elles sont ainsi toutes de type Variant, et ça ne fait plus planter.

Bonjour Ausecour,

J'ai compris mon erreur, merci beaucoup pour ton explication et ta réponse rapide.

Tout fonctionne correctement.

Merci, bonne journée.

Stéphane

Bonjour,

Content d'avoir pu aider, bonne journée également!