Erreur d exec 13
samsoung
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Erreur d exec 13
- Fifa 13 - Télécharger - Jeux vidéo
- Test redmi note 13 5g - Accueil - Téléphones
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
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/
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 :
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
