Copier coller après tableau croisé dynamique

[liquoreux]

Bonjour à tout le monde,

Voici un problème sans doute déjà posé, mais je ne l'ai pas retrouvé dans les archives.

Après la construction d'un tableau croisé dynamique, les colonnes de gauches comportent des lignes vides entre les résultats.

Je souhaiterais pouvoir combler automatiquement ces vides par les résultats correspondant, si possible sous VBA.

Je vous joins un tableau pour mieux comprendre ma demande.

Merci d'avance

 

[Efgé]

Re : Copier coller après tableau croisé dynamique

Bonjour,
Je pense qu'il n'est pas possible d'ajouter des noms de lignes dans les "blancs" d'un TCD.
Par contre en faisant un copier/collage spécial valeur(sur un nouvelle feuille par exemple), vous aurez un tableau classique que vous pourrez manipuler bien plus façilement.
Cordialement

 

[liquoreux]

Re : Copier coller après tableau croisé dynamique

Je ne souhaites pas ajouter de lignes dans les blancs d'un TCD.

Mais le faire sur un tableau qui est un copié collé d'un TCD.

Manuellement, c'est très long.

 

[Efgé]

Re : Copier coller après tableau croisé dynamique

Bonjour,
Un code de HASCO (modifié) qui peut vous être utile:
Sub MAJamort()
Dim plg As Range
Dim c As String

'Travailler sur la feuille 'Feuil1'
With Sheets("Feuil1")
'Déterminer la plage de la ligne 1 à la dernière ligne occupée de la colonne A
Set plg = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)

'Parcourir toutes les cellules de la plages
For Each c In plg.Cells
'Si la cellule en cours est = à " "
If c = " " Then
'Ici action pour toutes les cellules contenant " "

End If
Next c
End With
End Sub

En espérant vous avoir ammené un début de réponse, vous devriez trouver la suite sur le forum.
Cordialement

 

[MJ13]

Re : Copier coller après tableau croisé dynamique

Bonjour Liquoreux, Efgé

A tester cette macro faite avec l'enregistreur de macros:

Sub TCD_Rempli_Vides
Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
end sub

 

[liquoreux]

Re : Copier coller après tableau croisé dynamique

Je vous remercie.
Je testerais demain et je vous dirais si ok ou pas.

 

[liquoreux]

Re : Copier coller après tableau croisé dynamique

La dernière solution marche très bien.

Encore merci.