aidez moi SVP problème en vba :- ( Résolu/Fermé

Question

Bonjour,

j'ai un souci dans mon programme qui bloque toute ma macro. Je fais un filtre comme celui qui suit :

Selection.AutoFilter Field:=15, Criteria1:=prod

mais il n'existe pas de ligne correspondant aux critères recherchés, donc il me met une erreur du type : autofilter method of Range Class failed.
Est ce que quelqu'un pourrait m'aider en me disant comment faire pour que ça fonctionne.

merci d'avance

lermite222 · Answer

Bonjour,
La numérotation des filtre commence à 1 à partir de la première colonne où il y à un filtre.
Exemple
Il y à un filtre automatique dans les colonnes D,E,F,G
pour valider le filtre colonne F c'est  Selection.AutoFilter Field:=3, Criteria1:="Prod"
A+

usdy · Answer

mon filtre commence à la lettre A et je souhaite la colonne O, c'est pour cette raison que j'ai fait un filtre à 15, mais le problème c'est que dans la colonne 15, il ne trouve pas le nom prod et donc le filtre ne retient aucune ligne, du coup je ne sais pas si je peux filtrer sur une valeur inexistante.
merci pour ton aide

lermite222 · Answer

Attention à la case, le filtre y est sensible.
Et il est tout à fait normal que si tu met un critére qui n'existe pas il ne met aucune ligne, un peu de réflexion Svp.
A+

lermite222 · Answer

Oui, un autofilter se base sur des données qui se trouve dans sa liste de référence (le comboBox)
Pour éviter tu met 
    On Error Resume Next
Juste au dessus de la ligne de l'autofilter.
et 
    If Err then exit sub
Juste en dessous de la ligne de l'autofilter

lermite222 · Answer

Alors tu ne met pas le If Err
en dessous de Next tu met
On Error Goto 0
EDIT:
Mais je ne vois pas l'utilité d'une boucle sur le filtre, tu n'aurras pas le temps de les voir sauf le dernier ??

lermite222 · Answer

mais le progamme se termine passer par les autres valeurs de prod
Et en français ?
Montre la fonction ce serra plus clair.

lermite222 · Answer

Je ne sais pas la tester vu que je n'ai pas le classeur en entier. Mais j'ai détecté plusieur anomalies... j'ai mis des commentaires et des modif dans la macro Public Sub macr() fin = 3357 finbis = 928 'on désactive les filtres s'il y en avait et on se positionne sur la ligne des titres Sheets("feuilleA").Select Sheets("feuilleA").AutoFilterMode = False Sheets("feuilleA").Range("A" & C1).Select 'on désactive les filtres s'il y en avait et on se positionne sur la ligne des titres Sheets("feuilleB").Select Sheets("feuilleB").AutoFilterMode = False Sheets("feuilleB").Range("A" & C2).Select '? Comprend pas, Range("A" & C2) est égal a Range("A0")? 'Que doit-il y avoir dedans ? Sheets("land").Activate ' For Each i In [f6:f40] ' 'Si on arrive à la dernière ligne du tableau ' If (i.Value Like "FIN") Then ' 'on stocke cette dernière ligne dans une variable ' lignefin = i.Row - 1 ' End If ' Next 'Peu être remplacer par... lignefin = Sheets("land").Range("F65536").End(xlUp).Row 'Déclaration d'un bloc qui prend tous les noms des pays Set plage = Sheets("land").Range("F6:F" & lignefin) 'On utilise une variable "i" qui parcourt tous les pays For Each i In plage country = i.Value 'la variable country prend le pays de la ligne courante 'on filtre pour n'obtenir que les lignes contenant le pays stocké dans country Sheets("feuilleA").AutoFilterMode = False Sheets("feuilleA").Select Selection.AutoFilter Field:=25, Criteria1:=country 'dans feuilleB Sheets("feuilleB").AutoFilterMode = False Sheets("feuilleB").Select Selection.AutoFilter Field:=25, Criteria1:=country 'End If Pas de If ? If (Sheets("feuilleA").Range("g2").Value <> 0) And (Sheets("feuilleB").Range("g2").Value <> 0) Then remplissage 'fonction qui permet de remplir des autres feuilles If (country = "France") Then verif End If End If Next End Sub En indentant ton code c'est plus façile pour détecter quand il y a des erreurs dals les If, For etc.. Sais-tu comment faire un deboguage ? Tu dit..

Aidez moi SVP problème en vba :- (

7 réponses

Discussions similaires

Newsletters