Collage spécial

[Centaure]

Bonjour,

savez-vous un raccourci pour copier une ligne et coller la transposée (en collage spécial: transposée + valeur) directement sans à chaque fois copier la ligne et cliquer sur collage spécial, "transposée" + "valeur". Je dois le faire pour des centaines de lignes :S , si vous avez d'autres solutions dans ce sens ce serait très sympa.

Merci d'avance

 

[JJ1]

Re : Collage spécial

Bonsoir, je ne connais pas ce raccourci.
Peut-être une macro de transposition (as-tu fait une recherche sur le Forum?)
Bonne soirée

 

[gilbert_RGI]

Re : Collage spécial

Bonjour

un truc comme ceci

Sub transpose()
    Dim sel1 As Range
    Dim sel2 As Range
    Set sel2 = Application.InputBox("la selection sera à copier où", "copie", , , , , , 8)
    Set sel1 = Application.InputBox("selection à copier", "copie", , , , , , 8)
    sel1.Select
    Selection.Copy
    sel2.Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                           False, transpose:=True
End Sub

 

[Centaure]

Re : Collage spécial

Bonsoir, je ne connais pas ce raccourci.
Peut-être une macro de transposition (as-tu fait une recherche sur le Forum?)
Bonne soirée

Oui, mais je ne trouve pas exactement ce que je recherche. S'il y a une solution directe, je vous en remercie

 

[Centaure]

Re : Collage spécial

Je viens d'essayer, mais malheureusement ça ne marche pas :s

 

[Victor21]

Re : Collage spécial

Bonsoir à tous.

Ctrl+c
Sélection de la première cellule de destination,
Alt+e, g, v, p
Puis Entrée.

 

[Centaure]

Re : Collage spécial

C'est Nickel, MERCI!!