Copier Coller Transposé

[Lancelot]

Bonjour à tous,

Je voudrais faire une macro qui ferais un copier - coller transposé. Je m'explique, je dois mettre à jour un tableau mensuel (Tableau B) à partir d'un autre tableau (Tableau A) qui n'est pas mensuel. Une fois par mois je voudrais récupérer les données du Tableau A copier/coller transposé vers le mois en cours du Tableau B.
Voilà, merci à tous.

J'ai commencé par le bout de macro ci-dessous, mais c'est pas top :

_________________________________
ligneselectionnee = ActiveCell.Row
colonneselectionnee = ActiveCell.Column
Dim i
For i = 1 To 8
Range("L" & ligneselectionnee & ":L" & ligneselectionnee + 1).Select
Selection.Copy
Range(colonneselectionnee & ligneselectionnee).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ligneselectionnee = ligneselectionnee + 2
colonneselectionnee = colonneselectionnee + 1
Next i
__________________________________

 

[Lancelot]

Re : Copier Coller Transposé

Re tout le monde,

Bon j'ai avancé sur le sujet, ca marche mieux avec le code suivant :
______________________
ColA = ActiveCell.Column
RowA = ActiveCell.Row
ColB = ActiveCell.Column
RowB = ActiveCell.Row
Dim i
For i = 1 To 8
Range("K" & RowA & ":L" & RowA).Select
Selection.Copy
Cells(RowB, ColB).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
RowA = RowA + 1
RowB = RowB + 2
Next i
_____________________

Mais maintenant (et la je sais meme par ou commencer) j'aimerais faire en fonction du mois en cours pour garantir un les manip, Si quelqu'un pouvait me filer un coup de main...

Merci à tous.

 

[Lancelot]

Re : Copier Coller Transposé

Up please je suis bloqué 🙁