Microsoft 365 Sélection filtrée

jper

XLDnaute Nouveau
Bonjour,

J'ai le code suivant:

VB:
    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
 

Pièces jointes

  • Classeur11.xlsx
    22.3 KB · Affichages: 9

fanch55

XLDnaute Barbatruc
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
VB:
ActiveSheet.Range(Cells(2, 1), Cells(NbLigneMag, NbColMag)).AutoFilter field:=11, criterial:=Marq

Je vous laisse chercher, vous allez trouver ...
 

Discussions similaires

Réponses
7
Affichages
406

Statistiques des forums

Discussions
311 741
Messages
2 082 055
Membres
101 882
dernier inscrit
XaK_