Erreur 1004 - Erreur définie par l'application ou par l'objet
Résolu/Fermé
Forp74
Messages postés
6
Date d'inscription
mercredi 14 octobre 2015
Statut
Membre
Dernière intervention
28 octobre 2017
-
28 oct. 2017 à 12:31
Forp74 Messages postés 6 Date d'inscription mercredi 14 octobre 2015 Statut Membre Dernière intervention 28 octobre 2017 - 28 oct. 2017 à 22:04
Forp74 Messages postés 6 Date d'inscription mercredi 14 octobre 2015 Statut Membre Dernière intervention 28 octobre 2017 - 28 oct. 2017 à 22:04
A voir également:
- Erreur d'exécution 1004 erreur définie par l'application ou par l'objet
- Vba erreur 1004 erreur définie par l'application ou par l'objet - Meilleures réponses
- Erreur 1004 vba erreur définie par l'application ou par l'objet - Meilleures réponses
- Aucune application permettant d'ouvrir ce lien n'a été trouvée ✓ - Forum Wiko
- Vente objet occasion entre particulier - Guide
- Lancez l'application. envoyez ce mail à manon (manon@pixmail.org) en mettant en copie nina (nina@pixmail.org) : objet : colis bonjour, votre colis est arrivé. que répond manon ? ✓ - Forum Loisirs / Divertissements
- Application word gratuit - Guide
- Youtube une erreur s'est produite ✓ - Forum YouTube
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 766
28 oct. 2017 à 13:28
28 oct. 2017 à 13:28
Bonjour,
Il faut revoir tout ton code et commencer par supprimer tous les .Select et les Activecell de ton code, ils sont inutiles et c'est la première source d'ennuis.
Au lieu de la sélectionner, il suffit de définir la cellule de référence, par exemple :
Il faut revoir tout ton code et commencer par supprimer tous les .Select et les Activecell de ton code, ils sont inutiles et c'est la première source d'ennuis.
Au lieu de la sélectionner, il suffit de définir la cellule de référence, par exemple :
Dim cel As Range Set cel = Worksheets(NoFeuille).Range("G2") Do While cel.Value <> "" ' Les 3 scores sont du même club If cel.Offset(0, 1).Value = cel.Offset(1, 1).Value And cel.Offset(0, 1).Value = cel.Offset(2, 1).Value Then ' ....