Discussion :

[marcoole]

Bonjour à tous,

Je cherche à copier/coller 3 plages de données contenues dans une feuille de mon classeur ("Feuill3") vers une autre feuille de mon classeur("OT"). Lorsque j'exécute la macro ci-dessous, je colle les plages sur la feuille OT non pas les unes à la suite des autres (ce que je voudrais) mais les unes sur les autres. Je ne vois pas où est mon erreur.

Merci d'avance de votre aide

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
Sub Macro2()
 
Dim dest1, dest2, dest3 As Range
Dim i As Integer
 
With Sheets("OT")
    If .Range("A2").Value = "" Then
        Set dest1 = .Range("A2")
    Else
        Set dest1 = .Range("A65536").End(xlUp).Offset(1, 0)
 
    End If
Set dest2 = Range("A65536").End(xlUp).Offset(1, 0)
Set dest3 = Range("A65536").End(xlUp).Offset(1, 0)
 
End With
Sheets("Feuil3").Range("I82:AN92").Copy Destination:=dest1
Sheets("Feuil3").Range("AO82:BT92").Copy Destination:=dest2
Sheets("Feuil3").Range("BU82:CZ92").Copy Destination:=dest3

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
Dim Dest As Range
 
Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
Sheets("Feuil3").Range("I82:AN92").Copy Destination:=Dest
Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
Sheets("Feuil3").Range("AO82:BT92").Copy Destination:=Dest
Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
Sheets("Feuil3").Range("BU82:CZ92").Copy Destination:=Dest
Set Dest = Nothing
End Sub

[marcoole]

merci