Selection derniere cellule d un tcd
Résolu
CHARLYJACK
Messages postés
345
Date d'inscription
Statut
Membre
Dernière intervention
-
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je cherche un code qui me permette de sélectionner
la dernière cellule (dernière ligne, dernière colonne ) des tcd d un classeur.
afin de lui attribuer une couleur. ( c'est pour réaliser une somme, j'ai un code ! )
Par avance merci
je cherche un code qui me permette de sélectionner
la dernière cellule (dernière ligne, dernière colonne ) des tcd d un classeur.
afin de lui attribuer une couleur. ( c'est pour réaliser une somme, j'ai un code ! )
Par avance merci
A voir également:
- Selection derniere cellule d un tcd
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Supprimer dernière page word - Guide
- Dernière version chrome - Accueil - Applications & Logiciels
- Tcd excel - Guide
- Excel cellule couleur si condition texte - Guide
1 réponse
Bonjour,
Essaies ce code, pour colorer la dernière cellule du dernier TCD d'une feuille d'un classeur (sans la sélectionner car c'est pas utile) :
Essaies ce code, pour colorer la dernière cellule du dernier TCD d'une feuille d'un classeur (sans la sélectionner car c'est pas utile) :
Option Explicit
Sub test()
Dim w As Worksheet
Dim p As PivotTable
Dim n°L As Long
Dim n°C As Long
Dim d°L As Long
Set w = Worksheets("TCD")
For Each p In w.PivotTables
d°L = p.TableRange2.Row + p.TableRange2.Rows.Count - 1
If d°L > n°L Then
n°L = d°L
n°C = p.TableRange2.Column + p.TableRange2.Columns.Count - 1
End If
Next
w.Cells(n°L, n°C).Interior.ColorIndex = 4
End Sub
j'ai du remonte la ligne
w.Cells(n°L, n°C).Interior.ColorIndex = 4
pour que ca marche sur la feuille tcd
par contre je n'arrive pas a boucler pour toutes les feuilles du classeur
meme en appelant la procedure
par avance merci