M
Mytå
Guest
Salut le Forum
Juste pour faire avancer mon compteur
Mytå
Juste pour faire avancer mon compteur
Code:
Sub CopyPasteSpecial()
Dim CelluleDest As Range
Dim PlageSource As Range
On Error GoTo Erreur
'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
.Select
.Application.Dialogs(xlDialogPasteSpecial).Show
End With
Application.CutCopyMode = False
Exit Sub
Erreur:
If Err.Number = 424 Then Exit Sub
End Sub
Mytå
Dernière modification par un modérateur: