Insertion de ligne en copiant les formules

[mcp229]

Bonjour à tous,

J'ai encore besoin d'aide sur une macro.

Je cherche une macro a affecter à un bouton afin d'insérer une ligne dans mon doc excel.
Toute fois l'insertion doit copier les formules de la ligne précédente.



Merci de votre aide

 

[Staple1600]

Re : Insertion de ligne en copiant les formules

Bonjour à tous


mcp229
Tu as essayé d'insérer une ligne tout en laissant tourner l’enregistreur de macros ?
Chez moi cela donne ceci

Sub Macro1()
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FillDown
End Sub

 

[mcp229]

Re : Insertion de ligne en copiant les formules

Merci,

La macro fonctionne bien, mais en fait j'aimerais que lorsque je clic sur le bouton "ajouter ligne" il ajoute une ligne après la dernière ligne vide.
De plus je souhaiterais que la macro ne copie pas le texte des colonnes: B/S/AE/AL/AU/BA

si tu as des idées je suis preneur.
PS: je suis débutant en macro.

 

[Staple1600]

Re : Insertion de ligne en copiant les formules

Re

Ajouter des lignes à la fin de quoi ?
(Il y a plusieurs tableaux SALAIRES, FACTURES etc...)
Il n'y a plus de colonne B (à cause des cellules fusionnées) dans ces tableaux...
Il n'y a pas de formules non plus or tu parles de copier la formule de la ligne précédente...

Tu peux être plus précis, stp.

 

[mcp229]

Re : Insertion de ligne en copiant les formules

En fait il y a 3 partie Salaires / Factures / note de frais /
Pour chacune de ces parties il y a un bouton ajouter ligne qui doit ajouter des lignes dans chaque partie.
En fait il y a deux colonnes où j'ai mis des formules colonnes BR/EQ

est ce plus claire?

 

[Staple1600]

Re : Insertion de ligne en copiant les formules

Re

Les cellules fusionnés sont source de problème...
La preuve.
Essaie ce code (ici associer à un de tes boutons)

Sub Bouton6_Cliquer()
Dim dl&
dl = Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address).Row - 1
With Cells(dl, 1).Resize(, 60)
    .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .FillDown
End With
End Sub

 

[mcp229]

Re : Insertion de ligne en copiant les formules

Oui je comprend, peut etre faudrait il insérer une ligne, copier a ligne supérieure et effacer le contenu mise à part les colonnes BR/EQ???

 

[Staple1600]

Re : Insertion de ligne en copiant les formules

Re

mcp229
Tu as testé le code VBA de mon précédent message ?
Tu l'as compris ?

 

[mcp229]

Re : Insertion de ligne en copiant les formules

Oui mais les cellules fusionnées sont un soucis.... aurais tu une solution pour ces cellules?