transformer un tableau simple en une liste à intégrer pour un tcd

Fred0o à dit:

Bonsoir karsand et bienvenue sur le forum.

En fait, la macro en question s'auto-adapte au nombre de ligne et etcolonnes de la feuille 1. L'as-tu testée sur ton fichier de données ?

A+

Cliquez pour agrandir...

Fred0o à dit:

Bonjour karsand,

Dans la solution proposée, il supprimait volontairement la dernière ligne et la dernière colonne, pour ne pas avoir les totaux dans la liste. Il te faut donc modifier le code comme ceci :

VB:

Private Sub cmdListe_Click()
    Dim lgLig As Long
    Dim lgCol As Long
    Dim lgLigWS2 As Long
    
    ' Effacer le contenu de la feuille 2
    With Worksheets("Feuil2")
        If .Range("A65536").End(xlUp).Row > 1 Then
            .Range("A2:C" & .Range("A65536").End(xlUp).Row).ClearContents
        End If
    End With
    
    lgLigWS2 = 2
    
    With Worksheets("Feuil1")
        ' Boucle de la 2me à la dernière colonne de la ligne 1
        For lgCol = 2 To .Range("IV1").End(xlToLeft).Column
            ' Boucle de la 2me à la dernière ligne de la colonne A
            For lgLig = 2 To .Range("A65536").End(xlUp).Row
                Worksheets("Feuil2").Range("A" & lgLigWS2).Value = .Cells(lgLig, 1).Value
                Worksheets("Feuil2").Range("B" & lgLigWS2).Value = .Cells(1, lgCol).Value
                Worksheets("Feuil2").Range("C" & lgLigWS2).Value = .Cells(lgLig, lgCol).Value
                lgLigWS2 = lgLigWS2 + 1
            Next lgLig
        Next lgCol
    End With
End Sub

Pour le modifier, dans Feuil1, tu fais click-droit sur le nom de l'onglet, puis visualiser le code. Ensuite, tu remplaces le code existant par celui ci-dessus.

A+

Cliquez pour agrandir...