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
A voir également:
- Erreur 1004 vba
- Erreur d'execution 1004 - Meilleures réponses
- Erreur d'exécution 1004 vba - Meilleures réponses
- Erreur 3005 france tv - Forum TV & Vidéo
- Incompatibilité de type vba ✓ - Forum Programmation
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur t32 ✓ - Forum Livebox
- Erreur 0x80070643 - Accueil - Windows
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...
Cordialement
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
Bonjour Merci merci beaucoup