XL 2013 (RESOLU) Copier Colonne vers ligne

chaelie2015

XLDnaute Accro
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
 

Pièces jointes

  • Charlie vers la droite.xlsx
    9.6 KB · Affichages: 3
Solution
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+
VB:
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...

fanch55

XLDnaute Barbatruc
Salut,
Code classique à mettre dans un module :
VB:
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
 

fanch55

XLDnaute Barbatruc
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+
VB:
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

XLDnaute Accro
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

XLDnaute Barbatruc
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+
VB:
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 ...
 

Statistiques des forums

Discussions
313 197
Messages
2 096 122
Membres
106 502
dernier inscrit
Jc_dan