Macro Excel
Fermé
Lychee
-
3 juin 2010 à 20:27
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 3 juin 2010 à 22:57
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 3 juin 2010 à 22:57
A voir également:
- Macro Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
1 réponse
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
3 juin 2010 à 22:57
3 juin 2010 à 22:57
Salut,
essaye comme cela, la sélection commence à la ligne 65536 colonne F et s'arrête sur la première ligne non vide, foltre la colonne A sur le mot Argent et copy à la suite sur la feuille2. si tu veux couper les données remplace Copy par Cut
Sub Test()
Application.ScreenUpdating = False
Range(Range("F65536").End(xlUp), [A1]).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Argent"
On Error Resume Next
[A2:A100].SpecialCells(xlCellTypeVisible).Select
Range(Range("F65536").End(xlUp), [A2]).SpecialCells(xlCellTypeVisible).Copy
Sheets(2).Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A2").Select
Application.ScreenUpdating = True
End Sub
essaye comme cela, la sélection commence à la ligne 65536 colonne F et s'arrête sur la première ligne non vide, foltre la colonne A sur le mot Argent et copy à la suite sur la feuille2. si tu veux couper les données remplace Copy par Cut
Sub Test()
Application.ScreenUpdating = False
Range(Range("F65536").End(xlUp), [A1]).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Argent"
On Error Resume Next
[A2:A100].SpecialCells(xlCellTypeVisible).Select
Range(Range("F65536").End(xlUp), [A2]).SpecialCells(xlCellTypeVisible).Copy
Sheets(2).Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A2").Select
Application.ScreenUpdating = True
End Sub