RESOLU Comment regrouper plusieurs colonnes en une seule

Assembler-Colonnes.xlsx (60,4 Ko)
Bonjour à tous et toutes !

je viens vers vous car je n’arrive pas à trouver tout seul… je désire juste recopier plusieurs colonnes dans une seule sans compter les blancs. Par VBA ou formules. j’avoue mieux maîtriser les formules mais je pense que par VBA c’est plus simple.

En gros je veux copier les contenus des colonnes qui partent de W13 à W500 Y13 à Y500, AA13 à AA500 etc dans la colonne A mais à partir de A13 . Chaque contenu contient parfois des celulles vides qui ne faut pas copier bien sur. Le tout donc à la suite dans la colonne A (à partir de A13) .

merki car je tourne en rond …

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 »

au pinaise trop bien !!!

je vais essayer de comprendre tout ça c’est génial !!

Merci beaucoup ^^

Re,

Ok
Si ton probleme est resolu n’oublie pas de cliquer sur le petit :white_check_mark: sous la solution pour la valider.
A la prochaine :wink:

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.