XL 2010 Inserer ligne par macro

Sylcoco

XLDnaute Nouveau
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èces jointes

  • Insertion_ligne.xlsx
    10.9 KB · Affichages: 10
Solution
Bonsoir Sylcoco,
Pourquoi voulez vous copier la ligne 2:2 qui est vide ?
Un essai en VBA pourrait être :
VB:
Sub InsertLine()
    derlig = 1 + [A65000].End(3).Row
    [Ligne2].Select
    Selection.Copy
    Rows(derlig & ":" & derlig).Select
    ActiveSheet.Paste
    Range("A" & derlig) = Range("A" & derlig - 1) + 1
    [A1].Select
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Sylcoco,
Pourquoi voulez vous copier la ligne 2:2 qui est vide ?
Un essai en VBA pourrait être :
VB:
Sub InsertLine()
    derlig = 1 + [A65000].End(3).Row
    [Ligne2].Select
    Selection.Copy
    Rows(derlig & ":" & derlig).Select
    ActiveSheet.Paste
    Range("A" & derlig) = Range("A" & derlig - 1) + 1
    [A1].Select
End Sub
 

Pièces jointes

  • Insertion_ligne (1).xlsm
    20.8 KB · Affichages: 2

Sylcoco

XLDnaute Nouveau
Bonsoir le fil, Sylcoco, sylvanu

Une autre syntaxe possible
VB:
Sub RecopierLigne2()
Rows(2).Copy Cells(Rows.Count, 1).End(3)(2)
End Sub

PS: Avec un tableau structuré, les choses se feraient plus aisément.
(D'où l'avantage de les utiliser ;))
Bonsoir JL,

Merci pour cette autre solution.
Le fichier exemple joint au début n'est pas le fichier de travail final.
J'ai adapté ensuite dans le bon.

Merci,

Sylvain
 

Staple1600

XLDnaute Barbatruc
Re

A l'avenir j'essaierai donc de mieux présenter mes fichiers pour des demandes d'aide.
Tel n'était pas le but de ma suggestion
Je te disais juste qu'en utilisant un tableau structuré, quand tu inséres une ligne, Excel reprend automatiquement ce qu'il y dans la ligne au dessus
(formules, format, liste déroulante)
Et le tout sans macros. ;)

C'était juste une invitation à tester cette fonctionnalité d'Excel.
(d'où le lien que j'ai posté)
 

Discussions similaires

Réponses
5
Affichages
432
Réponses
3
Affichages
274

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata