XL 2010 Inserer ligne par macro

[Sylcoco]

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

 

[sylvanu]

Bonsoir Sylcoco,
Pourquoi voulez vous copier la ligne 2:2 qui est vide ?
Un essai en VBA pourrait être :

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

 

[Sylcoco]

Bonsoir Sylcoco,
Pourquoi voulez vous copier la ligne 2:2 qui est vide ?
Un essai en VBA pourrait être :

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 bonjour,

Merci pour votre aide.

Sylvain

 

[sylvanu]

Bonjour,
Vous ne répondez jamais aux questions ?

 

[Sylcoco]

Bonjour,
Vous ne répondez jamais aux questions ?

Bonsoir,

Toutes mes excuses.
La ligne en question n'est pas vide certaines cellules comportent des listes déroulantes que je souhaite recopier à chaque fois que s'ajoute une ligne.

Sylvain

 

[Staple1600]

Bonsoir le fil, Sylcoco, sylvanu

Une autre syntaxe possible

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 😉)

 

[Sylcoco]

Bonsoir le fil, Sylcoco, sylvanu

Une autre syntaxe possible

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]

Re

Bonsoir JL,

Moi, c'est JM
M, comme Muller (l'agence des a... de Mme) 😉

 

[Sylcoco]

Re


Moi, c'est JM
M, comme Muller (l'agence des a... de Mme) 😉

Re


Moi, c'est JM
M, comme Muller (l'agence des a... de Mme) 😉

Désolé pour l'erreur de saisie

Sylvain

 

[Staple1600]

Re

Et quid de la suggestion de l'emploi des tableaux structurés ?
Tuto Tableaux

 

[Sylcoco]

Re

Et quid de la suggestion de l'emploi des tableaux structurés ?
Tuto Tableaux

JM,

Merci pour le conseil et le lien montrant la façon de faire que je ne connaissais pas.
A l'avenir j'essaierai donc de mieux présenter mes fichiers pour des demandes d'aide.

Bien à vous,

Sylvain

 

[Staple1600]

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é)