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 - 1 avr. 2014 à 20:51

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

Afficher la suite

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
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) :
```
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
1. CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention 1
  
  Bonsoir et merci pour cette réponse,
  
  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
  
  0

Selection derniere cellule d un tcd

1 réponse

Discussions similaires

Newsletters