Discussion :

[richert90]

Bonjour,

J'ai un tableau initial (P.J) que je souhaite transposer dans un 2ième onglet d'Excel.
Je suis bloqué au niveau de l'algorithme qui me permet de transposer le tableau
L'onglet 3 d'Excel est l'aperçu du tableau final souhaité.
Je souhaite mettre en colonne le numéro de groupe et le numéro de "Board". Le but final est de réaliser des graphiques.

Merci de m'aider pour trouver comment faire...

(Vous pouvez voir le peu que j'ai fait en VBA pour transposer le tableau dans le module "transpose")

Merci d'avance

[Marc-L]

Bonjour,

même avec le classeur ce n'est vraiment pas clair !
L'idéal étant classeur avant et un classeur après, alimentés en données évidemment ‼

Si de transposition il est vraiment question, elle peut déjà s'effectuer manuellement par un Copier
puis un Collage spécial avec transposition et en utilisant l'Enregistreur de macros, le code est livré sur un plateau !

[Kimy_Ire]

Salut,

De mon côté, je te propose ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub transposée()
Dim origin As Range
Dim target As Range
 
With Worksheets("dataBase")
    Set origin = .Range("E1")
    For i = 0 To .Rows(1).Find("*", , , , , xlPrevious).Column - 4 Step 2
        For j = 1 To .Columns(1).Find("*", , , , , xlPrevious).Row - 1
            With Worksheets("Transpose")
                Set target = .Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0)
                If IsNumeric(Right(origin.Offset(0, i), 2)) Then
                    target = Mid(origin.Offset(0, i), 3, 1)
                    target.Offset(0, 1) = Right(origin.Offset(0, i), 2)
                    target.Offset(0, 2) = Worksheets("dataBase").Cells(origin.Offset(j, 0).Row, 1)
                    target.Offset(0, 3) = Worksheets("dataBase").Cells(origin.Offset(j, 0).Row, 2)
                    target.Offset(0, 4) = origin.Offset(j, i)
                    target.Offset(0, 5) = origin.Offset(j, i + 1)
                End If
            End With
        Next j
    Next i
 
End With
 
End Sub

Comme dit Marc-L, ce que tu demandes n'est pas clair. J'ai fait avec ce que j'avais compris. A toi d'adapter.

Cordialement,
Kimy

[richert90]

Merci pour vos réponses.

Kimmy ca correspond à ce que je voulais

Merci