Discussion :

[Xpro93]

Salut,
j'aurai besoin d'aide, sur un fichier excel que je peux malheureusement pas partager, j'ai un tableau croisé dynamique et j'aimerai le sélectionner pour ensuite le définir comme zone d'impression. Or j'ai un problème pour détecter la dernière ligne de ce tableau. en effet j'execute le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub appercu()
 
 
    l = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    MsgBox (l)
'ActiveSheet.PrintPreview
End Sub

et la message box me renvoi 246 alors que mon tableau s'arrete à 172. D'où vient ce probleme et comment le corriger svp.
Merci d'avance
LC

[ARTURO83]

Bonjour,

Recherchez plutôt un mot clé. Généralement dans un TCD la dernière ligne est un total, cherchez donc le mot "Total"

Cdlt

[Umineko]

Bonjour à tous,
mon premier post ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TestPT()
 
Dim pt As PivotTable
Dim DerniereLigne As Integer
 
Set pt = ActiveSheet.PivotTables(1)
 
 With pt.TableRange1
    DerniereLigne = .Cells(.Cells.Count).Row
  End With
 
MsgBox DerniereLigne
 
End Sub