A voir également:
- Erreur d'execution 1004
- Erreur d'exécution 1004 vba - Meilleures réponses
- Erreur execution 1004 - Meilleures réponses
- Erreur d'éxecution 1004 - Forum - Programmation
- MACRO : Problème " Erreur d'exécution '1004' " ✓ - Forum - Excel
- Erreur d'execution '1004' ✓ - Forum - VB / VBA
- Erreur d'execution 1004 vba erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- VBA / Erreur d'exécution 1004 ✓ - Forum - VB / VBA
8 réponses
JvDo
- Messages postés
- 1978
- Date d'inscription
- mercredi 27 juillet 2005
- Statut
- Membre
- Dernière intervention
- 28 septembre 2020
Bonjour,
rassure moi :
tu as bien mis le worksheets(1).cells.replace sur la ligne où tu as ton replace, ie avec les options du replace derrière!
autrement dit, tu n'as pas une ligne avec seulement worksheets(1).cells.replace ?
worksheets(1).cells remplace le selection du replace.
A+
rassure moi :
tu as bien mis le worksheets(1).cells.replace sur la ligne où tu as ton replace, ie avec les options du replace derrière!
autrement dit, tu n'as pas une ligne avec seulement worksheets(1).cells.replace ?
worksheets(1).cells remplace le selection du replace.
A+
dsl
je suis nul en informatique mais quesque ça veut dire Worksheets(1).Cells.Replace ??? comment on fait pour modifier ect ?????
pijaku
- Messages postés
- 12235
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 6 janvier 2021
Bonjour,
La fonction Replace sert à remplacer, dans une chaine, une sous chaine par une autre.
Voici le lien pour la syntaxe : https://www.microsoft.com/en-us/download/details.aspx?id=55984
Les paramètres obligatoires sont Expression (la chaîne dans laquelle on souhaite remplacer quelque chose), Find (ce que l'on souhaite remplacer), Replacement (ce par quoi on va remplacer).
Exemple :
Dans la phrase "Bonjour, comment allez vous", je souhaite remplacer les "ou" par des "ai", je fais :
J'obtiens donc : "Bonjair, comment allez vais".
La syntaxe : Worksheets(1).Cells.Replace va remplacer (comme Ctrl+H ou Editions/Remplacer) dans toutes les cellules de la feuille 1...
OK?
La fonction Replace sert à remplacer, dans une chaine, une sous chaine par une autre.
Voici le lien pour la syntaxe : https://www.microsoft.com/en-us/download/details.aspx?id=55984
Les paramètres obligatoires sont Expression (la chaîne dans laquelle on souhaite remplacer quelque chose), Find (ce que l'on souhaite remplacer), Replacement (ce par quoi on va remplacer).
Exemple :
Dans la phrase "Bonjour, comment allez vous", je souhaite remplacer les "ou" par des "ai", je fais :
Dim StrExpression As String StrExpression = Replace("Bonjour, comment allez vous", "ou", "ai") MsgBox StrExpression
J'obtiens donc : "Bonjair, comment allez vais".
La syntaxe : Worksheets(1).Cells.Replace va remplacer (comme Ctrl+H ou Editions/Remplacer) dans toutes les cellules de la feuille 1...
OK?
Damien
Bonsoir,
En fait j'ai cette erreur apparait quand je suis sur une autre feuille que ma feuille1 lors de l'actualisation de tableau importé
Est ce que quelqu'un aurait une petite idée??
Merci pour votre aide
En fait j'ai cette erreur apparait quand je suis sur une autre feuille que ma feuille1 lors de l'actualisation de tableau importé
Est ce que quelqu'un aurait une petite idée??
Merci pour votre aide
damien
Si je remplace "Cells.Select " par "Worksheets(1).Cells.Replace ", j'ai une nouvelle erreur qui apparait:
"erreur 450 "
et ca me selectionne Worksheets(1).Cells.Replace
Merci pour ton aide
"erreur 450 "
et ca me selectionne Worksheets(1).Cells.Replace
Merci pour ton aide
mal22
salut a tous
j'ai un super truc qui m'agace, message erreur 1004 "la methode select de la classe range a echoué"
la macro ne demande rien d'autre que :
"range("A2").select
quand je lance j'ai le message d'erreur ...mais le plus barban c'est que cela fonctionne avec d'autre classeur ??????
c'ets donc pas un probleme d'installation
qqu a -t-il une solution
j'ai un super truc qui m'agace, message erreur 1004 "la methode select de la classe range a echoué"
la macro ne demande rien d'autre que :
"range("A2").select
quand je lance j'ai le message d'erreur ...mais le plus barban c'est que cela fonctionne avec d'autre classeur ??????
c'ets donc pas un probleme d'installation
qqu a -t-il une solution
JvDo
- Messages postés
- 1978
- Date d'inscription
- mercredi 27 juillet 2005
- Statut
- Membre
- Dernière intervention
- 28 septembre 2020
Bonsoir,
essaye :
Worksheets(1).Cells.Replace .......
directement sans passer par des select
A+
essaye :
Worksheets(1).Cells.Replace .......
directement sans passer par des select
A+
fran
Bonjour moi aussi j'ai un soucis de même nature cependant ce n'est pas moi qui ai créer la macro est-ce que quelqu'un pourrait m'aider?
Qu'est-ce cette macro veut dire?
La feuille se présente ainsi :
' Actualiser Macro
' Macro enregistrée le 04/11/04 par S033271
'
'
ActiveWindow.ScrollRow = 2
Range("A3:X3").Select
** Selection.AutoFill Destination:=Range("etp_calculés_01_12"), Type:=xlFillDefault
Range("etp_calculés_01_12").Select
ActiveWindow.SmallScroll ToRight:=47
ActiveWindow.ScrollRow = 2
Range("CM3:CN3").Select
Selection.AutoFill Destination:=Range("etp_mois_cumulés"), Type:=xlFillDefault
Range("etp_mois_cumulés").Select
ActiveWindow.ScrollRow = 2
Range("Z3").Select
Call Maj_TCD
Sheets("Détail affectations").Activate
Range("Z3").Select
End Sub
Message d'erreur
Erreur d'execution '1004'
La méthode autofill de la classe Range a échoué
Qu'est-ce cette macro veut dire?
La feuille se présente ainsi :
' Actualiser Macro
' Macro enregistrée le 04/11/04 par S033271
'
'
ActiveWindow.ScrollRow = 2
Range("A3:X3").Select
** Selection.AutoFill Destination:=Range("etp_calculés_01_12"), Type:=xlFillDefault
Range("etp_calculés_01_12").Select
ActiveWindow.SmallScroll ToRight:=47
ActiveWindow.ScrollRow = 2
Range("CM3:CN3").Select
Selection.AutoFill Destination:=Range("etp_mois_cumulés"), Type:=xlFillDefault
Range("etp_mois_cumulés").Select
ActiveWindow.ScrollRow = 2
Range("Z3").Select
Call Maj_TCD
Sheets("Détail affectations").Activate
Range("Z3").Select
End Sub
Message d'erreur
Erreur d'execution '1004'
La méthode autofill de la classe Range a échoué
Un peu vieux le sujet, mais éternellement d'actualité...
Le mieux, c'est de ne pas sélectionner du tout!!!!!!
Remplace :
Par :
!!!! 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