Sujet Précédent Sujet Suivant

Erreur d'éxecution 1004

Fermé
Damien - 21 sept. 2006 à 17:34
 Leclaudefranc - 26 oct. 2022 à 14:30
Je suis en train de créer un fichier excel avec une importation d'un tableau d'un site internet et quelques fois j'ai cette erreur qui apparait:

"Erreur d'éxécution 1004
La méthode select de la classe Range a échoué"



Voila mon code aui me sert à supprimer certain élément de ce tableau lors de l'importation:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
Cells.Select (l'erreur se trouve ici)
Selection.Replace What:=" ~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub


Est ce que quelqu'un aurait une petite idée pour supprimer cette erreur?

Merci pour votre aide
A voir également:

8 réponses

Réponse 1 / 8
Ska
14 janv. 2011 à 10:06
Bonjour,

J'avais à peu prés la même erreur et je viens de la corriger.
Il suffit d'activer la page ou tes cellules sont sélectionnées avec un ".Activate" sur un objet de type Worksheet".
(en l'occurrence Worksheets(1).Activate au dessus du select.)

J'espère que ca aidera des personnes.
14
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
14 janv. 2011 à 11:16
Salut Ska,
Un peu vieux le sujet, mais éternellement d'actualité...

Le mieux, c'est de ne pas sélectionner du tout!!!!!!
Remplace : 
WorkSheets(1).Activate
Range("A1").Select
Selection.Copy
Par : 
With WorkSheets(1)
    .Range("A1").Copy
End With

!!!! le point devant "range" est dans ce cas Hyper primordial !!!!!!

Les .Select ralentissent l'exécution du code. En effect, d'abord tu sélectionnes et ensuite tu donnes l'action à réaliser. Dans le 2nd cas, avec With et End With, tu fais l'action tout de suite, sans sélection préalable...
0
Ines
27 août 2012 à 00:37
Bonjour, j'ai le meme probleme, mais quand j'essaie de telecharger une appli ou un jeu sur aap store, comment reparer ca?
0
Robin
28 févr. 2013 à 15:42
Merci , cela m'as beaucoup aider !!! je me battais avec mes macros et mes boutons depuis des heures


Cordialement
0
moi03
10 févr. 2015 à 10:54
bonjour ska,

stp pourrais-tu être plus précis "Il suffit d'activer la page ou tes cellules sont sélectionnées avec un ".Activate" sur un objet de type Worksheet". mais comment
0
Leclaudefranc
26 oct. 2022 à 14:30

Bonjour Merci merci beaucoup

0

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
VBA excel: Erreur 424, objet requis
Inarius -
Inarius -

4 réponses
Erreur 1004 - Erreur définie par l'application ou par l'objet
Forp74 -
Forp74 -

5 réponses
Erreur 1004 Erreur définie par l'application ou par l'objet
joelar -
joelar -

7 réponses
Erreur d'execution '1004'
iroko45 -
thautheme -

4 réponses
Bibliothèque introuvable
Thibodeau19 -
Chelhydra -

4 réponses