Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

pbm copie de cellule dans une macro

  • Initiateur de la discussion Initiateur de la discussion dyjoca88
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

dyjoca88

Guest
Bonsoir à 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, bonne soirée à tous
 

Pièces jointes

Re : pbm copie de cellule dans une macro

Bonjour Dyjoca88 🙂,
Je ne sais pas si ça répondra à tes questions mais
Code:
    Sheets("hebdo").Select
    Range("F5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("mensuel").Select
    Range("E4").Select
    ActiveSheet.Paste
peux s'écrire bien plus simplement (et avec un calcul plus rapide)
Code:
Sheets("hebdo").Range("F5").Copy Sheets("mensuel").Range("E4")
Maintenant, la copie te récupère toute la cellule. Si tu veux récupérer que la valeur, vu que ta mise en forme est déjà faite tu peux tout simplement utiliser
Code:
Sheets("hebdo").Range("F5") = Sheets("mensuel").Range("E4")
et pour vérifier si la cellule est déjà remplie
Code:
If Sheets("hebdo").Range("F5") <> "" Then
Sheets("hebdo").Range("F5") = Sheets("mensuel").Range("E4")
End If
Bon courage 😎
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…