Erreur d'exécution 13 Incompatibilité de type [Résolu/Fermé]

Signaler
Messages postés
13
Date d'inscription
lundi 13 novembre 2017
Statut
Membre
Dernière intervention
16 août 2018
-
Messages postés
13
Date d'inscription
lundi 13 novembre 2017
Statut
Membre
Dernière intervention
16 août 2018
-
Bonsoir

Je suppose que la question a été posée plein de fois mais je débute et suis un peu démunie.
J'ai saisie le code VBA et exécuté ma macro une première fois sans problème.
Lorsque j'ai voulu ré-exécuter la macro j'ai eu un message Erreur d'exécution 13 Incompatibilité de type. Dans le code une ligne est surlignée en jaune mais je ne vois pas ce qui pose problème.
Voici la copie du code. C'est la ligne en gras qui est surlignée en jaune lorsque j'ouvre la modification




Vous remerciant par avance pour l'aide que vous pourrez m'apporter

3 réponses

Bonjour

Dans la ligne
N = Right(Range("C3").Value, 5)

tu définis N comme un String

ensuite tu fais comme si N était un nombre
Format(N + 1,"00000")

il faudrait plutot ecrire
Format (Val(N)+1, "00000")
Messages postés
11771
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
7 août 2020
674
bonjour,
je suggère de remplacer
Dim N
Sub Numéro

par
Sub Numéro 
Dim N as Long
Messages postés
13
Date d'inscription
lundi 13 novembre 2017
Statut
Membre
Dernière intervention
16 août 2018

Merci Yoda
Ca marche nickel !