RESOLU Comment regrouper plusieurs colonnes en une seule

VBA
2

Bonjour

Un p’tit VBA

Sub Regroupe()
Dim i%, j%, dl%
dl = 13 '1ère ligne du tableau
Range("A13:A500") = "" 'vide ancienne valeur
For i = 23 To 33 Step 2 'boucle une colonne sur 2
  For j = 13 To 500 'boucle ligne
    If Cells(j, i).Value <> "" Then 'si la cellule n'est pas vide
      Cells(dl, 1).Value = Cells(j, i).Value 'je rempli la colonne A
      dl = dl + 1 ' je déclare la Dl avec une ligne de plus
    End If
  Next j
Next i
End Sub

Assembler-Colonnes.xlsm (89,3 Ko)

1 « J'aime »