Une méthode de copiage avec choix de la copie

[Mytå]

Salut le forum

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

Code: Tout sélectionner

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å

[Bertrand2]

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

[piratman]

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 ?