Macro pour un PasteSpecial xlFormulas

[dionys0s]

Bonjour le forum

j'aimerais comprendre pourquoi ce code, fait en grande partie avec l'enregistreur de macro, ne fonctionne pas...
Mon but est de créer une petite macro complémentaire qui copie les cellules sélectionnées, et ne colle que les formules dans une plage désirée, plage renseignée dans une InputBox typé 8 (RefEdit).

Sub Coller_Les_Formules()

    Selection.Copy

    On Error Resume Next
        Set PC = Application.InputBox(Prompt:="Sélectionner la plage de destination.", Title:="Sélection d'une plage", Type:=8)
    On Error GoTo 0
    If PC Is Nothing Then Exit Sub

    Range(PC.Address).Select
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Si quelqu'un a une idée... D'avance merci pour votre aide ^^

 

[pierrejean]

Re : Macro pour un PasteSpecial xlFormulas

Bonjour dionys0s

Je ne sais pas pourquoi ta macro ne fonctionne pas mais je crois que celle-ci ne va pas trop mal

Sub Coller_Les_Formules()
    x = Selection.Address
    On Error Resume Next
        Set PC = Application.InputBox(Prompt:="Sélectionner la plage de destination.", Title:="Sélection d'une plage", Type:=8)
    On Error GoTo 0
    If PC Is Nothing Then Exit Sub
    Range(x).Copy
    Range(PC.Address).PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

 

[dionys0s]

Re : Macro pour un PasteSpecial xlFormulas

Bonjour Pierre Jean

[Musique de Zorro]Eh, eh, Pierre-Jean est arrivé, sans s´presser, Le grand Pierre-Jean, le beau Pierre-Jean, avec son ch´val et son grand chapeau[/Musique de Zorro]

merci beaucoup pour ton aide Pierre-Jean !