Copie jusqu'à dernière ligne remplie
Résolu
touroul
Messages postés
521
Date d'inscription
Statut
Membre
Dernière intervention
-
touroul Messages postés 521 Date d'inscription Statut Membre Dernière intervention -
touroul Messages postés 521 Date d'inscription Statut Membre Dernière intervention -
Bonjour le forum
Je cherche, par macro, à copier dans le presse papier le contenu des cellules A6:Ax
Ax est la dernière ligne contenant du texte en bas de mon tableau.
Puis-je vous demander de l'aide ?
Merci d'avance pour cela !
Je cherche, par macro, à copier dans le presse papier le contenu des cellules A6:Ax
Ax est la dernière ligne contenant du texte en bas de mon tableau.
Puis-je vous demander de l'aide ?
Sub Macro1()
Range("A3:Ax").Select
Selection.Copy
End Sub
Merci d'avance pour cela !
A voir également:
- Selectionner plage jusqu'à la dernière cellule non vide vba
- Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Supprimer dernière page word - Guide
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Internat nourriture - Forum Loisirs / Divertissements
2 réponses
Bonjour bonjour,
Dans un premier temps, il faut définir quelle est la dernière ligne de votre tableau. On stockera cette valeur dans une variable. Ensuite, on va copier les lignes en fonction de cette variable.
Allons y donc :
Cordialement.
Dans un premier temps, il faut définir quelle est la dernière ligne de votre tableau. On stockera cette valeur dans une variable. Ensuite, on va copier les lignes en fonction de cette variable.
Allons y donc :
Sub Macro1() 'Début de la macro
Dim DL As Long 'Définition de la variable
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'Je définis la dernière ligne dont la colonne A n'est pas vide
Range("A3:A" & DL).Copy 'Je copie les lignes de A3 à la dernière ligne (pas besoin ici de sélectionner, sauf si vous le voulez vraiment, dans ce cas, rajouter la ligne select à la place de Copy puis Selection.Copy
End Sub 'Fin de la macro
Cordialement.
