Discussion :

[BRUNO71]

Bonjour,
Comment faire avec VBA pour copier la colonne (A) de la feuille (1) avec un nombre aléatoire de cellule «en fonction du fichier », et de l’insérer à la fin de la colonne (A) de la feuille (2), sachant qu’il y a peut-être du texte dans les cellules.
Le but n’est pas de remplacer les cellules, vous l’avez bien compris.
Merci pour votre aide.

[fring]

Bonjour,

Via cette ligne de code par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1).Range("A1:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

[rvtoulon]

Bonjour,
essaye comme ceci par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test_copie()
Dim derniereligne As Long, lignevide As Long
 
derniereligne = Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row
 
lignevide = Sheets("feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
 
Sheets("feuil1").Range(Cells(1, 1), Cells(derniereligne, 1)).Copy Sheets("feuil2").Cells(lignevide, 1)
 
End Sub

EDIT:
oupss désolé je n'avais pas vu le post de fring, ,au passage salut fring

[BRUNO71]

Bonjour,
Excellent, merci fring.
Merci Rvtoulon..