Discussion :

[Henri1830]

Bonjour,

J'ai un petit problème de syntaxe et je ne trouve rien sur les différents forum, même pas dans la super formation de Philippe Tulliez.

Je voudrais effectuer en VBA un filtre élaboré sur les données d'un classeur avec une zone de critères placée dans un autre classeur.
Quand j'utilise ceci, j'ai un message d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveWorkbook.Worksheets(TsrTabTravail).Range(Cells(1, 1), Cells(TsrNbMaxLigne, TsrNbCol)).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Workbooks(StaFichOri).Sheets("Status code").Range("A1:A15"), Unique:=False

Ce filtre a déjà fonctionné avec succès sans la partie en gras italique. Quelqu'un peut-il me donner la bonne syntaxe svp ?

Merci d'avance.

Henri

[Philippe Tulliez]

Bonjour,
Je vois un problème dans la première ligne du code et c'est une erreur fréquente les deux objets Cells sont orphelins, ils ne sont pas rattachés à leurs parents (classeur + la feuille)
Ceci est plus sûr
Attention écrit de mémoire donc non testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActiveWorkbook.Worksheets(TsrTabTravail)
.Range(.Cells(1, 1), .Cells(TsrNbMaxLigne, TsrNbCol)).AdvancedFilter Action:=xlFilterInPlace, _
     CriteriaRange:=Workbooks(StaFichOri).Sheets("Status code").Range("A1:A15"), Unique:=False
End With

[Henri1830]

Cher Monsieur Tulliez, si j'osais... cher Philippe,

Si vous n'existiez pas, je n'aurais pas eu assez de talents pour vous inventer, mais j'aurais fait appel à de la main d'oeuvre qualifiée !

Ça marche, ça fonctionne, ça roule !
Mais en quoi le fait de présenter les choses comme vous l'avez fait est différent de ce que j'avais fait ??

Si cela vous mange trop de temps, n'hésitez pas à ne pas répondre, mais de temps en temps, élargir mon champ de connaissance me fait plaisir !

Belle soirée et bien entendu MERCI !

[Philippe Tulliez]

Bonjour cher Henri,
Je rougis à la lecture de tant d'éloges.

Si cela vous mange trop de temps, n'hésitez pas à ne pas répondre, mais de temps en temps, élargir mon champ de connaissance me fait plaisir

La différence comme je l'ai expliqué et mis en rouge et en gras dans le code.
Le point qui préfixe l'objet Cells dans le bloc With...End With permet de le rattacher à son parent le classeur actif et la feuille dont le nom est défini par la variable ou la constante TsrTabTravail soit ActiveWorkbook.Worksheets(TsrTabTravail)
Sans ce point, le parent de Cells est la feuille active et son classeur parent