Remplacer le contenu des cases d'un tableau

Bonjour

j'ai besoin de remplacer les nombres qui se trouvent dans les cases d'un tableau par l’entête des colonnes

je joins un fichier avec le modèle et le résultat souhaité, bien sur le tableau initial est beaucoup plus grand et compte plus de 2000 lignes.

je vous remercie par avance pour votre aide.

Philippe

Bonjour,

une solution via une macro qui s'applique à la feuille active

Sub replacedetail()
    dc = Cells(1, Columns.Count).End(xlToLeft).Column
    maxl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 5 To dc
        dl = Cells(Rows.Count, i).End(xlUp).Row
        If dl > 1 Then
        Cells(1, i).Copy
        Range(Cells(2, i), Cells(dl, i)).SpecialCells(xlCellTypeConstants, 23).Select
        ActiveSheet.Paste
    End If
    Next i
    Range(Cells(2, 5), Cells(maxl, dc)).Borders.Weight = xlThin
End Sub

bonjour

merci pour votre réponse

qu'en vous dite pour la feuilles active cela veut il dire que toutes les cellules de la feuille vont être traitées ?

cordialement

Bonjour

je viens de tester la macro cela fonctionne très bien merci beaucoup

Philippe

philcoppo a écrit :

bonjour

merci pour votre réponse

quand vous dites pour la feuille active cela veut-il dire que toutes les cellules de la feuille vont être traitées ?

Philippe

Je voulais plutôt insisté sur le fait qu'il fallait bien vérifier sur quelle feuille on était avant de lancer la macro.

La macro s'applique pour toutes les colonnes (de la colonne E à la dernière colonne trouvée)