1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Sub Test()
Dim Plage As Range
Dim PlageLigne As Range
Dim Cel As Range
Dim I As Integer
With Worksheets("Feuil1")
Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Cel In Plage
Set PlageLigne = Plage.Range(Cel, Plage.Cells(Cel.Row, Columns.Count).End(xlToLeft))
For I = 1 To PlageLigne.Count
'ici, avec un retour à la ligne
Cel.Offset(, 6).Value = Cel.Offset(, 6).Value & IIf(PlageLigne(I).Value <> "", PlageLigne(I).Value & vbCrLf, "")
'supprime la valeur de la cellule en cours
'PlageLigne(I).Value = ""
Next I
'supprime le dernier vbCrLf
Cel.Offset(, 6).Value = Left(Cel.Offset(, 6).Value, Len(Cel.Offset(, 6).Value) - 1)
'pour supprimer la valeur de la cellule en cours en colonne A
'Cel.Value = ""
Next Cel
End Sub |
Partager