Re: Insertion de ligne par macro |
Titre du sujet : Re: Insertion de ligne par macro par Eric le 19/02/2020 18:41:07 Bonjour à tous Bonjour Sylcoco
Quelque chose comme ceci : Sub copie_ligne() Dim lign_vide As Integer lign_vide = Range("B1").End(xlDown).Row + 1 ' recherche premiere ligne vide Range("2:2").Copy Range("a" & lign_vide) ' copie de la ligne Range("A" & lign_vide) = Range("A" & lign_vide - 1) + 1 ' incémentation End Sub A te lire Eric |
Forums