inserer copie/coller cellule avec boucle

[patou153]

J'ai un fichier avec +- 60 lignes et 2 colonnes et je voudrais deplacer ex:A1 (avec condition de supprimer les espaces)sous B2 et ainsi jusqu'à la derniere ligne avec macro
Merci de vos conseils 🙂

 

[skoobi]

Re : inserer copie/coller cellule avec boucle

Bonjour,

voici un exemple:

Sub déplace()
Application.ScreenUpdating = False
For lig = 1 To [A1].End(xlDown).Row
    Cells(lig, 1).Value = Trim(Cells(lig, 1).Value)
    Cells(lig, 1).Cut Cells(lig + 1, 2)
Next
Application.ScreenUpdating = True
End Sub

 

[patou153]

Re : inserer copie/coller cellule avec boucle

En fait je me suis mal exprimé. j'ai A1 et B1 jusqu'à A60 et B60 et voudrais les mettre les uns sous les autres soit en copiant sur une autre feuille dans une colonne resultat --> 1ere ligne A1, puis 2eme ligne B1 ..etc
A B
Ducerf Xavier
Santelli Georges
Normand Jean-Luc

Resultat:
Liste
A
Xavier
Ducerf
Georges
Santelli etc ...

A+++

 

[skoobi]

Re : inserer copie/coller cellule avec boucle

Re,

si j'ai bien compris, essaye ceci:

Sub test()
col = 2
For lig = 1 To [A1].End(xlDown).Row
    col = IIf(col = 2, 1, 2)
    With Sheets("Feuil2")
        .Range("A" & .[A65536].End(xlUp).Row + 1).Value = Cells(lig, col).Value
    End With
    If col = 2 Then lig = lig - 1
Next
End Sub