Titre du sujet : Re: copier coller dans un même classeur
par Mth le 14/04/2013 21:40:00
Bonsoir ocealimer, bonsoir à tous,
Un essai avec ce code, les commentaires sont en vert:
Option Explicit
Private Sub CommandButton1_Click()
Dim Derlig As Long
Dim Plage As Range
'Bloque le rafraichissement écran
Application.ScreenUpdating = False
'Définit la plage à copier:
With Sheets("DI")
Set Plage = .Range("B5:B11")
End With
'Définit la première ligne vide de l'onglet Rapport
'*Puis copie la plage dans l'onglet Rapport
With Sheets("Rapport")
Derlig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Plage.Copy
.Range("A" & Derlig).PasteSpecial Transpose:=True
End With
'Incrémente le n° intervention
With Sheets("DI")
.Range("B6") = .Range("B6") + 1
End With
'Vide le presse papier
Application.CutCopyMode = False
'Rétablit le rafraichissement écran
Application.ScreenUpdating = True
End Sub
En espérant que cela puisse t'aider,
Très bonne soirée,
mth
|
Didier FOURGEOT