Selection derniere cellule d un tcd
Résolu/Fermé
CHARLYJACK
Messages postés
353
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
16 mai 2023
-
5 mars 2014 à 11:00
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 1 avril 2014 à 20:51
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 1 avril 2014 à 20:51
A voir également:
- Selection derniere cellule d un tcd
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Tcd excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 778
7 mars 2014 à 09:16
7 mars 2014 à 09:16
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
1 avril 2014 à 20:51
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