Insérer contenu d'une cellule dans un commentaire d'un autre classeur (ouvert)

Résolu/Fermé

Adirien Messages postés 84 Date d'inscription samedi 11 mai 2013 Statut Membre Dernière intervention 27 janvier 2024 - 10 mars 2021 à 23:01
yg_be Messages postés 23480 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 mars 2025 - 12 mars 2021 à 18:57

Bonjour,

Je ne sais pas si quelqu'un pourra m'aider :
J'ai un fichier avec des données qui évolue tous les jours.
Je veux pouvoir créer une macro qui va copier les valeurs de certaines cellules d'un classeur (TDB.xlsx) dans un nouveau commentaire d'une cellule qui est dans un autre classeur (MTTH.xlsx). Je précise au moment de la copie les 2 classeurs sont ouverts.

Je veux pouvoir copier le contenu de la cellule mais aussi une trame de texte en préfixe de chaque valeur "Matin:", "Après-midi :" "Nuit :":

Merci de votre aide

Configuration: Windows / Chrome 89.0.4389.82

A voir également:

Insérer contenu d'une cellule dans un commentaire d'un autre classeur (ouvert)
Insérer une vidéo dans powerpoint - Guide
Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
Aller à la ligne dans une cellule excel - Guide
Insérer un filigrane word - Guide
Insérer signature word - Guide

3 réponses

Réponse 1 / 3

yg_be Messages postés 23480 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 mars 2025 Ambassadeur 1 568
10 mars 2021 à 23:17

bonjour,
la macro serait-elle dans un des deux fichiers?
as-tu essayé avec l'enregistreur de macros?

Adirien Messages postés 84 Date d'inscription samedi 11 mai 2013 Statut Membre Dernière intervention 27 janvier 2024 2
11 mars 2021 à 07:57

La macro se trouve sur le classeur qui doit recevoir le commentaire.
Avec l'enregistreur de macro je vais pouvoir insérer un commentaire mais je ne pourrais pas y faire apparaître une valeur de cellule pour ça je suis obligé de passer par du code

Réponse 2 / 3

Adirien Messages postés 84 Date d'inscription samedi 11 mai 2013 Statut Membre Dernière intervention 27 janvier 2024 2
Modifié le 11 mars 2021 à 10:26

J'ai tenté quelque chose comme cela déjà ne serait-ce que pour renvoyer la valeur de Matin mais ça ne marche pas :

 With MTTH.Sheets("Feuil1").Range("B1")
        If .Comment Is Nothing Then .AddComment
        .Comment.Text Text:=TDB.Sheets("Feuil1").Range("B2").Value
    End With

Erreur d'execution '1004' :
Erreur définie par l'application ou l'objet

yg_be Messages postés 23480 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 mars 2025 1 568
11 mars 2021 à 11:58

est-ce le code complet?
à quelle ligne l'erreur?
merci d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Réponse 3 / 3

Adirien Messages postés 84 Date d'inscription samedi 11 mai 2013 Statut Membre Dernière intervention 27 janvier 2024 2
11 mars 2021 à 12:32

C'est cette ligne où est l'erreur

Le code complet est le suivant :

Set MTTH = ThisWorkbook
Set TDB = Workbooks("TDB.xlsm")
 With MTTH.Sheets("Feuil1").Range("B1")
      If .Comment Is Nothing Then .AddComment
     .Comment.Text Text:=TDB.Sheets("Feuil1").Range("B2").Value
    End With

La ligne d'erreur est sur cette ligne

 .Comment.Text Text:=TDB.Sheets("Feuil1").Range("B2").Value

yg_be Messages postés 23480 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 mars 2025 1 568
11 mars 2021 à 12:40

afin de découvrir ce qui provoque l'erreur, décompose l'instruction donnant l'erreur.
exemple:

dim cc as string
 cc=TDB.Sheets("Feuil1").Range("B2").Value
.Comment.Text Text:=cc

Adirien Messages postés 84 Date d'inscription samedi 11 mai 2013 Statut Membre Dernière intervention 27 janvier 2024 2 > yg_be Messages postés 23480 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 mars 2025
11 mars 2021 à 23:10

En décomposant cela fonctionne donc ça doit être la partie

TDB.Sheets("Feuil1").Range("B2").Value

après le "=" qui pose problème mais je ne vois pas d'erreur de syntaxe car j'ai fais un copier coller de cette même valeur dans la variable cc...

yg_be Messages postés 23480 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 mars 2025 1 568 > Adirien Messages postés 84 Date d'inscription samedi 11 mai 2013 Statut Membre Dernière intervention 27 janvier 2024
12 mars 2021 à 12:05

tu avais une erreur d'exécution, quelle erreur de syntaxe mentionnes-tu?
si cela fonctionne en décomposant, le problème n'est-il pas résolu?

Effectivement c'est résolu donc inutile de chercher plus loin c'est le résultat qui compte.
Merci

si tu partages ton fichier, je peux chercher plus loin.

Discussions similaires

Comment identifier (ou situer) qui écrit des commentaires sur mon blog ?

Excel : colorer une cellule sous condition d'une autre ?

Supprimer un fichier ouvert dans systeme.