Discussion :

[Ain gide]

Bonjour,

Je suis debutant en VBA et j'ai besoin de faire une macro permettant de copier une selection dont j'ai donne le nom: valoclosingMX vers deux autres feuilles dans des selections dont j ai donne le nom FvaloclosingMX et GvaloclosingMX.
Pour cela j ai defini mon copier coller comme ci dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CopyPasteValue(ByRef source As Range, ByRef Target As Range)
    source.Worksheet.Activate
    source.Copy
    Target.Worksheet.Activate
    Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
    Application.CutCopyMode = False
 
End Sub

Puis ensuite je bloque, je n arrive pas a definir plusieurs range de target :s Je n'arrive qu a copier ma selection dans une seule feuille via le sub ci dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub ValoclosingMX()
Call CopyPasteFormat(Range("valoClosingMX"), Range("FvaloclosingMx"))
Call CopyPasteValue(Range("valoClosingMX"), Range("FvaloclosingMx"))
 
End Sub

Si quelqu'un a une methode pour m'aider je le remercie d'avance,

[Godzestla]

Bonjour,

essaie avec la ligne suivante APRES tous les PASTE.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.CutCopyMode = False

car, comme le dit l'aide :

Application.CutCopyMode=False ou Application.CutCopyMode=True équivaut à l'appui sur la touche Echap (annulation du mode Copier ou Coller, disparition des pointillés).