coller avec transposition

[Jean-Claude]

bonjour,

de la rigolade pour les experts que vous êtes, mais quelle galère pour les bricoleurs !
je voudrais tout simplement que quand j'ai sélectionné une plage de cellules, une macro coupe cette plage et la transpose en décalant d'une cellule.
Me rendant compte que je ne me comprends pas moi-même, un exemple sera plus parlant.
Je sélectionne A2:A1O
J'aimerais retrouver ces cellules transposées en B2:J2

Merci d'avance

Jean-Claude

 

[Valérie]

Salut Jean-Claude

Un bout de code correspondant à ce que tu cherches mais attention toutes les précausions n'ont pas été prises (ex: si les plages du copieu colleu se chevauchent )

Private Sub BtTranspose_Click()
Dim PLAGE As Range

Set PLAGE = Selection

PLAGE.Copy
ActiveCell.Offset(0, 1).PasteSpecial Transpose:=True
PLAGE.ClearContents

End Sub

@+
Valérie

 

[andré]

Salut Jean-Claude,

Est-ce qu'un Copier / Collage spécial / Transposé (dans le bas à droite de la fenêtre de dilaogue) ne répondrait-il pas à ta recherche ?

André

 

[– €ric –]

Salut à tous,

J'ai vu que tu souhaitais faire une macro
mais je viens quand même mettre mon "grain de sel".

Par formule on peut utiliser la fonction TRANSPOSE("données")
avec une validation matricielle (CTRL+Shift+Entrée).
Celà permet d'avoir une matrice transposée avec une liaison avec les données d'origine, ce que le collage spécial ne permet pas.
(cf. Fichier joint zippé)

Bye et @ +



- €ric -​