Discussion :

[Xenemac]

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 :

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

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

[Wololol]

Bonjour,

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

Code :

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

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 :

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

Application.ScreenUpdating = False

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

Bonne journée

[halaster08]

Auriez-vous une solution à me proposer ?

Bonjour,

Code :

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

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

[Xenemac]

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.