XL 2013 (RESOLU) Copier Colonne vers ligne

[chaelie2015]

Bonjour
Je souhaite copier les données de la colonne C6:C25 de la feuille 1 vers la feuille 2, en les collant dans une ligne allant de D4 à AQ4, avec un décalage d'une cellule pour chaque cellule de la colonne.
Merci

 

[fanch55]

Salut,
Code classique à mettre dans un module :

Sub CopyF1toF2()
Dim Cel As Range, Col As Integer, Lig As Integer
    Col = Columns("D").Column
    Lig = 4
    For Each Cel In Worksheets("Feuil1").[C6:C25]
        Worksheets("Feuil2").Cells(Lig, Col) = Cel.Value
        Col = Col + 2
    Next
End Sub

 

[chaelie2015]

Bonjour fanch55
Merci pour la réponse, c'est parfait. Cependant, j'aimerais que dans chaque cellule de la ligne, en plus du nom, soit affichée la valeur 'Ref.' dans la cellule adjacente.
A+

 

[fanch55]

Bonjour fanch55
Merci pour la réponse, c'est parfait. Cependant, j'aimerais que dans chaque cellule de la ligne, en plus du nom, soit affichée la valeur 'Ref.' dans la cellule adjacente.
A+

Sub CopyF1toF2()
Dim Cel As Range, Col As Integer, Lig As Integer
    Col = Columns("D").Column
    Lig = 4
    For Each Cel In Worksheets("Feuil1").[C6:C25]
        Worksheets("Feuil2").Cells(Lig, Col) = Cel.Value
        Worksheets("Feuil2").Cells(Lig, Col + 1) = "Ref."
        Col = Col + 2
    Next
End Sub

 

[chaelie2015]

Re
Super, maintenant je souhaite copier uniquement les cellules de la colonne de la 1ère feuille contenant du texte. Si une cellule est vide dans la colonne source, je souhaite que la cellule correspondante dans la ligne de la 2ème feuille reste vide.
A+

 

[fanch55]

Re
Super, maintenant je souhaite copier uniquement les cellules de la colonne de la 1ère feuille contenant du texte. Si une cellule est vide dans la colonne source, je souhaite que la cellule correspondante dans la ligne de la 2ème feuille reste vide.
A+

Sub CopyF1toF2()
Dim Cel As Range, Col As Integer, Lig As Integer
    Col = Columns("D").Column
    Lig = 4
    Worksheets("Feuil2").Range("D" & Lig & ":Aq" & Lig).ClearContents
    For Each Cel In Worksheets("Feuil1").[C6:C25]
        If Trim(Cel.Value) <> "" Then
            Worksheets("Feuil2").Cells(Lig, Col) = Cel.Value
            Worksheets("Feuil2").Cells(Lig, Col + 1) = "Ref."
        End If
        Col = Col + 2
    Next
End Sub

Nota: je pense que vous pourrez faire la suite par vous même quand vous aurez bien analysé tous les besoins ...

 

[chaelie2015]

Re
Parfait, mon problème est résolu.
Merci Fanch55
A+