VBA & TCD... Je rame...

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

djainsone

XLDnaute Nouveau
Bonjour à tous,

Peut-être ai-je mal fouiner sur la toile mais la je rame....
Mon soucis est l'actualisation auto de mon TCD via une macro.
Ma dernière ligne de code ne fonctionne pas.
Peut être que l'un d'entre vous pourrait m'aider.
Voici mon code :
Code:
    'effacer l'inutile
    
    Range("H1").Select
    Selection.End(xlDown).Select

    Do While Not (IsEmpty(ActiveCell))
    
    Selection.Offset(1, 0).Select
    
    Loop
    
    Derligne = ActiveCell.Row
    
    Rows(Derligne).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Selection.End(xlToLeft).Select
        
    'Se positionner en A1
        
    Range("A1").Select
        
  
    'Renommer la plage de données
    
    Range("A1:M1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Names("DONNEES").Delete
    ActiveWorkbook.Names.Add Name:="DONNEES", RefersToR1C1:= _
        "=OFFSET(Feuil1!R1C1,,,COUNTA(Feuil1!R1C1:R65000C1),10)"
        
    'Actualisation du tableau
    
    Sheets("TCD").Select
    ActiveSheet.PivotTables("TCDFRED").PivotCache.Refresh <== BUG...

Merci d'avance.
Fred
 
Dernière édition:
Re : VBA & TCD... Je rame...

Bonjour djainsone,
Une proposition avec ce que j'ai compris.
Code:
[COLOR=green]'effacer l'inutile[/COLOR]
Range("H1:H" & Cells(Rows.Count, 8).End(xlUp).Row).ClearContents
Cordialement


Merci Efgé.
Mais c'est la dernière ligne qui bug.
Je pense avoir trouver une solution de contournement en sélectionnant une cellule de mon tcd avec le refresh.
Je vous tiens au courant 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
69
Affichages
9 K
Réponses
5
Affichages
1 K
Retour