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
- Récupérer serveur san ✓ - Forum ASP.NET
- Vba récupérer valeur cellule d'une autre feuille ✓ - Forum Visual Basic
- Recuperer miniature youtube ✓ - Forum PHP
- Recuperer conjugaison ✓ - 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
9
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