Transformer des données d'une matrice en colonne

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
eric4459
Le #19824331
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 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
Publicité
Poster une réponse
Anonyme