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

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 ?

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

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