Macro copier-coller -passer à la ligne suivante

Bonjour,

J'ai réalisé une macro pour copier-coller les valeurs d'une colonne (RESULTATS dans la feuille "Comparaisons") dans une ligne (feuille "Tableau") et j'aimerais passer à la ligne suivante lorsque les valeurs de la colonne sont modifiées et que je réenclenche le bouton macro. Et ainsi de suite ..

Pour l'instant j'en suis là :

Sub Copiercoller()

'

' Copiercoller Macro

'

'

Sheets("Comparaison").Select

Range("F2:F9").Select

Selection.Copy

Sheets("Tableau").Select

Range("A2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=True

Range("A4").Select

End Sub

Je vous envoie également le fichier en zip Merciiiii !

Bonsoir mimilendo, bonsoir le forum,

Essaie comme ça :

Sub Copiercoller()
Dim C As Worksheet 'déclare la variable C (onglet Comparaison)
Dim T As Worksheet 'déclare la variable T (onglet Tableau)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set C = Sheets("Comparaison") 'définit l'onglet C
Set T = Sheets("Tableau") 'définit l'onglet T
Set DEST = T.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
C.Range("F2:F9").Copy 'copie la plage F2:F9
DEST.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True 'colle les valeurs de la plage dans DEST en transposant
End Sub

Bonjour Thauthème,

Ton VBA fonctionne à merveille et c'est très gentil de ta part de mettre les commentaires en vert, ainsi je comprend mieux !

Merci en tout cas

Bonjour à tous,

Voilà désolé de déterrer le sujet, mais je me retrouve face à un problème à peu près similaire.

Le bout de code qu'à fait ThauThème fonctionne parfaitement, mais dans mon cas j'aimerais que mes données soient copier en colonne et non en ligne.

Malgré plusieurs essais j'arrive pas à obtenir ce que je souhaite, est-ce que vous auriez une idée ?

Bien cordialement,

Sam123

Re,

Si j'ai bien compris, l'argement Transpose doit avoir la valeur False :

DEST.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'colle les valeurs de la plage dans DEST en transposant

Merci, ça fonctionne parfaitement !

J'ai une nouvelle question, la colonne que je copie contient des dates, mais lors de la copie ça m'affiche une suite de chiffre incohérente. Sais-tu pourquoi ?

Je te copie ci-dessous ce que je copie et ce que j'obtient

Date (original)

22/02/2016

22/02/2016

22/02/2016

02/03/2016

02/03/2016

02/03/2016

05/04/2016

05/04/2016

05/04/2016

09/05/2016

09/05/2016

09/05/2016

12/06/2016

12/06/2016

12/06/2016

02/07/2016

02/07/2016

02/07/2016

Date (copie)

42422

42422

42422

42431

42431

42431

42465

42465

42465

42499

42499

42499

42533

42533

42533

42553

42553

42553

Re,

Se sont bien des dates mais au format entier Long. Si tu donnes ton code complet on pourra le modifier pour que tu lises les dates...