Bonjour!
J'ai besoin de votre aide urgemment; voilà:
J'ai des données disposée de la sorte:
J'aimerais copier chaque ligne horizontale dans une autre feuille sous une autre disposition verticale:
J'en ai une tonne et je voudrais créer un script VBA pour cela. Je ne m'y connais pas en programmation, j'ai besoin de votre aide.
Voici la macro que j'ai enregistré pour 2 lignes:
Sub Macro2()
'
' Macro2 Macro
'
'
Sheets("9439014").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Selection.End(xlDown).Select
Range("B32").Select
Sheets("9439014").Select
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("D5").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Pouvez-vous m'aider à répéter l'action de : copier une à une les plages de données horizontale de la feuille "9439014" et coller verticalement (la transposée) sur une colonne de la deuxième feuille, ainsi de suite jusqu'à la dernière ligne de la feuille de destination.
Merci d'avance!!!
J'ai besoin de votre aide urgemment; voilà:
J'ai des données disposée de la sorte:
J'aimerais copier chaque ligne horizontale dans une autre feuille sous une autre disposition verticale:
J'en ai une tonne et je voudrais créer un script VBA pour cela. Je ne m'y connais pas en programmation, j'ai besoin de votre aide.
Voici la macro que j'ai enregistré pour 2 lignes:
Sub Macro2()
'
' Macro2 Macro
'
'
Sheets("9439014").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Selection.End(xlDown).Select
Range("B32").Select
Sheets("9439014").Select
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("D5").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Pouvez-vous m'aider à répéter l'action de : copier une à une les plages de données horizontale de la feuille "9439014" et coller verticalement (la transposée) sur une colonne de la deuxième feuille, ainsi de suite jusqu'à la dernière ligne de la feuille de destination.
Merci d'avance!!!