Re le Forum
La macro légerement modifiée afin de faire le collage sur la même ou une
autre feuille.
Code PHP:
Sub CopyPasteSpecial()
Dim CelluleDest As Range
Dim PlageSource As Range
'Permet de sélectionner une plage avec la souris (Méthode InputBox)
Set PlageSource = Application.InputBox _
("Sélectionnez la ou les cellule(s) à copier !", "Plage source", Type:=8)
Set CelluleDest = Application.InputBox _
("Sélectionnez la cellule de destination !", "Cellule destination", Type:=8)
If CelluleDest.Count > 1 Then
MsgBox "Vous ne devez saisir qu'une cellule," _
+ vbCrLf + "de destination !" _
+ vbCrLf + vbCrLf + "La copie va être annulée."
Exit Sub
End If
'On va ouvre la boite de dialogue
'collage spécial pour faire la copie.
PlageSource.Copy
With CelluleDest
Sheets(.Parent.Name).Select
Range(.Address).Select
.Application.Dialogs(xlDialogPasteSpecial).Show
End With
Application.CutCopyMode = False
End Sub
Mytå