VBA - Copier des lignes et les insérer 2 lignes en dessous

[Paddy33]

Bonjour à tous,
Voici mon problème, je suis en train de créer un tableau de frais Km et je souhaiterai créer une macro qui lorsque je clic sur un bouton de commande (insérer nouveau salarié), elle me copie 3 lignes modèles à la fin du tableau juste avant la ligne "total general".
Je souhaite ensuite que le total général de la colonne se mette à jour en fonction des ces nouvelles lignes insérées.
J'espère que je suis clair, mais j'en doute un peu lol...
Merci pour votre aide.
PS : Fichier excel joint
Paddy33

 

[Victor21]

Re : VBA - Copier des lignes et les insérer 2 lignes en dessous

Bonjour, Paddy 33.

Que dit l'enregistreur de macros ?

Cordialement,

A votre place je repenserais la présentation de ma feuille. Il ne me semble pas judicieux d'enregistrer des Km et des euros dans la même colonne. Pourquoi pas plutôt deux colonnes par mois, dont une exclusivement réservée aux euros ?

 

[Paddy33]

Re : VBA - Copier des lignes et les insérer 2 lignes en dessous

Bonjour Victor21 et merci pour ta réponse.
J'ai donc testé avec l'enregistreur de macro.Ca marche impec sauf pour deux choses.
La première est que la macro m'insère les lignes toujours à la ligne 12 et je voudrai qu'elle insère les lignes copiées juste deux lignes au dessus de la ligne "TOTAL GENERAL". Mon deuxième problème est qu'elle fasse le TOTAL GENERAL de chaque colonne en fonction des TOTAL à PAYER de chaque salarié, sachant que la formule bougera a chaque fois que j'aurai inséré un nouveau salarié...
Voir le fichier joint avec la macro.
Merci pour votre aide
Paddy

 

[Victor21]

Re : VBA - Copier des lignes et les insérer 2 lignes en dessous

Re, Paddy 33.

Un code de ce type :

Sub Ajout()
Dim Cellule As Range

Sheets("Tableau KM").Range("A8:t11").Copy
Set Cellule = Range("a65535").End(xlUp)(2)

Cellule.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
ActiveCell.Offset(0, 1).ClearContents
ActiveCell.Offset(0, 2).ClearContents
ActiveCell.Offset(0, 4).ClearContents

End Sub

Et une formule de ce type pour les totaux (en haut de page pour simplifier):

=SOMMEPROD((E8:E988)*(MOD((LIGNE(E8:E988)-11);4)=0))