Microsoft 365 Sélection filtrée

[jper]

Bonjour,

J'ai le code suivant:

    Windows(FicPos).Activate 
    Workbooks(FicPos).Sheets(SheetMagasin).Select
    NbLigneMag = Cells.SpecialCells(xlCellTypeLastCell).Row
    NbColMag = Cells.SpecialCells(xlCellTypeLastCell).Column
    Workbooks(FicPos).Sheets(SheetMagasin).Activate
    ActiveSheet.Range(Cells(2, 1), Cells(NbLigneMag, NbColMag)).AutoFilter field:=11, criterial:=Marq

J'ai un souci avec la dernière ligne de code,
j'ai besoin de récupérer la liste des N° de CG (colonne 4) en fonction de critère dans la colonne Marque (11) valeur que je récupère dans une précédente macro et d'un autre critère celui de la colonne anomalie (20).
je vous ai mis en pièce une sélection du fichier dont j'ai besoin de connaitre les (N° de CG). c'est pour cela que je calcule le nombre de ligne et de colonne du fichier.

D'avance merci dans le débogage.

Cordialement,

Jean-François

 

[fanch55]

Bonjour,
J'ai cru que je devenais fou car la syntaxe me semblait correcte et je me heurtais toujours à l'erreur 1004!.
En fait, c'est le problème récurent de police d'édition entre le caractère 1 (un) et l minuscule ( la lettre L )

ActiveSheet.Range(Cells(2, 1), Cells(NbLigneMag, NbColMag)).AutoFilter field:=11, criterial:=Marq

ActiveSheet.Range(Cells(2, 1), Cells(NbLigneMag, NbColMag)).AutoFilter field:=11, criterial:=Marq

Je vous laisse chercher, vous allez trouver ...