Discussion :

[xica19]

Bonjour,

Dans mon application à un moment je dois copier une plage de cellules où j'ai des formes avec des macros affectées, dans une autre partie de la même feuille. Je veux tout coller, les valeurs, formules et les formes. J'essaie ceci :

Code :

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

1
2
3
4
5
Range("D4:F10").Select
Selection.Copy
Range("D13").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Des fois ça me colle les formes d'autre fois non !

J'ai déjà essayé de mettre

Code :

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

Application.CopyObjectsWithCells = True

J'ai aussi essayé

Code :

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

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Mais j'obtiens toujours le même résultat ! Quelqu'un pourrait m'aider ?

Merci,

Xica

[Menhir]

Quand je dois faire une copie hétérogène, je préfère carrément copier l'onglet lui-même puis supprimer de la copie les éléments que je ne souhaite pas.

Si cette méthode n'est pas possible dans ton cas, la seule méthode fiable est de faire une boucle For Each sur l'ensemble des objets de la feuille. Pour chacun, vérifier s'il est ou non dans la zone traitée et vérifier qu'il n'est pas présent dans la copie. Si ces deux conditions sont réunies, faire la copie.