XL 2013 (RESOLU) Copier Colonne vers ligne

fanch55

XLDnaute Barbatruc

• 22 Mars 2024

• #2

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 22 Mars 2024

• #3

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+

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 22 Mars 2024

• #4

chaelie2015 à dit:

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 22 Mars 2024

• #5

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+

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 22 Mars 2024

• #6

chaelie2015 à dit:

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+

Cliquez pour agrandir...

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 ...

 

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 22 Mars 2024

• #7

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

 

Vote positif 0 Vote négatif