Récupérer le contenu d'un autofilter.
guileouf
Messages postés
6
Date d'inscription
vendredi 5 août 2005
Statut
Membre
Dernière intervention
2 février 2006
-
2 févr. 2006 à 22:08
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 3 févr. 2006 à 03:45
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 3 févr. 2006 à 03:45
A voir également:
- Récupérer le contenu d'un autofilter.
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Sql recuperer dernier enregistrement - Forum SQL
- Récupérer serveur san ✓ - Forum ASP.NET
- Copier le contenu d'une feuille excel dans une autre vba ✓ - Forum Visual Basic
- Récupérer synonyme ✓ - Forum VB.NET
1 réponse
Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
8
3 févr. 2006 à 03:45
3 févr. 2006 à 03:45
Salut guileouf,
Tu peux t'inspirer de ce source qui copie les données filtrées de Sheet1 vers Sheet2
Sub CopyFilter()
Dim rng As Range
Dim rng2 As Range
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
If rng2 Is Nothing Then
MsgBox "Pas de données à copier"
Else
Worksheets("Sheet2").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Worksheets("Sheet2").Range("A1")
End If
ActiveSheet.ShowAllData
End Sub
++
Zlub
Tu peux t'inspirer de ce source qui copie les données filtrées de Sheet1 vers Sheet2
Sub CopyFilter()
Dim rng As Range
Dim rng2 As Range
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
If rng2 Is Nothing Then
MsgBox "Pas de données à copier"
Else
Worksheets("Sheet2").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Worksheets("Sheet2").Range("A1")
End If
ActiveSheet.ShowAllData
End Sub
++
Zlub