Bonjour,

Je suis débutant, j'ai trouvé un bout de script pour avoir le numéro de la dernière ligne, et j'aimerais coller en dessous de cette dernière ligne des cellules.

Le pb vient du fait que j'ai du mal avec la gestion des variables : je n'arrive pas à obtenir ma variable DernLigne incrémentée de 1...

Je ne comprends pas trop d'où vient l'erreur, sachant que en général ca marche de faire DernLigne= DernLigne +1 ?



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
29
30
Sub Macro7()
'
' Macro7 Macro
'
 
'
    Dim maPlage As Range
    Dim DernLigne As Long
    Dim Test As Long
 
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    Set maPlage = Range("A1:Z" & DernLigne)
 
    Sheets("Feuil2").Select
    Range("A1:B5").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("A" & DernLigne).Select
    ActiveSheet.Paste
 
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    Test = DernLigne + 1
    Sheets("Feuil2").Select
    Range("A6:B7").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("A" & DernLigne).Select
    ActiveSheet.Paste
 
End Sub

Merci d'avance pour votre aide !!