Discussion :

[zorrax]

bonjour a tous

je sais que c'est tres simple mais je coince sur une selection de cellule selon un parametre
j'ai un tableau dont la premiere colonne est trié (deux choix A ou B)
je voudrais copier les lignes dont le choix est A dans une feuille et les lignes dont le choix est B dans une autre feuille
dans la macro existante le tri est ok
mais ensutie la selection selon le choix ne passe pas...
merci de votre aide

[fring]

Bonjour,

Inutile de faire une sélection pour copier une plage de cellule.
En supposant que ta colonne A comporte un titre sur la première ligne essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
Sub test_filtre()
With Sheets(1)
    .Range("A1").AutoFilter field:=1, Criteria1:="choix A"
    .Range("A1:A" & .Range("A65535").End(xlUp).Row).Copy Sheets(2).Range("A1")
    .Range("A1").AutoFilter field:=1, Criteria1:="choix B"
    .Range("A1:A" & .Range("A65535").End(xlUp).Row).Copy Sheets(3).Range("A1")
End With
End Sub