Discussion :

[PaulG]

Bonjour,

Je suis assez nouveau sur VBA et je tente de faire quelques macros.
Ici je voudrais faire une macro permettant de copier les cases en ligne d'une feuille donnée nommée "Depart" vers une autre feuille nommée "Arrivee" mais cette fois ci les disposer en colonne.

Ceci est je suppose très simple mais après avoir cherché sur internet etc... j'ai toujours un gros Bug.

Voici mon code
----------------------------------------------------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Copie(Depart As String, Arrivee As String, ResultCell As Range, DestinationCell As Range)
'Cette procedure prend en argument le nom d'une feuille de depart et d'une feuille d'arrivee
'Cette procedure prend aussi une cellule de depart et une cellule d'arrivee en argument
 
    With Sheets(Depart)
    ResultCell.Copy Sheets(Arrivee).Range.DestinationCell
    End With
 
End Sub
 
Sub Permutation()
' Cette procedure copie 4 cases en ligne d'une feuille pour les coller en colonne sur une autre feuille.
 
    For i = 1 To 5
    Dim c As String
    Dim d As String
    c = "Depart"
    d = "Arrivee"
    Call Copie(c, d, Cells(6, i), Cells(i, 2))
    Next i
 
End Sub

-----------------------------------------------------------------------

Detectez vous d'où vient le problème ?

[jfontaine]

Bonjour,

Dans excel tu peux faire un collage spécial transposé qui permet de faire cela
Regardes "PasteSpecial"

[PaulG]

Merci pour le conseil mais sauriez vous pourquoi mon code ne marche pas c'est surtout cela qui m'intéresserait . Parceque parait -il c'est en faisant des erreurs qu'on apprend !

[jfontaine]

Personnellement je ne vois pas l’intérêt de la procédure "Copie" puisqu'elle ne contient qu'une seule ligne de code.

[PaulG]

Très bien mais ceci ne répond pas à ma question : Pourquoi cela ne marche pas ???

[Docmarti]

Cette syntaxe n'est pas correcte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ResultCell.Copy Sheets(Arrivee).Range.DestinationCell

Celle-ci l'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ResultCell.Copy Sheets(Arrivee).Range(DestinationCell.Address)

[PaulG]

Super Merci Docmarti, ca marche parfaitement.

[nibledispo]

bonjour,

il semble que la fonction transpose fasse l'affaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro1()
 
    Sheets("feuil1").Range("A2").CurrentRegion.Copy
    Sheets("Feuil2").Range("a1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

cordialement.