Résolution problème de macro

  • Initiateur de la discussion Initiateur de la discussion moi300469
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

moi300469

XLDnaute Nouveau
Bonjour,
Je suis totalement novice dans le domaine des macro excel mais je les utilise professionnellement car elles m'ont été donnée "clé en main". Mais aujourd hui gros problème, j'en ai une qui bug et là je suis totalement démuni.
Lors de son lancement, elle me met le message d'erreur "Erreur d'exécution 1004: La méthode autofilter de la gamme range à échoué". En cliquant sur debogage, cela me met en couleur jaune la ligne de la macro partielle ci dessous "Selection.AutoFilter Field:=19". Le fichier Zippé faisant 6 Mo, je ne peux pas le joindre. Saurez vous me dépanner? Merci d'avance.

'Windows("BILAN MECANIQUE.xls").Close

Sheets("ETAT").Select

Range("A1").Select
Sheets("ETAT").Select
Columns("L:L").Select
Selection.NumberFormat = "General"

Selection.AutoFilter Field:=19
Columns("B:B").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Name = "ressources"

ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1:A40000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C1"), Unique:=True
Range("C1").Select
Selection.Font.Bold = True
Range("C2:C200").Select

Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("C:C").ColumnWidth = 18.86
Range("D1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[1]C[-1]:R[199]C[-1])"
Range("E1").Value = Range("D1").Value

nbsections = Worksheets("ressources").Cells(1, 5).Value
 
Re : Résolution problème de macro

Bonsoir Moi300469,

Ce qui m'étonne dans ton code, c'est qu'est sélectionné la colonne "L"
Code:
Columns("L:L").Select
Et qu'est appliqué dessus ensuite un filtre automatique
Code:
Selection.AutoFilter Field:=19
un FILTRE AUTOMATIQUE s'applique en général sur la 1ère ligne d'un tableau et non pas sur une colonne !?
Essaye de remplacer cette instruction par
Code:
Rows(1).AutoFilter Field:=19

Sans fichier difficile de faire mieux

A+
 
Re : Résolution problème de macro

Salut moi300469 et le forum
Bienvenue
Quelques petites remarques :
- On n'est ni devin, ni télépathe : sans donnée on ne vaut rien.
- Mets les balises de codes (icone # en mode avancé)
Mais aujourd hui gros problème, j'en ai une qui bug et là je suis totalement démuni.
Ça sous-entend que ça fonctionnait correctement avant. Qu'est-ce qui a changé ?

"Selection.AutoFilter Field:=19" => ne veut rien dire :
- Field:= 19 : veut dire le 19ème champ de la sélection (la 19ème colonne d'une sélection de 1 colonne 😕).
- Si on fait une copie après, ça veut dire qu'on filtre => où est le critère ?

Donner un lambeau de code ne donne jamais de bons résultats !
on donne toute la macro, quitte à modifier les données réellement confidentielles. À partir de là, avec une idée des données et du but à atteindre (mais là, c'est de la copie simple de feuille filtrée), on peut proposer des solutions, qui peuvent modifier intégralement le code de départ.
Le fichier Zippé faisant 6 Mo, je ne peux pas le joindre.
Encore heureux ! Il ne faut pas confondre un fichier de travail (lourd, avec des données confidentielles et un tas de données externes au problème) avec un fichier d'essai :
1 feuille de 10 à 15 lignes contenant des données facilement identifiables et le code à dépanner. Le but n'est pas d'apprendre à utiliser ton fichier, mais de résoudre un problème clairement identifié.
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
896
Réponses
2
Affichages
892
Réponses
1
Affichages
1 K
Retour