Vos aides Array Codes

Bonjour les membres de excel pratique

SVP y a quelqu'un qui peut m'aider de résoudre le problème suivant?

je veux faire un transfert de plusieurs plages de cellules dans une seule colonne!

j'ai écris ce code, mais il ça marche plus? sauf que pour les plages A et si je puisse de faire les autres je dois poser une virgule par exemple : "A", "B"..."n" sachant que j'ai beaucoup de colonnes! comment rédiger un code qui génère le transfert de A à n? j'ai fait "A:Y" mais ça marche pas.

Avez vous des idées, je me suis trompé et j'ai gaspillé bcp de temps

Bonsoir,

Si j'ai bien compris... Une solution :

Sub galopin()
Dim i%, iC%, iR%, iRS%
iC = Cells(1, Columns.Count).End(1).Column   'Nombre de colonnes
iR = Cells(Rows.Count, 1).End(3).Row + 1     'première cellule libre de la colonne A
For i = 2 To iC
   If Cells(i) <> "" Then                    'si la colonne i n'est pas vide
      iRS = Cells(Rows.Count, i).End(3).Row  'dernière ligne de cette colonne
      Range(Cells(1, i), Cells(iRS, i)).Copy Cells(iR, 1) 'copie vers la colonneA
      iR = iR + iRS                          'on incrémente le coompteur de ligne
   End If
Next
End Sub

A+

Bonsoir,

Autre proposition de transfert de toutes les plages des colonnes utilisées en colonne A:

Sub transfert()
    Dim col As Range, prem_cell_A_dispo As Range
    With ActiveSheet
        .Columns("A").Clear    'raz colonne A
        For Each col In .UsedRange.Columns
            Set prem_cell_A_dispo = .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
            prem_cell_A_dispo.Resize(col.Rows.Count).Value = col.Value
        Next col
    End With
End Sub