Collage spécial

J

JJ1

Guest

• 2 Mars 2012

• #2

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 2 Mars 2012

• #3

Re : Collage spécial

Bonjour

un truc comme ceci

Code:

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

 

Vote positif 0 Vote négatif

C

Centaure

XLDnaute Nouveau

• 2 Mars 2012

• #4

Re : Collage spécial

JJ1 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

C

Centaure

XLDnaute Nouveau

• 2 Mars 2012

• #5

Re : Collage spécial

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 2 Mars 2012

• #6

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.

 

Dernière édition: 2 Mars 2012

Vote positif 0 Vote négatif

C

Centaure

XLDnaute Nouveau

• 2 Mars 2012

• #7

Re : Collage spécial

C'est Nickel, MERCI!!

 

Vote positif 0 Vote négatif