Salut,

je travail sur un projet sur excel et je désire utiliser une macros pour le faire. mon problème consiste a ajouter une ligne en fin de tableau excel avec une vba pour construire ma base de donner, par fin de tableau je veux dire insérer une ligne en dessous de la dernière utilisé selon ces conditions respectivement:
stat.xlsm
1- copier les lignes 6,7,8,9 avec les formules et la mise en forme
2- insérer une ligne en fin de tableau a chaque fois que je clique sur le bouton pour coller les lignes précédentes
3- coller les lignes 6,7,8,9 sous la dernière ligne occuper
4- modifier la date via la fonction aujourd'hui dans la colonne C
5- supprimer les 8 données dans les colonnes E et F (4 dans E et 4 dans F pour chaque date) pour saisie manuelle ultérieurement
6- insérer une commande pour ôter+protéger la feuille lorsque je clique sur le bouton tout en me permettant de saisir les données dans les colonnes E et F manuellement

ci-joint le fichier dont la macros ne fonctionne pas malheureusementstat.xlsm

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ActiveWindow.SmallScroll Down:=12
    Range("B22:M25").Select
    Selection.Copy
    Range("B26").Select
    ActiveSheet.Paste
    Range("C26").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("C26").Select
    Selection.AutoFill Destination:=Range("C26:C29"), Type:=xlFillDefault
    Range("C26:C29").Select
    Range("C22:C25").Select
    Selection.Copy
    Range("C26:C29").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("E26:F29").Select
    Selection.ClearContents
    Range("E26").Select
End Sub