VBA - affectation d'un résultat à n colonnes de la sélection ?

Bonjour!

J'ai une toute petite macro qui doit m'aider à effectuer des transpositions routinières:

Option Explicit
Sub Transposition()
'
' Transposition Macro
'
Selection.CurrentRegion.Select
Selection.Copy
Range("L" & Selection.Row).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Ici j'affecte le résultat à la colonne L, sur la ligne de la sélection.

J'aimerais pouvoir affecter le résultat à deux cellules à droite de la cellule sélectionner : ex : en C2 si ma sélection est A2.

Je pense que c'est sans doute très simple, mais je ne trouve pas!

Merci d'avance!

bonsoir Guillaume

veuillez joindre un fichier exemple, pour qu'on puisse t'aider

Bonsoir à tous,

Toutes mes excuses, j'ai trouvé la solution à mon problème avec un basique ActiveCell.Offset.

Voici ma macro après cette optimisation.

Option Explicit
Sub Transposition()
'
' Transposition Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Selection.CurrentRegion.Select
Selection.Copy
ActiveCell.Offset(0, 2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Bonne soirée!

Rechercher des sujets similaires à "vba affectation resultat colonnes selection"