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) .
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
sous la solution pour la valider.