Erreur 1004 - Erreur définie par l'application ou par l'objet
Résolu/Fermé
Forp74
Forp74
- Messages postés
- 6
- Date d'inscription
- mercredi 14 octobre 2015
- Statut
- Membre
- Dernière intervention
- 28 octobre 2017
Forp74
- Messages postés
- 6
- Date d'inscription
- mercredi 14 octobre 2015
- Statut
- Membre
- Dernière intervention
- 28 octobre 2017
A voir également:
- Erreur définie par l'application ou par l'objet 1004 vba
- Erreur d'exécution 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
- Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Erreur 1004 Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Erreur1004 erreur définie par l'application ou par l'objet ✓ - Forum - Excel
- Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
3 réponses
Patrice33740
28 oct. 2017 à 13:28
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
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 ' ....