Vba copier tant que non vide
zigwat
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai une colonne dont le nombre de ligne évolue tous les jours. J'aimerais pouvoir copier sur une autre feuille le contenu de ces cellules. Comment puis-je procéder?
Par avance, merci.
J'ai une colonne dont le nombre de ligne évolue tous les jours. J'aimerais pouvoir copier sur une autre feuille le contenu de ces cellules. Comment puis-je procéder?
Par avance, merci.
Configuration: Windows 2003 Internet Explorer 7.0
2 réponses
-
bonjour;
Sub copier()
Sheets("feuil1").Range("A1:C20").Copy Sheets("feuil2").Range("A1:C20")
End Sub -
Bonjour,
cette macro gère également le cas ou tu supprimes des lignes à la fin de ta colonne à copier.
numlign = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Range("A1:A" & numlign).Copy Sheets("Feuil2").Range("A1")
derlign = Sheets("Feuil2").Range("A65536").End(xlUp).Row
lign = numlign + 1
If lign < derlign Then
Sheets("Feuil2").Range("A" & lign & ":" & "A" & derlign).Delete
End If
