Discussion :

[Thomas69]

Je m'explique
J'ai une macro qui va recupere plusieurs données et qui copie chaque donnée dans une colonne
les données que je recupere ce copie a la suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
fl2.Range("A" & fl2.Range("A65536").End(xlUp).Row + 1).Value = _
     fl.Range("B1").Value
     fl2.Range("B" & fl2.Range("B65536").End(xlUp).Row + 1).Value = _
     fl.Range("B3").Value
     fl2.Range("C" & fl2.Range("C65536").End(xlUp).Row + 1).Value = _
     fl.Range("B4").Value
     fl2.Range("D" & fl2.Range("D65536").End(xlUp).Row + 1).Value = _
     fl.Range("B5").Value
     fl2.Range("E" & fl2.Range("E65536").End(xlUp).Row + 1).Value = _
     fl.Range("F7").Value
     fl2.Range("F" & fl2.Range("F65536").End(xlUp).Row + 1).Value = _
     fl.Range("F8").Value
     fl2.Range("G" & fl2.Range("G65536").End(xlUp).Row + 1).Value = _
     fl.Range("F9").Value

ce que je voudrais faire c'est un regroupement de toutes ces données et les mettres dans une seulles colonnes

Exemple

au lieu d'avoir

phase1 consigne mesure phase2 consigne mesure

j'ai

phase 1 consigne mesure
phase2 consigne mesure

[Thomas69]

j'ai trouvé
desoler pour le poste inutile je vais delester

voici la solution tout de meme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
fl2.Range("H" & fl2.Range("H65536").End(xlUp).Row + 1).Value = _
     fl.Range("A15").Value
 
     fl2.Range("H" & fl2.Range("H65536").End(xlUp).Row + 1).Value = _
     fl.Range("A19").Value

[ouskel'n'or]

Tu avais aussi le collage spécial avec Transpose = True
Un coup d'oeil dans l'aide