Laosurlamontagne
XLDnaute Occasionnel
Bonjour à tous,
La question est classique mais ici, je ne comprends pas pourquoi il ne me sélectionne pas la bonne case... Je souhaite sélectionner la dernière case non occupé de la ligne 50 pour y copier-coller le contenu d'une sélection provenant d'une autre feuille (de "TablePerfo" à "Data") mais mon code ne sélectionne pas la bonne feuille ("Data") et je ne comprends pas...
Function copyresultperfo()
Dim Adresse As String
For Each GPN In Range("GPN")
Sheets("Perfo").Activate
ActiveSheet.ListObjects("TablePerfo").Range.AutoFilter
ActiveSheet.ListObjects("TablePerfo").Range.AutoFilter 1, GPN
ActiveSheet.ListObjects("TablePerfo").Range.Offset(0). _
Resize(ActiveSheet.ListObjects("TablePerfo").Range.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).Copy
With ThisWorkbook.Sheets("Data")
Adresse = .Cells(50, Columns.Count).End(xlToRight).Address
MsgBox "la Dernière Cellule non Vide de la Ligne est " & Adresse
Cells(50, Columns.Count).End(xlToRight).Select
.Paste
End With
Next GPN
'revient à un affichage normal
ActiveSheet.ListObjects("TablePerfo").Range.AutoFilter
End function
Auriez-vous une idée de ce qui bloque?
La question est classique mais ici, je ne comprends pas pourquoi il ne me sélectionne pas la bonne case... Je souhaite sélectionner la dernière case non occupé de la ligne 50 pour y copier-coller le contenu d'une sélection provenant d'une autre feuille (de "TablePerfo" à "Data") mais mon code ne sélectionne pas la bonne feuille ("Data") et je ne comprends pas...
Function copyresultperfo()
Dim Adresse As String
For Each GPN In Range("GPN")
Sheets("Perfo").Activate
ActiveSheet.ListObjects("TablePerfo").Range.AutoFilter
ActiveSheet.ListObjects("TablePerfo").Range.AutoFilter 1, GPN
ActiveSheet.ListObjects("TablePerfo").Range.Offset(0). _
Resize(ActiveSheet.ListObjects("TablePerfo").Range.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).Copy
With ThisWorkbook.Sheets("Data")
Adresse = .Cells(50, Columns.Count).End(xlToRight).Address
MsgBox "la Dernière Cellule non Vide de la Ligne est " & Adresse
Cells(50, Columns.Count).End(xlToRight).Select
.Paste
End With
Next GPN
'revient à un affichage normal
ActiveSheet.ListObjects("TablePerfo").Range.AutoFilter
End function
Auriez-vous une idée de ce qui bloque?