Re : Recapitulatif de 2 feuilles sur une 3è pour une personne
Bonjour,
Après test , j'ai l'impression que l'autofilterMode ne fonctionne qu'en haut de feuille : Une parade consisterait à travailler avec une deuxième feuille Recapbis que tu peux créer et détruire après usage ou garder définitivement
Essaie ceci (à adapter, notamment pour bien positionner la copie) : recopie dans le module 1
Sub Recap_client()
'GoTo suite
Dim Plage As Range, F As Worksheet
Set F = Sheets("Base")
With Sheets("Recap")
.Rows("1:" & .Range("A1").SpecialCells(xlCellTypeLastCell).Row).Delete
F.AutoFilterMode = False
Set Plage = F.Range("B1:L" & F.Cells(Rows.Count, "A").End(xlUp).Row)
Plage.AutoFilter 1, [Param_analyse_clients_libelle]
Plage.SpecialCells(xlCellTypeVisible).Copy .[A1]
F.AutoFilterMode = False
.Activate
End With
suite:
Set F = Sheets("Assis")
With Sheets("Recapbis")
.Rows("1:" & .Range("A1").SpecialCells(xlCellTypeLastCell).Row).Delete
F.AutoFilterMode = False
Set Plage = F.Range("B1
" & F.Cells(Rows.Count, "A").End(xlUp).Row)
Plage.AutoFilter 1, [Param_analyse_clients_libelle]
Plage.SpecialCells(xlCellTypeVisible).Copy .[A1]
F.AutoFilterMode = False
.Activate
.Rows("1:" & .Range("A1").SpecialCells(xlCellTypeLastCell).Row).Select
Selection.Copy
Sheets("Recap").Activate
Range("A10").Select
ActiveSheet.Paste
End With
End Sub