Détéction de la dernière ligne non vide dans un tableau excel avec VBA

Bonjour,
j'ai besoin d'un bouton qui copie une plage de D9 à K9 de la feuille "Template correspondance" vers la dernière ligne vide d'une feuille "Liste".J'ai écrit ce code mais il n'a pas marché.

Code:

---

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

Sub macro3() Dim i As Integer Dim ligne As Integer   Sheets("Template correspondance").Select Range("A9:K9").Copy   Sheets("Liste").Select ligne = Sheets("liste").Range("A1048576").End(xlUp).Row i = ligne + 1 Range("A" & i).Paste       End Sub

---

c'est urgent.Aidez moi svp.

Bonjour,

les variables integer se limite à une valeur <= 255.

tu comprends ton problème ?:aie:

utilise un long et normalement "A65535" suffit pour le test du end(xlup). (sauf XL > 2003 et graaaaaaaaaaaaand tableau).

désolé mais ca marche encore pas

bonjour

Code:

---

1 2 3 4 5 6 7 8

Sub macro3() Dim ligne As long Sheets("Template correspondance").Range("A9:K9").Copy ligne = Sheets("liste").Range("A65536").End(xlUp).Row+1 sheets("Liste").Range("A" & ligne).Paste End Sub

---

au plaisir

Bonsoir,

Un type Integer ne peut allez au delà de 32766 (petite erreur de Godzestla qui a confondu avec un type Byte, qui lui ne peut aller au delà de 254) donc, si tu possède plus de lignes occupées il te faut utiliser une variable de type Long :

Code:

---

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

Sub macro3()   Dim ligne As Long   Sheets("Template correspondance").Select Range("A9:K9").Copy   Sheets("Liste").Select   With Sheets("liste") ligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1 End With   Range("A" & ligne).Paste   End Sub

---

Hervé.

Bonjour,

PS : abandonner cette notation qui est obsolète et dangereuse (portabilité) depuis 2007 :

Code:

---

ligne = Sheets("liste").Range("A1048576").End(xlUp).Row

---

au profit de choses du genre :

Code:

---

ligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1

---

comme utilisé par Theze ;)

cordialement,

Didier

Citation:

---

Un type Integer ne peut allez au delà de 32766 (petite erreur de Godzestla qui a confondu avec un type Byte, qui lui ne peut aller au delà de 254)

---

Oops. Désolé. Journée chahutée.:aie: