Macro très lente - Couleur de fond - TCD

Le 26/04/2018 à 15:28

Bonjour,

J'ai un fichier comportant environ 7000 lignes et 20 lignes de données.

J'ai une macro qui met le fond des cellules de certaines colonnes et de leurs étiquettes en couleur X, mais l'exécution prend beaucoup de temps. (460 secondes) Est-ce normal ou c'est moi qui est impatient?

Sinon, il y aurait-il une façon pour optimiser/régler cela?

Cordialement,

Misen

15optimiser.xlsm (670.81 Ko)
Le 26/04/2018 à 15:36

Bonjour

Es-tu sûr que cet arlequin donne de la lisibilité ?

Le 26/04/2018 à 15:39
78chris a écrit :

Bonjour

Es-tu sûr que cet arlequin donne de la lisibilité ?

Bonjour,

Personnellement, non.

Cependant, c'est une demande qui m'a été faite.

Le 26/04/2018 à 15:43

Bonjour

Pourquoi ne pas rester dans le même fil que : https://forum.excel-pratique.com/viewtopic.php?f=2&t=108790&p=645090#p645090

puisque c'est le même fichier ?

Et en plus chris t'avait répondu pour la mise en forme du tcd ...

P.

Le 26/04/2018 à 15:48
patrick1957 a écrit :

Bonjour

Pourquoi ne pas rester dans le même fil que : https://forum.excel-pratique.com/viewtopic.php?f=2&t=108790&p=645090#p645090

puisque c'est le même fichier ?

Et en plus chris t'avait répondu pour la mise en forme du tcd ...

P.

Bonjour,

Ma question par rapport à la mise en forme du TCD est résolue.

Pour la couleur, j'aurais pu effectivement continuer sur le même poste.

Le 26/04/2018 à 16:01

Bonjour,

Quel est l'intérêt d'u tel TCD ?

Du vide, du vide et encore du vide !...

Cdt.

Le 26/04/2018 à 16:05
Jean-Eric a écrit :

Bonjour,

Quel est l'intérêt d'u tel TCD ?

Du vide, du vide et encore du vide !...

Cdt.

Bonjour,

J'ai posé la même question et j'ai eu comme réponse que les personnes qui vont utiliser ce tableau sont limitées et préfèrent visualiser les mois avec des couleurs distinctes.

Le 26/04/2018 à 16:07

RE

Jean-Eric a écrit :

Bonjour,

Quel est l'intérêt d'u tel TCD ?

Du vide, du vide et encore du vide !...

Cdt.

D'où le besoin de le remplir de vent coloré...

C'est totalement illisible à mon avis...

Mais bon pour le fun

Sub Color()
Dim Couleur(12)
    Couleur(1) = RGB(255, 255, 0)
    Couleur(2) = RGB(255, 153, 0)
    Couleur(3) = RGB(255, 153, 0)
    Couleur(4) = RGB(255, 0, 0)
    Couleur(5) = RGB(255, 0, 255)
    Couleur(6) = RGB(102, 0, 204)
    Couleur(7) = RGB(51, 0, 255)
    Couleur(8) = RGB(0, 0, 255)
    Couleur(9) = RGB(51, 102, 102)
    Couleur(10) = RGB(153, 255, 0)
    Couleur(11) = RGB(153, 153, 153)
    Couleur(12) = RGB(153, 255, 0)
With ActiveSheet.PivotTables("Tableau croisé dynamique4")
    For i = 1 To 12
        Mmois = "'" & i & "'"
        .PivotSelect "Mois[" & Mmois & "]", xlDataAndLabel, True
        Selection.Interior.Color = Couleur(i)
    Next i
End With

End Sub
Le 26/04/2018 à 16:12
78chris a écrit :

RE

Jean-Eric a écrit :

Bonjour,

Quel est l'intérêt d'u tel TCD ?

Du vide, du vide et encore du vide !...

Cdt.

D'où le besoin de le remplir de vent coloré...

C'est totalement illisible à mon avis...

Mais bon pour le fun

Sub Color()
Dim Couleur(12)
    Couleur(1) = RGB(255, 255, 0)
    Couleur(2) = RGB(255, 153, 0)
    Couleur(3) = RGB(255, 153, 0)
    Couleur(4) = RGB(255, 0, 0)
    Couleur(5) = RGB(255, 0, 255)
    Couleur(6) = RGB(102, 0, 204)
    Couleur(7) = RGB(51, 0, 255)
    Couleur(8) = RGB(0, 0, 255)
    Couleur(9) = RGB(51, 102, 102)
    Couleur(10) = RGB(153, 255, 0)
    Couleur(11) = RGB(153, 153, 153)
    Couleur(12) = RGB(153, 255, 0)
With ActiveSheet.PivotTables("Tableau croisé dynamique4")
    For i = 1 To 12
        Mmois = "'" & i & "'"
        .PivotSelect "Mois[" & Mmois & "]", xlDataAndLabel, True
        Selection.Interior.Color = Couleur(i)
    Next i
End With

End Sub

Merci!

Rechercher des sujets similaires à "macro tres lente couleur fond tcd"