matrice en vba Résolu/Fermé

Question

Bonjour,
Je n'arrive pas à coprendre le code que je dois appliquer à mon "problème". Je dois convertir les "rows to columns" avec les données de mes matrices. Je suis novice en vba, je viens juste de comprendre comment marche les macros mais pour faire les code, c'st un peu dur...
en espérat que quelqu'un peut m'aider..
merci beaucoup en avance
le code:
Sub tt()
    Dim a(), i&, ii&, x&
    a = [a1].CurrentRegion.Value
    ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 3)
    For i = 2 To UBound(a)
        For ii = 2 To UBound(a, 2)
            x = x + 1
            b(x, 1) = a(i, 1)
            b(x, 2) = a(1, ii)
            b(x, 3) = a(i, ii)
        Next
    Next
    Workbooks.Add(1).Sheets(1).[a1].Resize(x, 3) = b
End Sub

Patrice33740 · Answer

bonjour,

Pour convertir les lignes en colnnes, pas besoin de macro, utilises la formule TRANSPOSE()

sultanga · Answer

Bonjour,
j'ai compris comment le marche le code. En fait, j'ai 5 matrices pour les années de 2004 à 2009 et pour chaque année il y a des trimestres, c'est pour ça je pense que c'est mieux d'appliquer le code. 
Mais maintenant, j'ai un autre problème, le code ne se copie pas et je suis obligée de faire plusieurs classeurs eu lieu de garder toujours le même classeur..est ce qu'il y a une solution?
Merci d'avance,
A

ccm81 · Answer

Bonjour

Comme dit Patrice que je salue au passage, pourquoi t'embêter à coder la transposition
Si tu tiens absolument à faire ça en vba peut être t'inspirer de ceci

Public Sub TR()Dim nbli As Long, nbco As LongDim adrmat As String, adrcible As String, M As Rangeadrmat = InputBox("adresse matrice à transposer")Set M = Range(adrmat)adrcible = InputBox("adresse cellule cible ")nbli = M.Rows.Countnbco = M.Columns.CountRange(adrcible).Resize(nbco, nbli) = Application.Transpose(M)End Sub

Cdlmnt

ccm81 · Answer

Si c'est fini, peux tu mettre le sujet à Résolu (en haut à droite de ton premier message)

Bonne soirée

Matrice en vba

4 réponses

Discussions similaires