Erreurs d"execution 1004 programme simple
Résolu
scuti
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
scuti Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
scuti Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je débute sur VBA, je ne comprend pas pourquoi ce code ne fonctionne pas.
La ligne
Ce programme fonctionne sur un onglet appelé productionparameters mais pas sur l'onglet paramètres
merci d'avance pour votre aide
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
- Iphone 14 simple - Guide
- Programme demarrage windows - Guide
- Simple pdf - Télécharger - PDF
- Simple ocr - Télécharger - Bureautique
- Mettre en veille un programme - Guide
7 réponses
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
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
Statut
Membre
Dernière intervention
Tu as raison, excuse moi j'avais oublié, normalement je le dit ^^'
scuti
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
Ceci étant résolu as-tu une idée d'une solution pour mon problème ?
Il s'agit de excel 2016
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
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.
Tr,
mets plutôt ton classeur en PJ
Dans l’attente
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
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonsoir, suggestion:
de préférence, en supprimant les .Activate et les .Select
Sheets("paramètres").Cells.AutoFilter Field:=13, Criteria1:=Sheets("paramètres").Range("M2")
de préférence, en supprimant les .Activate et les .Select
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
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/
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/
Et bien, Merci beaucoup à tout le monde pour le temps passé et continuez ce que vous faites c'est génial.
Excusez moi;
Le code marche mais quand j'ai voulus le réutiliser il ne fonctionne plus voici les deux codes celui ci fonctionne:
Mais pas celui la :
Avez vous une idée ?
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 ?