Bonjour j'ai un tableau xl avec des donnés noms prénoms année etc.
je souhaite recopier sur une nouvelle feuille les données année.
J'ai écrit ceci en vba, mais cela ne fonctionne pas
Cela n'affiche que 2012 et pas 2013 et 2014.
Merci pour votre aide
je souhaite recopier sur une nouvelle feuille les données année.
J'ai écrit ceci en vba, mais cela ne fonctionne pas
Code:
Private Sub Workbook_SheetActivate(ByVal o As Object)
If o.Name = "Enfants 1 à 3 ans" Then
Range("a:t").Clear
With Sheets("listing")
.[a:t].AutoFilter Field:=8, Criteria1:="2012"
.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Sheets("Enfants 1 à 3 ans").[a1]
.[a:t].AutoFilter
End With
Else
If o.Name = "Enfants 1 à 3 ans" Then
Range("a:t").Clear
With Sheets("listing")
.[a:t].AutoFilter Field:=8, Criteria1:="2013"
.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Sheets("Enfants 1 à 3 ans").[a1]
.[a:t].AutoFilter
End With
Else
If o.Name = "Enfants 1 à 3 ans" Then
Range("a:t").Clear
With Sheets("listing")
.[a:t].AutoFilter Field:=8, Criteria1:="2014"
.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Sheets("Enfants 1 à 3 ans").[a1]
.[a:t].AutoFilter
End With
End If: End If: End If
End Sub
Cela n'affiche que 2012 et pas 2013 et 2014.
Merci pour votre aide