J'ai un TCD et je voudrais ajouter des calcules sous celui-ci
Je fais donc une macro VB mais l=E0 impossible de conna=EEtre l'indice
de la derni=E8re ligne du TCD.
Je recup=E8re bien un Range (ActiveSheet.UsedRange ou
pivotTable.TableRange1)
mais je ne sais pas comment conna=EEtre l'indice de cette derni=E8re
ligne.
Merci la première methode ne fonctionne pas (pour mon cas), mais le deuxième est la bonne.
Bjour Si il n'y a que le tcd sur la feuille pourquoi ne pas utiliser Range("A65536").End(xlUp).Offset(1, 0).Activate
sinon c un peu + compliqué, il faut adpater le code cidessous A6 est dans l'exemple la colonne ou se trouve le total génétal !
ActiveSheet.Range("A6").Select Do Until ActiveCell.Address = "$A$65536"
Selection.End(xlDown).Select If InStr(1, ActiveCell, "Total") > 0 Then activecell.offset(1,0).select TamacroVB Exit Sub
End If Loop
http://nossphil.perso.cegetel.net/exoutils.html
Elliac
Bonjour,
La macro suivante sélectionne le TCD et récupère le nombre de ligne et le n° de la 1ère ligne : Sub Toto() ActiveSheet.PivotTables(1).PivotSelect "", _ xlDataAndLabel n = Selection.Rows.Count deb = Selection.Row End Sub
Camille
"beny_78" wrote:
Merci la première methode ne fonctionne pas (pour mon cas), mais le deuxième est la bonne.
Bjour Si il n'y a que le tcd sur la feuille pourquoi ne pas utiliser Range("A65536").End(xlUp).Offset(1, 0).Activate
sinon c un peu + compliqué, il faut adpater le code cidessous A6 est dans l'exemple la colonne ou se trouve le total génétal !
ActiveSheet.Range("A6").Select Do Until ActiveCell.Address = "$A$65536"
Selection.End(xlDown).Select If InStr(1, ActiveCell, "Total") > 0 Then activecell.offset(1,0).select TamacroVB Exit Sub
End If Loop
http://nossphil.perso.cegetel.net/exoutils.html
Bonjour,
La macro suivante sélectionne le TCD et récupère le nombre de ligne et le n°
de la 1ère ligne :
Sub Toto()
ActiveSheet.PivotTables(1).PivotSelect "", _
xlDataAndLabel
n = Selection.Rows.Count
deb = Selection.Row
End Sub
Camille
"beny_78" wrote:
Merci
la première methode ne fonctionne pas (pour mon cas),
mais le deuxième est la bonne.
Bjour
Si il n'y a que le tcd sur la feuille pourquoi ne pas utiliser
Range("A65536").End(xlUp).Offset(1, 0).Activate
sinon c un peu + compliqué, il faut adpater le code cidessous
A6 est dans l'exemple la colonne ou se trouve le total génétal !
ActiveSheet.Range("A6").Select
Do Until ActiveCell.Address = "$A$65536"
Selection.End(xlDown).Select
If InStr(1, ActiveCell, "Total") > 0 Then
activecell.offset(1,0).select
TamacroVB
Exit Sub
La macro suivante sélectionne le TCD et récupère le nombre de ligne et le n° de la 1ère ligne : Sub Toto() ActiveSheet.PivotTables(1).PivotSelect "", _ xlDataAndLabel n = Selection.Rows.Count deb = Selection.Row End Sub
Camille
"beny_78" wrote:
Merci la première methode ne fonctionne pas (pour mon cas), mais le deuxième est la bonne.
Bjour Si il n'y a que le tcd sur la feuille pourquoi ne pas utiliser Range("A65536").End(xlUp).Offset(1, 0).Activate
sinon c un peu + compliqué, il faut adpater le code cidessous A6 est dans l'exemple la colonne ou se trouve le total génétal !
ActiveSheet.Range("A6").Select Do Until ActiveCell.Address = "$A$65536"
Selection.End(xlDown).Select If InStr(1, ActiveCell, "Total") > 0 Then activecell.offset(1,0).select TamacroVB Exit Sub
