Tableau croisé dynamique enlève couleur des cellules

Bonjour,

Je m'explique, je suis en train développer une sorte de gestion financière pour la caisse quotidienne d'un client.

Je bloque face à un problème ayant pas grande importance mais si il pouvait avoir une solution, je suis preneur.

Sur la feuille SEPT 18, si vous développez et réduisez le tableau dynamique, pof les cellules redeviennent blanches ! Une solution serait de mettre tout le fond de page blanc mais bon, dommage...

Je suis également preneur de toutes suggestions et évolutions possibles.

Bonne journée

Bonjour

Joli fichier !

C'est dingue ce truc là !

Essayez en modifiant ce code

Sub Actualiser_tableaux_sept18()
Dim dlg As Integer
    dlg = ActiveSheet.Range("H" & ActiveSheet.Rows.Count).End(xlUp).Row + 1
    Do Until ActiveSheet.Range("H" & dlg).Interior.Color = 13605840
        ActiveSheet.Range("H" & dlg & ":M" & dlg).Interior.Color = 13605840
        dlg = dlg + 1
    Loop
    Range("H5").Select
    ActiveSheet.PivotTables("CA_SEPT18").PivotCache.Refresh
    Range("J12").Select
    ActiveSheet.PivotTables("CA_paiement_sept18").PivotCache.Refresh
End Sub

Tout de même cela nécessiterait d'analyser plus en profondeur...

Autre chose, toutes les macro Actualiser pourraient être réduite à une seule, je pense

Cordialement

Bonjour à tous

Tu touches un pourcentage sur les cartouches d'encre, lol ?

Merci Dan, c'est gentil, je vais essayer ton code.

Chris, en 2018 on imprime presque plus logiquement... A part d'être resté coincé dans les années 2000

Bonne soirée

Dan a écrit :

Bonjour

Joli fichier !

C'est dingue ce truc là !

Essayez en modifiant ce code

Sub Actualiser_tableaux_sept18()
Dim dlg As Integer
    dlg = ActiveSheet.Range("H" & ActiveSheet.Rows.Count).End(xlUp).Row + 1
    Do Until ActiveSheet.Range("H" & dlg).Interior.Color = 13605840
        ActiveSheet.Range("H" & dlg & ":M" & dlg).Interior.Color = 13605840
        dlg = dlg + 1
    Loop
    Range("H5").Select
    ActiveSheet.PivotTables("CA_SEPT18").PivotCache.Refresh
    Range("J12").Select
    ActiveSheet.PivotTables("CA_paiement_sept18").PivotCache.Refresh
End Sub

Tout de même cela nécessiterait d'analyser plus en profondeur...

Autre chose, toutes les macro Actualiser pourraient être réduite à une seule, je pense

Cordialement

Je te remercie Dan, si besoin n'hésite pas ! Je fais toutes sortes de matrice sur Excel, je t'aiderai également avec plaisir.

Ton code fonctionne c'est super, plus qu'à adapter la couleur pour les autres mois.

Bonne soirée !

Bonjour

Remercie Dan et pas moi.

Je n'ai jamais vu autant de papier depuis le début de "l'ère du zéro papier" d'où ma petite blague .