Erreur d'exécution 1004
Fermé
flobod
Messages postés
3
Date d'inscription
lundi 6 janvier 2014
Statut
Membre
Dernière intervention
6 janvier 2014
-
6 janv. 2014 à 18:01
flobod Messages postés 3 Date d'inscription lundi 6 janvier 2014 Statut Membre Dernière intervention 6 janvier 2014 - 6 janv. 2014 à 19:32
flobod Messages postés 3 Date d'inscription lundi 6 janvier 2014 Statut Membre Dernière intervention 6 janvier 2014 - 6 janv. 2014 à 19:32
A voir également:
- Erreur d'exécution 1004
- Erreur 0x80070643 - Guide
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Guide
- Erreur 38 free ✓ - Forum Mobile
- Erreur 1001 outlook - Guide
2 réponses
Mike-31
Messages postés
18337
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 septembre 2024
5 099
6 janv. 2014 à 18:08
6 janv. 2014 à 18:08
Bonsoir,
comment te venir en aide sans voir le code ou mieux le fichier sans note confidentielle qu'il est possible de déposer à partir de ce lien
https://www.cjoint.com/
comment te venir en aide sans voir le code ou mieux le fichier sans note confidentielle qu'il est possible de déposer à partir de ce lien
https://www.cjoint.com/
flobod
Messages postés
3
Date d'inscription
lundi 6 janvier 2014
Statut
Membre
Dernière intervention
6 janvier 2014
Modifié par flobod le 6/01/2014 à 18:41
Modifié par flobod le 6/01/2014 à 18:41
Voici le lien.
Merci d'avance: http://cjoint.com/data3/3AgsMgVckmx.htm
L'erreur se présente qd sur la feuille de résultats je click sur attribuer les points.
Merci d'avance: http://cjoint.com/data3/3AgsMgVckmx.htm
L'erreur se présente qd sur la feuille de résultats je click sur attribuer les points.
flobod
Messages postés
3
Date d'inscription
lundi 6 janvier 2014
Statut
Membre
Dernière intervention
6 janvier 2014
6 janv. 2014 à 19:32
6 janv. 2014 à 19:32
Voici l'erreur telle quelle est présentée quand je click sur débogage:
If avec = 2 Then GoTo Suite
MyTab.Cells(1, 9).Select
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = a Then
ActiveCell.Offset(0, -2).Select
ActiveCell.Value = ActiveCell.Value + 1
Exit Do
End If
C'est la ligne ActiveCell.Offset(1, 0).Select qui est surlignée en jaune.
If avec = 2 Then GoTo Suite
MyTab.Cells(1, 9).Select
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = a Then
ActiveCell.Offset(0, -2).Select
ActiveCell.Value = ActiveCell.Value + 1
Exit Do
End If
C'est la ligne ActiveCell.Offset(1, 0).Select qui est surlignée en jaune.