Une méthode de copiage avec choix de la copie

Salut le forum

Je vous laisse découvrir, une de mes anciennes macros.

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å

Salut Myta,

J'ai copié ton code et j'ai essayé de l'utiliser sur une feuille excel, sans grand succès.

Peux-tu me donner qq explications pour l'utilisation de cette macro.

Merci

Bertrand

Bonjour Myta,

je viens d'essayer cette macro, ça fonctionne,

mais je vois pas l'intérêt d'une telle fonction,

pourrais-tu nous dire quand peut elle être utile ?