Erreurs d"execution 1004 programme simple

Résolu/Fermé

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 - Modifié le 3 juil. 2017 à 10:14
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 - 4 juil. 2017 à 15:16

Bonjour,
Je débute sur VBA, je ne comprend pas pourquoi ce code ne fonctionne pas.


Sub Filtrer()
'
' Filtrer Macro
'
' Touche de raccourci du clavier: Ctrl+x
'
    Worksheets(3).Activate
    Sheets("paramètres").Select
    Selection.AutoFilter Field:=13, Criteria1:=Range("M2")
    Sheets("Feuille accueil").Select
    

End Sub

La ligne

Selection.AutoFilter Field:=13, Criteria1:=Range("M2")

est celle remise en cause

Ce programme fonctionne sur un onglet appelé productionparameters mais pas sur l'onglet paramètres

merci d'avance pour votre aide

A voir également:

Erreurs d"execution 1004 programme simple
Erreur d'execution 1004 ✓ - Forum VB / VBA
Le programme à télécharger ci-dessous contient des erreurs et n'est pas complet. corrigez-le et exécutez-le. quel mot de dix lettres est obtenu ? ✓ - Forum Python
Ce message d'erreur apparaît sur l'ordinateur d'elena. que peut-on dire du programme gwxux ? - Forum logiciel systeme
Programme demarrage windows 10 - Guide
Simple ocr - Télécharger - Bureautique

7 réponses

Réponse 1 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 3 juil. 2017 à 10:18

Bonjour,

Que ce soit Jordane45 (Bonjour) ou moi; on t'avait proposé des réponses à ces discussions
https://forums.commentcamarche.net/forum/affich-34693700-erreur-d-execution-6-depassement-de-capacite
https://forums.commentcamarche.net/forum/affich-34694017-fusionner-deux-code-simple

discussions marquées "Résolu"
On attend encore à ce jour ton
MERCI!

Tu connais ?
lire d'urgence
https://www.commentcamarche.net/infos/25855-charte-d-utilisation-de-commentcamarche-net-respect-d-autrui/#politesse

Michel

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
3 juil. 2017 à 10:29

Tu as raison, excuse moi j'avais oublié, normalement je le dit ^^'

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
3 juil. 2017 à 13:51

Ceci étant résolu as-tu une idée d'une solution pour mon problème ?

Réponse 2 / 7

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
3 juil. 2017 à 11:36

Il s'agit de excel 2016

gérard
Modifié le 3 juil. 2017 à 16:40

Bonjour scuti,

Je pense que c'est indépendant de ta version d'Excel, mais tu as quand
même bien fait de préciser (au cas où).

Tu as écris que ça fonctionne bien sur ton onglet productionparameters ;
et c'est sûrement ta 3ème feuille puisqu'il y a : Worksheets(3).Activate

Ainsi, ton tableau avec filtre activé est sur ta 3ème feuille et pas sur
ton onglet "paramètres" : on pourrait penser que c'est pour ça que
ça plante ; mais non puisque de toute façon, même si tu lances ta
macro depuis ton onglet "paramètres", c'est quand même ta 3ème
feuille qui sera activée dès l'entrée de ta macro.

À tout hasard, essaye en remplaçant Worksheets(3).Activate par
Worksheets(3).Select ; sinon, je n'ai pas d'autre idée.

Si ton problème est réglé, merci de passer le sujet en résolu.

Cordialement

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 > gérard
3 juil. 2017 à 16:33

Bonjour Gérard, malheureusement ce n'est pas ça, j'avais modifié ce paramètre, l'onglet productionparameters est le 2ème sur ma feuille.

Et c'est bien la ligne :

Selection.AutoFilter Field:=13, Criteria1:=Range("M2")

qui semble poser problème

gérard > scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
3 juil. 2017 à 16:43

Oui, mais ton tableau avec filtre est sur quelle feuille ?
S'il est sur ta 2ème feuille : Worksheets(2).Activate

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 > gérard
3 juil. 2017 à 16:46

Il est sur la troisieme

gérard > scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
3 juil. 2017 à 17:05

Dans ce cas, ton Worksheets(3).Activate est bon ; mais à tout hasard, essaye
quand même en le remplaçant par : Worksheets(3).Select ; ou encore par :
Worksheets("productionparameters").Select

Si la feuille est bonne, alors vérifie que sur cette feuille, ton tableau avec filtre
activé a bien un champ n° 13.

⚠ Si la 1ère colonne du tableau est en colonne D : le champ n° 1 correspond
à cette colonne D ; ta colonne E est le champ n° 2 ; ... et c'est ta colonne P
qui est ton champ n° 13.

Si le champ n° 13 est bon, il reste à vérifier ton critère, en cellule M2.

Réponse 3 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
3 juil. 2017 à 18:11

Tr,
mets plutôt ton classeur en PJ

Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic gauche :coller le raccourci  dans votre message

Dans l’attente

Réponse 4 / 7

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476
Modifié le 3 juil. 2017 à 19:16

bonsoir, suggestion:

Sheets("paramètres").Cells.AutoFilter Field:=13, Criteria1:=Sheets("paramètres").Range("M2")

de préférence, en supprimant les .Activate et les .Select

gérard
4 juil. 2017 à 01:32

Bonjour yg_be,

Tu as raison : c'est mieux sans les .Activate et sans les .Select ; et ça devrait passer
sûrement mieux si le critère est lui aussi préfixé par la bonne feuille !

Même si je l'avance un peu vite, il me semble que tu as trouvé la bonne solution,
et que scuti pourra bientôt le confirmer.

Cordialement

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
4 juil. 2017 à 09:46

Bonjour, merci pour votre aide

Voila une partie du fichier qui fait originellement 40 colonnes sur 365 000 lignes.

La macro 3 est celle qui nous intéresse.

Le fichier s'appelle autre.

Quand j'utilise le code de yg_be sur la feuille Productionparameters cela fonctionne mais quand je l'utilise sur la feuille paramètres il n'y a plus de message d'erreur mais le filtre ne laisse plus rien passer.

https://mon-partage.fr/f/dZFuwVe6/

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476
4 juil. 2017 à 09:51

je ne vois pas le code proposé dans le fichier.

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
4 juil. 2017 à 09:56

Mince, peut tu créer un code correspondant et faire un essai quand même il ne doit comporter que ta ligne.
Ou je peut peut-être le rajouter mais je ne sais pas comment.

Réponse 6 / 7

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
4 juil. 2017 à 10:09

Et bien, Merci beaucoup à tout le monde pour le temps passé et continuez ce que vous faites c'est génial.

Réponse 7 / 7

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
4 juil. 2017 à 12:26

Excusez moi;

Le code marche mais quand j'ai voulus le réutiliser il ne fonctionne plus voici les deux codes celui ci fonctionne:

Sub Filtrer2()
'
' Filtrer2 Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
Sheets("paramètres").Cells.AutoFilter Field:=1, Criteria1:=Sheets("paramètres").Range("J2")
    
End Sub

Mais pas celui la :

Sub Filtrer()
'
' Filtrer Macro
'
' Touche de raccourci du clavier: Ctrl+x
'
Sheets("paramètres").Cells.AutoFilter Field:=4, Criteria1:=Sheets("paramètres").Range("M2")

End Sub

Avez vous une idée ?

gérard
4 juil. 2017 à 12:36

a) Un truc tout bête : es-tu sûr que ton raccourci Ctrl+x lance ta macro Filtrer ?
surtout que Ctrl+x est utilisé en général pour l'opération Couper !

b) Si ce n'est pas a) : la syntaxe de ta ligne de code est identique dans les
deux cas ; donc vérifier n° de champ et cellule du critère : 4 et "M2"

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
4 juil. 2017 à 13:57

Ce n'est pas la a)

J'ai essayer toutes les combinaisons possible et la macro affiche le message d'erreur 1004 pour toute les combinaisons n'ayant pas field=1

Quand il est égal à un cela fonctionne avec la valeur indiquée que cela soit M2 ou J2

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476 > scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
4 juil. 2017 à 14:58

tu as probablement modifié tes données, et ton tableau ne fait plus qu'une seule colonne. quel est le message de l'erreur 1004?

scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
4 juil. 2017 à 15:16

Euh j'ai redémarrer mon PC et ça s'est mis à fonctionner, Désolé de t'avoir déranger de nouveau

Merci pour ton aide

Discussions similaires

VBA erreur 1004

MACRO : Problème " Erreur d'exécution '1004' "

Erreur d'éxecution 1004

[excel] erreur 1004 : fichier non enregistré.

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters