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

Signaler
Messages postés
57
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
12 mars 2021
-
Messages postés
16033
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 juin 2021
-
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

3 réponses

Messages postés
16033
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 juin 2021
867
bonjour,
la macro serait-elle dans un des deux fichiers?
as-tu essayé avec l'enregistreur de macros?
Messages postés
57
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
12 mars 2021

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
Messages postés
57
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
12 mars 2021

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
Messages postés
16033
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 juin 2021
867
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
Messages postés
57
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
12 mars 2021

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
Messages postés
16033
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 juin 2021
867
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
Messages postés
57
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
12 mars 2021
>
Messages postés
16033
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 juin 2021

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...
Messages postés
16033
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 juin 2021
867 >
Messages postés
57
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
12 mars 2021

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?
Messages postés
57
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
12 mars 2021
>
Messages postés
16033
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 juin 2021

Effectivement c'est résolu donc inutile de chercher plus loin c'est le résultat qui compte.
Merci
Messages postés
16033
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 juin 2021
867 >
Messages postés
57
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
12 mars 2021

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