Erreur d'exécution 13 Incompatibilité de type

Résolu/Fermé
edlyg Messages postés 13 Date d'inscription lundi 13 novembre 2017 Statut Membre Dernière intervention 16 août 2018 - 13 nov. 2017 à 20:01
edlyg Messages postés 13 Date d'inscription lundi 13 novembre 2017 Statut Membre Dernière intervention 16 août 2018 - 13 nov. 2017 à 21:33
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
A voir également:

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")
0
yg_be Messages postés 23309 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 2 novembre 2024 Ambassadeur 1 550
13 nov. 2017 à 20:44
bonjour,
je suggère de remplacer
Dim N
Sub Numéro

par
Sub Numéro 
Dim N as Long
0
edlyg Messages postés 13 Date d'inscription lundi 13 novembre 2017 Statut Membre Dernière intervention 16 août 2018
13 nov. 2017 à 21:33
Merci Yoda
Ca marche nickel !
0