Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Transformer des données d'une matrice en colonne

Transformer des données d'une matrice en colonne

1 réponse
Avatar
eric4459
Bonjour,
J'ai concatené les données d'une colonne verticale avec celles contenues dans une colonne horizontale , j'ai donc crée une matrice.
Toutes les cases de cette matrice ne sont pas renseignées (elles ne correspondent pas aux critères désirés).
A B C D E F
1 _ _ _ D1 _ _
2 _ B2 _ _ _ _
3 _ _ _ _ E3 _
4 _ _ C4 _ _ F4
5 A5 _ _ _ E5 _


J'ai maintenant besoin de croiser les données obtenues avec les données d'une autre colonne, il faut donc que je transpose les données de ma matrice en colonne de façon à pouvoir y parvenir, mais ça je ne sais pas faire...
Quelqu'un pourrait-il m'aider?
Merci d'avance
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
eric4459
eric4459 a écrit le 24/07/2009 à 01h19 :
Bonjour,
J'ai concatené les données d'une colonne verticale avec celles
contenues dans une colonne horizontale , j'ai donc crée une matrice.
Toutes les cases de cette matrice ne sont pas renseignées (elles ne
correspondent pas aux critères désirés).
A B C D E F
1 _ _ _ D1 _ _
2 _ B2 _ _ _ _
3 _ _ _ _ E3 _
4 _ _ C4 _ _ F4
5 A5 _ _ _ E5 _


J'ai maintenant besoin de croiser les données obtenues avec les
données d'une autre colonne, il faut donc que je transpose les
données de ma matrice en colonne de façon à pouvoir y
parvenir, mais ça je ne sais pas faire...
Quelqu'un pourrait-il m'aider?
Merci d'avance


J'ai trouvé la solution, pas encore parfaite puisqu'il y a une petite manip à effectuer "manuellement".
Mon tableau est composé de 39 colonnes et de 547 lignes.
J'ai crée une macro qui copie/colle les trois premières colonnes sur une seule colonne.
Depuis l'éditeur Visual basic j'ai copié sur une feuille indépendante l'opération pour une colonne 39 fois.
ActiveWindow.SmallScroll Down:S7
Range("A24400").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("C6:C552").Select
Range("C552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ A l'aide de la fonction rechercher/remplacer, j'ai modifié 39 fois le nom de ma colonne <<Range("C6:C552").Select>> et <<Range("C552").Activate>> ainsi que le numero de ligne dans laquelle il faut coller le resultat <<Range("A550").Select>> en l'incrémentant de 600 , j'ai 547 ligne.
Lorsque la macro a terminé ses opérations, il ne reste plus qu'à effectuer un filtre automatique en selectionnant les cases vides et les supprimer, ne restent alors que les données qui m'interessent
Cela m'a pris un peu de temps, mais quelle satisfaction lorsque j'ai lancé la macro et vu le résultat obtenu.

Voici la macro complète :

Sub recherchematrice()
'
' recherchematrice Macro
' Macro enregistrée le 24/07/2009 par ERIC EVRARD
'

'
Sheets("Intitulé_PBS - ABS ").Select
Range("E6:E552").Select
Range("E552").Activate
Selection.Copy
Sheets("Feuil2").Select
Range("A3").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:T0
Range("A550").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("F6:F552").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A1097").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("O6:O552").Select
Range("O552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A1600").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("V6:V552").Select
Range("V552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A2200").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("AC6:AC552").Select
Range("AC552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A2700").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("AH6:AH552").Select
Range("AH552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A3300").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("AK6:AK552").Select
Range("AK552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A3900").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("AQ6:AQ552").Select
Range("AQ552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A4500").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("AZ6:AZ552").Select
Range("AZ552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A5100").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("BE6:BE552").Select
Range("BE552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A5700").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("BG6:BG552").Select
Range("BG552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A6300").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("BJ6:BJ552").Select
Range("BJ552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A6900").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("BN6:BN552").Select
Range("BN552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A7600").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("BT6:BT552").Select
Range("BT552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A8200").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("BZ6:BZ552").Select
Range("BZ552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A8800").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("CA6:CA552").Select
Range("CA552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A9400").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("CT6:CT552").Select
Range("CT552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A10000").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("CU6:CU552").Select
Range("CU552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A10600").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("CV6:CV552").Select
Range("CV552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A11200").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("CW6:CW552").Select
Range("CW552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A11800").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("CX6:CX552").Select
Range("CX552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A12400").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DB6:DB552").Select
Range("DB552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A13000").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DC6:DC552").Select
Range("DC552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A13600").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DD6:DD552").Select
Range("DD552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A14200").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DE6:DE552").Select
Range("DE552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A14800").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DF6:DF552").Select
Range("DF552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A15400").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DI6:DI552").Select
Range("DI552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A16000").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DJ6:DJ552").Select
Range("DJ552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A16600").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DK6:DK552").Select
Range("DK552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A17200").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DL6:DL552").Select
Range("DL552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A17800").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DM6:DM552").Select
Range("DM552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A18400").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DN6:DN552").Select
Range("DN552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A19000").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DR6:DR552").Select
Range("DR552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A19600").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DS6:DS552").Select
Range("DS552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A20200").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DT6:DT552").Select
Range("DT552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A20800").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DU6:DU552").Select
Range("DU552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A21400").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DV6:DV552").Select
Range("DV552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A22000").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DW6:DW552").Select
Range("DW552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A22600").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("DZ6:DZ552").Select
Range("DZ552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A23200").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("EA6:EA552").Select
Range("EA552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A23800").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("EB6:EB552").Select
Range("EB552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A24400").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("EC6:EC552").Select
Range("EC552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
ActiveWindow.SmallScroll Down:S7
Range("A25000").Select
Sheets("Intitulé_PBS - ABS ").Select
Range("EL6:EL552").Select
Range("EL552").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

ActiveWindow.SmallScroll Down:=-15
End Sub