Insertion de ligne par macro
#1
Régulier XLPages

Inscription: 12/02/2010
De Rhône-Alpes

Messages: 42

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010,2016,2019
Posté le : 18-02 21h11

Bonjour,

Je souhaiterai par une macro (associée à un bouton) copier et insérer une ligne de donnée (toujours la même, 2:2) directement sous la dernière ligne contenant des données et que le n° repère s'incrémente.

D'avance merci pour l'aide à la création de cette macro.

Sylvain

Pièce jointe:
xlsx Insertion_ligne.xlsx   [ Taille: 10.94 Ko - Téléchargements: 24 ]
Hors Ligne
Rapport   Haut 

Re: Insertion de ligne par macro
#2
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 144

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 19-02 18h41

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

Hors Ligne
Rapport   Haut 

Re: Insertion de ligne par macro
#3
Régulier XLPages

Inscription: 12/02/2010
De Rhône-Alpes

Messages: 42

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010,2016,2019
Posté le : 19-02 19h23

Bonsoir,

 

Merci pour cette solution.

 

Sylvain

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes