Pb selection jusqu a derniere cellule remplie

Re : Pb selection jusqu a derniere cellule remplie

Salut Sang1,

Remplace le "xlDown" par "xlup" 🙂

Cdt

Re : Pb selection jusqu a derniere cellule remplie

Merci pour ta réponse keepcool, mais sa ne fonctionne toujours pas... toujours le meme pb, les calculs sont effectué jusqu a la fin des 65000 lignes et du coup dans le tableau dynamique il y a un bug car il n'arrive pas a grouper les dates par jour a cause des zéro jusqu a la derniere ligne.

Voici mon sub :

Sub traitement()

Set srcSH = ActiveSheet

Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C[-1]-RC[-1]"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2", Selection.End(xlUp))
Range("B2", Selection.End(xlUp)).Select
Columns("B:B").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Columns("C:C").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Selection.ColumnWidth = 13.43
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[1]"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2", Selection.End(xlUp))
Range("C2", Selection.End(xlUp)).Select
Range("A1", Selection.End(xlUp)).Select
Sheets("sheet2").Activate
Sheets("sheet2").Cells.Delete

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=srcSH.[A1].CurrentRegion).CreatePivotTable TableDestination:="Sheet2!R1C1" _
, TableName:="PivotTable11", DefaultVersion:=xlPivotTableVersion10


With ActiveSheet.PivotTables("PivotTable11").PivotFields("temps")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable11").AddDataField ActiveSheet.PivotTables( _
"PivotTable11").PivotFields("x"), "Count of x", xlCount
Range("A1").Select
ActiveSheet.PivotTables("PivotTable11").PivotFields("Count of x").Function = _
xlSum
Range("A2").Select
Selection.Group Start:=True, End:=True, By:=1, Periods:=Array(False, _
False, False, True, False, False, False)
Columns("B:B").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Range("E11").Select

End Sub

Merci