Algo transposition tableau VBA

Version imprimable

23/12/2013, 17h16
richert90

1 pièce(s) jointe(s)

Algo transposition tableau VBA

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
23/12/2013, 17h36
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 !

Salut,

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

Code:

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

23/12/2013, 21h56
richert90

Merci pour vos réponses.

Kimmy ca correspond à ce que je voulais

Merci :)