Discussion :

[maud43]

Bonjour,

Je débute en VBA sous Excel. Je souhaite filtrer des cellules, copier le résultat et le coller dans une nouvelle feuille. Voici mon code :

________________________

Code :

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

1
2
3
4
5
6
7
8
9
    Range("A1:AW30").Select
    Selection.AutoFilter
 
    Selection.AutoFilter Field:=2, Criteria1:="Non Conformité Majeure"
    Selection.AutoFilter Field:=3, Criteria1:="Soldé"
    Selection.AutoFilter Field:=48, Criteria1:="1"
 
    Selection.SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Worksheets("data_NCM").Range("A2")

________________________

Une erreur sur la méthode copy apparait (pourtant dans les faits, le copier coller se fait bien !).

Dans ce code je recopie la première ligne (ligne de titre) mais en réalité je voudrais copier uniquement les lignes filtrées du dessous.

Si quelqu'un peut m'éclaircir sur l'origine de l'erreur ....

Merci beaucoup

[Larsen21]

Je pense qu'il te faut mettre ça avant :

Code :

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

Application.CutCopyMode = False

Et normalement tu ne devrait pas avoir d'erreur.
A+