Erreur d exec 13
Bonjour,
j ai un souci
il y a quelque jour j avais creer ce code vba dans un module et ca fonctionnait et depuis il ne veux plus rien savoir je vais craquer lol
le code :
sheets("feuil1").range("A1").value=sheets("feuil1").range('A1").value+1
A1 = F5003001 ce qui donnait apres le lancement de la macro
A1 = F5003002
et la ca ne fonctionne plus et ca marque erreur d execu '13
quelqu un pourrait il m aider
j ai un souci
il y a quelque jour j avais creer ce code vba dans un module et ca fonctionnait et depuis il ne veux plus rien savoir je vais craquer lol
le code :
sheets("feuil1").range("A1").value=sheets("feuil1").range('A1").value+1
A1 = F5003001 ce qui donnait apres le lancement de la macro
A1 = F5003002
et la ca ne fonctionne plus et ca marque erreur d execu '13
quelqu un pourrait il m aider
Configuration: Windows / Chrome 80.0.3987.132
2 réponses
-
Bonjour,
Vérifiez que le nom de l'onglet est bien feuil1 (sans espace avant, après, et avec les minuscule, majuscule)
Vérifiez que vous avez bien mis un apostrophe entre les range("A1").value
Sinon, placez votre classeur sans données confidentielles
Allez dans https://www.cjoint.com/
Cliquez sur "PARCOURIR" pour sélectionner le classeur
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur le post Clic droit "Coller".
ou dans https://mon-partage.fr/ -
Bonjour,
Si ce code fonctionnait avant c'est qu'il n'y avait pas le F au début du numéro !
Si tu l'enlève, le code refonctionnera (en remplaçant le ' avant A1 par ")
Et si tu veux une lettre au début de ton numéro alors :Sub xxx() Dim p As String ' prefixe Dim n As Long ' numéro p = Left(Worksheets("feuil1").Range("A1").Text, 1) n = Val(Mid(Worksheets("feuil1").Range("A1").Text, 2)) Worksheets("feuil1").Range("A1").Value = p & Format(n + 1, "0000000") End Sub
