Copier/Coller format valeur, avec la commande destination

Bonjour à toutes, et tous,

Je suis parti de rien, pour développer un programme de gestion de la planification du personnel de mon entreprise.
Ce programme gère également les heures annuelles, et les heures de vacances.

Les collaborateurs ont accès aux feuilles de planifications (janvier à décembre).
J'ai créé un accès spécifique administrateur, qui me donne accès à l'entier de la gestion RH.

Passablement de feuilles sont masquées.

A l'ouverture du fichier, je souhaite effecteur un copier/coller valeur, sur une feuille masquée.

Pour ce faire, j'utilise la ligne de commande suivante :

Code:

---

Worksheets("RH RECAPITULATIF").Range("DM3:DM103").Copy Destination:=Worksheets("RH RECAPITULATIF").Range("DU3")

---

Le copier/coller fonctionne parfaitement, mais ça me copie la formule qui se trouve dans la colonne "DM", et je souhaite coller uniquement la valeur.

J'ai une solution palliative, en ouvrant la feuille, en faisant le copier/coller pastespecial, mais l'objectif c'est justement de maximiser mon code pour que le fichier soit le plus fluide possible.

Auriez-vous une solution à me proposer ?

J'ai fait passablement de recherche, et si je sujet à déjà été traité et que j'ai raté le sujet, je vous prie d'avance de m'en excuser.

Au plaisir de lire vos solutions,

Maxence

Bonjour,

Je ne comprend pas trop ton problème avec le PasteSpecial ?

Code:

---

1 2 3

Worksheets("RH RECAPITULATIF").Range("DM3 : DM103").Copy Worksheets("RH RECAPITULATIF").Range("DU3").PasteSpecial Paste:=xlPasteValues

---

Si c'est l'animation de changement de feuille qui te gène (même si là ça a l'air d'être sur la même feuille) tu peux ajouter :

Code:

---

Application.ScreenUpdating = False

---

Avant tes copy/paste et le remettre à True à la fin.

Bonne journée :)

Citation:

---

Envoyé par Xenemac

Auriez-vous une solution à me proposer ?

---

Bonjour,

Code:

---

1 2	Worksheets("RH RECAPITULATIF").Range("DU3:DU103").value= Worksheets("RH RECAPITULATIF").Range("DM3:DM103").value

---

Wololol : Le problème c'est que j'étais resté bloqué sur le ".Copy Destination" et que j'ai pas eu la présence d'esprit de l'écrire sur deux lignes, mais j'apprends beaucoup avec ce forum. Je te remercie pour ta réponse aussi rapide.

halaster08 : Je te remercie, c'est exactement ce que je souhaitais faire, ça semble si évident, et pourtant.