Discussion :

[narr255]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Godzestla]

Bonjour,

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

tu comprends ton problème ?

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

[narr255]

désolé mais ca marche encore pas

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

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 :

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
 
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é.

[Didier Gonard]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au profit de choses du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

comme utilisé par Theze

cordialement,

Didier

[Godzestla]

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.