Pb selection jusqu a derniere cellule remplie

[Sang1]

Re bonjour,

J'ai toujours mon pb qui persiste, alors je me permet de le remettre a jour...
En faite ma macro fonctionne, mais elle n'est pas adaptable. Lorsque je colle une série de mesure plus ou moins longue que celle du départ sa fait buger la macro car les calculs sont effectués jusqu a la derniere ligne.
Mon erreur vient de ma commande :

Selection.AutoFill Destination:=Range("C2", Selection.End(xlDown))
Range("C2", Selection.End(xlDown)).Select
Range("A1", Selection.End(xlDown)).Select

Je pense que c'est le "xlDown" qui ne va pas, il faudrait une commande qui prenne en compte si la cellule est remplie ou non.

Heureusement que ce forum existe 😉... et merci pour votre aide.

 

[keepcool183]

Re : Pb selection jusqu a derniere cellule remplie

Salut Sang1,

Remplace le "xlDown" par "xlup" 🙂

Cdt

 

[Sang1]

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