Aide pour un tableau

Bonjour cher Forum,

J'ai un blocage sur un tableau.

Je n'arrive pas à trouver comment je pourrais exploiter de genre de tableau.

J'ai l'impression que je dois tout remanier les données.

Je voudrais extraire le type d'équipement par parc (pas le nombre d'équipement par parc) !

Merci d'avance

11parc-equip.xlsx (16.54 Ko)

Bonjour,

Pour commencer, peux-tu préciser ta version Excel ?

Sinon, on va commencer par structurer les données.

On verra ensuite !...

ALT F8, puis exécuter la procédure CreateTable

Cdlt

8parc-equip.xlsm (25.84 Ko)
Public Sub CreateTable()
Dim tbl, arr()
Dim I As Long, J As Long, k As Long
    tbl = Worksheets("Détail_parcs (2)").Cells(1).CurrentRegion.Value
    For I = 2 To UBound(tbl)
        For J = 2 To UBound(tbl, 2)
            If tbl(I, J) > 0 Then
                ReDim Preserve arr(3, k + 1)
                arr(0, k) = tbl(I, 1)
                arr(1, k) = tbl(1, J)
                arr(2, k) = tbl(I, J)
                k = k + 1
            End If
        Next J
    Next I
    With Worksheets("Table")
        .Cells(1).CurrentRegion.Offset(1).ClearContents
        If k > 0 Then .Cells(2, 1).Resize(k, 3).Value = Application.Transpose(arr)
        .Cells(1).Resize(, 3).EntireColumn.AutoFit
    End With
End Sub

Bonjour Jean-Eric,

Je suis en excel 2010, mais dois rester en mode compatibilité pour mes collègues qui sont (ne riez pas) en Excel 2003. Mon organisation est en transition pour la solution Google (biark).

Merci.

Re,

Tu ne dis rien de mon ébauche de réponse...

Cdlt.

Bonjour Jean-Éric,

Désolé pour ma réponse tardive!

Votre ébauche fait parfaitement le travail, et je vous en remercie grandement.

Est-ce que le VBA est la seule option sans que nous ayons à tout remanier les données?

Je serais curieux de voir ce code en Google script.

Cordialement.

Bonjour,

Pose la question sur le forum Google Sheets du site ?

Cdlt.

Rechercher des sujets similaires à "aide tableau"