Transférer données de colonne B Vers colonne A

actaris51

XLDnaute Occasionnel
Bonjour,

Mon problème est très simple mais je n'arrive pas à le résoudre.
Je m'explique:

J'ai un tableau de ce type

A B C D
x y z
s d
g h j k

Je voudrais couper et coller mes données de mes colonnes B, C, D... au fur et à mesure dans ma colonne A. Le résultat pour cet exemple serait :

A
x
y
z
s
d
g
h....

Pouvez vous m'aider ?

Merci
 

tototiti2008

XLDnaute Barbatruc
Re : Transférer données de colonne B Vers colonne A

Bonjour actaris51,

un essai, le résultat en colonne AA :

Code:
Sub ListeColonne()
Dim Ligne As Long, Colonne As Long, i As Long, j As Long, DerLigne As Long
    Ligne = Range("A1").CurrentRegion.Rows.Count
    Colonne = Range("A1").CurrentRegion.Columns.Count
    DerLigne = 1
    For i = 1 To Ligne
        For j = 1 To Colonne
            If Cells(i, j).Value <> "" Then
                Range("AA" & DerLigne).Value = Cells(i, j).Value
                DerLigne = DerLigne + 1
            End If
        Next j
    Next i
End Sub
 

Discussions similaires