Erreur d'éxecution 1004
Damien
-
Leclaudefranc -
Leclaudefranc -
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
"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
8 réponses
-
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.-
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.CopyPar :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... -
-
-
-
-
