Archives de la catégorie : Divers

Bonjour à tous,

Dans un post précédent, j'avais montré comment répéter les étiquettes de lignes.

Cependant, si vous avez beaucoup de tableaux croisés dynamiques, ceci peut s'avérer assez fastidieux.
Un ancien élève m'a d'ailleurs remonté un bug à ce sujet - perte de la répétition des étiquettes lors de l'actualisation.

Voici donc un petit code qui modifie l'option pour tous les tableaux croisés dynamiques du classeur :

Sub Mise_a_jour_repeter_toutes_les_etiquettes()
Dim pvt As PivotTable
Dim Wks_feuile As Worksheet
'on parcourt toutes les feuilles
For Each Wks_feuile In ThisWorkbook.Worksheets
'on parcourt tous les tableaux croisés dynamiques
For Each pvt In Wks_feuile.PivotTables
pvt.RepeatAllLabels _
xlRepeatLabels
Next
Next
End Sub


En espérant que ceci puisse vous aider !

A bientôt.

Gaetan

Bonjour à tous,

Voici une courte macro qui m'a été envoyée par D@niel et que je partage ici.

Elle permet de lister tous les tableaux de toutes les feuilles.

Voici le code et ici le fichier.

Voici le code de la macro :
Option Explicit
Sub JeListeMesNomsDeTableaux()
    Dim MaFeuille As Worksheet
    Dim MonTableau As ListObject
    Dim MonCompteurDeFeuilles As Byte
    Dim MonCompteurDeTableaux As Byte
    For Each MaFeuille In ThisWorkbook.Worksheets
        MonCompteurDeFeuilles = MonCompteurDeFeuilles + 1
        Range("RngMesNoms").Offset(MonCompteurDeFeuilles + MonCompteurDeTableaux, 0) = MaFeuille.Name
        For Each MonTableau In MaFeuille.ListObjects
            MonCompteurDeTableaux = MonCompteurDeTableaux + 1
            Range("RngMesNoms").Offset(MonCompteurDeFeuilles + MonCompteurDeTableaux - 1, 1) = MonTableau.Name
        Next MonTableau
    Next MaFeuille
    Range("RngMesNoms").Offset(1, 4).Select
        Selection.ListNames
    If MsgBox("On va tout effacer !", vbYesNo) = vbYes Then
    Cells.ClearContents
    End If
End Sub

Cordialement.

Gaetan Mourmant

Bonjour à tous,

Dans certains cas, par exemple pour comparer le code VBA de deux projets ou bien pour travailler sur deux fichiers avec des temps de recalcul très long, il peut être utile d'ouvrir deux instances d'Excel. C'est ce qui était fait par défaut dans les versions précédentes d'Excel

Pour cela, maintenez la touche ALT lors du lancement d'Excel, et choisissez ensuite Oui lors du message suivant :

A noter que ceci ne fonctionne pas lors de l'ouverture directe d'un fichier. Il faut d'abord lancer la session d'Excel.

A bientôt.

Gaetan