Colonnes en Lignes

[Gexk5]

Bonsoir le forum,

Je vous soumet un nouveau sujet, (n'ayant pas trouvé par la recherche)
Voici mon problème, a l'aide d'une macro, j'exporte des données sur 3 colonnes sur une feuille"SUIVI", je voudrai retranscrire ces données sur une autre feuille"HISTORIQUES", mais cette fois avec le nom en ligne , doublons aceptés car il peut y avoir plusieurs fois la meme valeur.
Ma feuille "SUIVI" est vidée et ensuite re remplie avec les memes noms mais peut y en avoir de nouveaux et de nouvelles valeurs, refaire la meme manip sur la feuille "HISTORIQUES".

Merci a tous ceux qui s'interesserons à mon sujet

Je joint un post pour explication sur ce que je voudrais

@micalement

 

[JeanMarie]

Re : Colonnes en Lignes

Bonsoir Gexk5

Essaye ce code

Sub Macro1()
   Range("A1:D" & Range("A256").End(xlUp).Row).Copy
   Sheets("HISTORIQUES").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=True
   Application.CutCopyMode = False
End Sub

@+Jean-Marie

 

[Gexk5]

Re : Colonnes en Lignes

Re le forum, JeanMarie
Merci pour ton code, ca fonctionne, mais quand je refais tourner plusieurs fois ton code, les nouvelles valeurs remplacent celles presentes au lieu de se mettre en dessous.
Dans la feuille historique, je voudrais retrouver toutes les valeurs depuis le premier lancement de la macro.

Merci quand meme
@micalement