Discussion :

[JIPE59552]

Bonjour
Je cherche un code pour copier à partir de A2 à E une plage de cellules qui varie dans la feuil21 et pour coller en feuil23 en A40
Pour info la feuil21 est nommé IMPORT et la feuil23 envoi mail
Merci

[Theze]

Bonjour,

Sans Copier/Coller :

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 Test()
 
    Dim Plage As Range
 
    'plage en colonne A de la Feuille "Feuil1"
    With Worksheets("IMPORT")
 
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 5).End(xlUp))
 
    End With
 
    With Worksheets("envoi mail")
 
        .Range(.Cells(40, 1), .Cells(39 + Plage.Rows.Count, Plage.Columns.Count)).Value = Plage.Value
 
    End With
 
End Sub

[JIPE59552]

Bonjour
mais un petit souci il ne prend pas en compte le format ex font la couleur et bordure

[Theze]

Alors, dans ce case c'est :

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 Test()
 
    Dim Plage As Range
 
    'plage en colonne A de la Feuille "Feuil1"
    With Worksheets("IMPORT")
 
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 5).End(xlUp))
 
    End With
 
    Plage.Copy Worksheets("envoi mail").Range("A40")
 
End Sub

[JIPE59552]

Bonjour
Merci beaucoup c'est top
par contre j'avais ce code le problème le lendemain ca ne fonctionne plus
une bonne journée

Code :

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

1
2
3
4
5
6
7
 
Sub test()
With Sheets(21)
DerL = Range("e65536").End(xlUp).Row
Range("a2:e" & DerL).Copy Sheets(23).Range("a40")
End With
End Sub

[SfJ5Rpw8]

Bonjour,

revoit l'utilisation de With... comme tu l'utilise il ne sert à rien.... essai