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.
A voir également:
- Vba copier tant que non vide
- Comment supprimer une page vide sur word - Guide
- Comment copier une vidéo youtube - Guide
- Caractere vide - Guide
- Super copier - Télécharger - Gestion de fichiers
- Tu dois avoir accès au live pour passer live en tant qu'invité - Forum TikTok
2 réponses
bonjour;
Sub copier()
Sheets("feuil1").Range("A1:C20").Copy Sheets("feuil2").Range("A1:C20")
End Sub
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
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
