Macro pour un "copier et coller transposé"

[fd.30]

Bonjour à tous,

Je viens de créer un bouton pour copier une zone "G3:G225" dans feuil1

" Range("G3:G225").Copy "


Je voudrais maintenant créer un bouton "coller avec transposition" dans feuil2
pour coller les valeurs " G3:G225 " de feuil1 en " B5:HP5 " feuil2.


car je n'arrive pas à faire ceci :
-----------------------------

En fait, dans feuil1 j'ai une zone "G3:G225". Ce sont des valeurs qui changent tous les jours.

L'idéal pour moi, serait d'avoir un bouton qui me fasse un copier de
" G3:G225 " dans feuil1 et un coller transposé dans feuil2 sur "B5:HP5"; et qui changent de lignes à chaque coller (incrémentation des lignes), afin d'archiver quotidiennement les valeurs.

exemple : destination du coller
-----------------------------
sur : B5:HP5
puis B6:HP6
puis B7:HP7 etc...


Merci pour réponses, çà doit pas être évident

 

[WILFRIED]

Re : Macro pour un "copier et coller transposé"

Salut FD30

Une fois que tu as fait ton copier,

tu place ton pointeur la ou tu veux coller :

ex
worksheet("feuill2").select
range("A2").select
ActiveSheet.Paste

vu que tes copies sont des lignes :

range("B5").offset(i,0).select

où i est une variable d'indexation à incrémenté à chaque copie afin de sauté une ligne ou sinon :

range("B65535").end(xlup).offset(1,0).select

cela te selectionne la premiére cellule vide en partant de la fin de la feuille.

A+ et bon courage.

 

[pierrejean]

Re : Macro pour un "copier et coller transposé"

bonjour fd.30

une solution parmi d'autres (a adapter pour les plages)

salut wilfried

 

[fd.30]

Re : Macro pour un "copier et coller transposé"

bonjour fd.30

une solution parmi d'autres (a adapter pour les plages)

salut wilfried

Merci Pierre-Jean,

Mais je n'arrive pas à télécharger ton tableau. Peux-tu me l'envoyer sur ma boite mail
à fd.30@orange.fr
Merci d'avance.

 

[pierrejean]

Re : Macro pour un "copier et coller transposé"

Re

OK je l'envoie de suite

 

[bqtr]

Re : Macro pour un "copier et coller transposé"

Bonjour fd.30, WILFRIED, pierrejean

Un autre exemple,

Sub Copie()

Application.ScreenUpdating = False
Sheets("Feuil1").Range("G3:G225").Copy

With Sheets("Feuil2")
   If .Range("B5") = "" Then
      .Range("B5").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=True
   Else
      .Range("B" & .Range("B65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=True
   End If
      .Range("B" & .Range("B65536").End(xlUp).Row + 1).Activate
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Bonne journée

 

[fd.30]

Re : Macro pour un "copier et coller transposé"

merci tout le monde, c'est parfait !!