Copier coller après tableau croisé dynamique

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

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.

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

Re : Copier coller après tableau croisé dynamique

Bonjour Liquoreux, Efgé

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

Re : Copier coller après tableau croisé dynamique

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

Re : Copier coller après tableau croisé dynamique

La dernière solution marche très bien.

Encore merci.