Repetition d'une macro

[maiwennr]

Bonjour!

Je suis TOUTE nouvelle en VB et n'y comprends rien mais ai reussi a faire la macro suivante (merci FORUM EXCEL)

Dans mon fichier, j'ai 2 onglets
1er onglet: des donnees en colonne
2eme onglet: les memes donnees en ligne.

J'ai donc fait une macro avec collage special avec liens et transposition.

Cependant, je souhaite que TOUTES mes colonnes de donnees soient dans mon tableau en ligne et ne sais pas comment modifier mon code pour y parvenir...

Fichier joint.

Merci!

 

[Efgé]

Re : Repetition d'une macro

Bonjour maiwennr
Une proposition pour toucher le moins possible au code d'origine et si j'ai bien compris....

Sub Copie()
Dim X As Long, J As Long
Application.ScreenUpdating = False
X = Sheets("Dec 11").Cells(2, Columns.Count).End(xlToLeft).Column
For J = 6 To X
    With Sheets("Dec 11")
        .Range(.Cells(2, J), .Cells(91, J)).Copy
    End With
    With Sheets("accountancy")
       If .Range("B5") = "" Then
          .Range("B5").PasteSpecial Paste:=xlPasteAll, Transpose:=True
       Else
          .Range("B" & .Range("B65536").End(xlUp).Row + 1).PasteSpecial _
          Paste:=xlPasteAll, Transpose:=True
       End If
    End With
Next J
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Cordialement

 

[maiwennr]

Re : Repetition d'une macro

Merci! Mais en faisant juste un copier-coller de votre code, ca me dit:

COMPILE ERROR: INVALID OUTSIDE PROCEDURE.

Fallait il faire differemment?


Range("E15").Select

Sub Copie()
Dim X As Long, J As Long
Application.ScreenUpdating = False
X = Sheets("Dec 11").Cells(2, Columns.Count).End(xlToLeft).Column
For J = 6 To X
With Sheets("Dec 11")
.Range(.Cells(2, J), .Cells(91, J)).Copy
End With
With Sheets("accountancy")
If .Range("B5") = "" Then
.Range("B5").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Else
.Range("B" & .Range("B65536").End(xlUp).Row + 1).PasteSpecial _
Paste:=xlPasteAll, Transpose:=True
End If
End With
Next J
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[Efgé]

Re : Repetition d'une macro

Re
il y a

Range("E15").Select

avant la ligne

Sub Copie()

Cordialement

 

[maiwennr]

Re : Repetition d'une macro

Effectivement, j'ai du l'enregister par inadvertance... Dsl...

Cependant, j'ai reteste et ca copie dans mon 2eme onglet 2 lignes avec les memes donnes de la 1ere colonne...

 

[Efgé]

Re : Repetition d'une macro

Re
Si tu test avec le fichier donné au post 1, c'est normal. Il y a la colonne F recopiée en colonne J (donc deux fois la même ligne sur la feuille de résultat )
Cordialement

 

[maiwennr]

Re : Repetition d'une macro

Cooollll,

Donc tout marche bien, merci beaucoup!
En plus, ca m'a permis de tripatouiller un peu et de comprendre 2/3 trucs a VBA... Merci!!!