Opération sur une variable Long

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:

---

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

Bonjour,

si tu calcules ta dernière ligne et que tu mets sont numéro dans ta variable DernLigne, tu n'as pas besoin de recalculer sa valeur à chaque fois
il te suffit de faire le DernLigne = DernLigne + 1 à la fin de chaque tour de boucle (quand c'est une boucle), ou des procédés similaires


voici ton code un peu optimisé .. il est inutile de sélectionner une plage pour ensuite utiliser "Selection" et faire ton action : fait directement l'action sur la plage !
Enfin, c'est du code pondu par l'enregistreur de macro, mais il faut que tu apprennes à l'épurer et l'optimiser

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Sub Macro7()   Dim DernLigne As Long Dim Test As Long   With Worksheets("Feuil1") DernLigne = .Range("A" & Rows.Count).End(xlUp).Row Worksheets("Feuil2").Range("A1:B5").Copy .Range("A" & DernLigne) Worksheets("Feuil2").Range("A6:B7").Copy .Range("A" & DernLigne + 1) End With   End Sub

---

Merci pour ta réponse !

J'avais essayé de réaliser le + 1 directement dans la parenthèse de la cellule mais ça ne marchait pas.

Cela pourrait venir de 'Option Explicit' que je n'avais pas par contre ?

Et c'est vrai qu'il faut que je l'allège et que j'enlève les rajouts de l'enregistreur !

Bonne journée

Bonjour,

Option Explicit va te forcer à déclarer tes variables.

si tu oublies d'en déclarer une, tu auras une erreur en lançant ta procédure

essaye d'intégrer ma proposition à ton projet, et si tu as des soucis reviens avec ton code modifié, les lignes qui posent problèmes, et une explication du comportement voulu vis à vis du comportement qu'adopte ton code