copie de cellule avec macro ne fonctionne pas

Bonjour a tous
Voila !!
J'ai un classeur de deux feuilles. La premère me sert a entrer des valeurs qui doivent être retournées dans la deuxième feuille grâce à des macro pour chaque semaine.
Mon problème est à la cellule I8 : dans ma macro je faisais un copier coller sur ma deuxieme feuille en "mensuelJ7" et cela pour chaque semaine. Cela ne fonctionnait pas car la macro recopiait la formule et non le résultat.
J'ai donc essayé la formule qui se trouve sur la feuille mensuel en J7 mais elle me copie ma cellule I8 dans toutes mes recap hebdomadaires ce qui fausse tout mes calculs.

Par ailleurs, est-il possible de verrouiller la récap hebdomadaire une fois que celle-ci est enregistrée sur la feuille mensuelle afin d'éviter toute modification post enregistrement ?


Merci a tous !!!!

merci, bonne soirée à tous

si tu veux copier la valeur d'une formule il faut que tu fasses copier/collage special valeur si tu enregistres une macro.

Et pour protéger une feuille tu peux utiliser la fonction "protéger la feuille" que tu trouveras dans l'onglet révision

Bonjour,

Tu peux déjà simplifier le code.
par exemple pour que les cellules C4,E4,G4 de la feuille "mensuel" prennent les valeurs respectives de E5,F5 et H5 de la feuille "hebdo", tu peux utiliser le code suivant :

Code:

---

1 2 3

Sheets("mensuel").Range("C4") = Sheets("hebdo").Range("E5").Value Sheets("mensuel").Range("E4") = Sheets("hebdo").Range("F5").Value Sheets("mensuel").Range("G4") = Sheets("hebdo").Range("H5").Value

---

au lieu de

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Range("E5").Select Selection.Copy Sheets("mensuel").Select Range("C4").Select ActiveSheet.Paste Sheets("hebdo").Select Range("F5").Select Application.CutCopyMode = False Selection.Copy Sheets("mensuel").Select Range("E4").Select ActiveSheet.Paste Sheets("hebdo").Select Range("H5").Select Application.CutCopyMode = False Selection.Copy Sheets("mensuel").Select Range("G4").Select

---

je sais que ça ne répond par directement à la question mais ça t'aidera à y voir plus clair.
Par ailleurs je te suggère de supprimer tous les modules vides

Bonjour,

Cela fonctionne comme cela :

Code:

---

Worksheets("mensuel").Range("J7").Value = Worksheets("hebdo").Range("I8").Value

---

D'ailleurs, fais comme ça pour l'ensemble : tu n'as pas besoin de faire du copier/coller.

Enfin, pour la protection : Outils/Protection. A savoir, si c'est quelque chose de vraiment important, ce n'est vraiment pas bon d'utiliser les protections Excel. En effet, les protections se font sauter assez rapidement par macros.

A+

EDIT : cela te copiait ta formule entière parce que tu faisais un Paste classique. Il faut faire un PasteSpecial(xlPasteValues) pour ne garder que les valeurs. Mais bon, comme dit précédemment, ça ne sert à rien de passer par des Copy/Paste.