Copier/coller une plage de cellule, sélection par l'utilisat

Bonjour,

Je dois vous prévenir sur 2 points : je suis novice en VBA et également en forum. Alors s'il vous plait, soyez indulgent.

Mon problème : je souhaite copier une plage de cellule d'une feuille (VIREMENT), sélectionner par l'utilisateur de la macro et la coller sur une autre feuille (COMPTE) avec sélection de la cellule de destination par l'utilisateur. Je travaille avec Excel 2003 mais (un problème supplémentaire !) le classeur sera utilisé avec Excel 2013.

Voici ce que j'ai écrit :

Sub VIR()

'

Dim Plage As Range, position As Range

Dim R As String

Dim S As String

Worksheets("VIREMENT").Select

Set Plage = Application.InputBox("Sélectionne une plage !", Type:=8)

R = Plage.Adress

Sheets("COMPTE").Select

Set position = Application.InputBox("Sélectionne la cellule où copier les données !", "Sélection de cellules", Type:=8)

S = position.Adress

Worksheets("VIREMENT").Range(R).Copy

Worksheets("OMPTE").Range (S)

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Lorsque j'exécute la macro, elle bloque sur R = Plage.Adress R étant le nom que je veux donner à ma plage sélectionné. Je suppose que j'aurais le même problème avec S = position.Adress.

J'ai mis un collage spécial / valeur car j'ai une mise en forme conditionnelle qui n'est pas conservé avec un simple collage.

Quelqu'un pourrait-il me dire, s'il vous plait, ce que j'ai mal écrit ?

Je vous remercie par avance et excusez moi si je n'ai pas été assez clair.

Bonsoir,

Je conseillerais de s'écarter au max. de ce que peut produire l'enregistreur...

Normalement ceci devrait suffire :

Sub VIR()
    Dim Plage As Range, position As Range
    Set Plage = Application.InputBox("Sélectionne une plage !", Type:=8)
    Set position = Application.InputBox("Sélectionne la cellule où copier les données !", "Sélection de cellules", Type:=8)
    Plage.Copy
    position.PasteSpecial xlPasteValues
End Sub

dans la mesure où les sélections faites par l'utilisateur sont conformes...

Cordialement

Bonsoir,

Merci beaucoup, je viens de tester est ça fonctionne.

Génial

merci beaucoup c'est le code que je recherchais, par contre petite question, peut on avoir le même code mais sans que le fichier source soit ouvert ?