Je n'arrive pas à stocker le commentaire d'une cellule dans une variable,
pour le coller dans une autre cellule situé dans une autre feuille.
A la base, j'exécute un code situé dans la feuille de destination dans l'
évènement suivant :
Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
'-------------- Sub jj() x = Sheets("feuil2").Range("C8").Comment.Text With Sheets("feuil3").Range("c1") .ClearComments .AddComment .Comment.Text x End With End Sub '----------- OU sans variable '-------------- Sheets("Feuil2").Range("C8").Copy Sheets("Feuil3").Range("b1").PasteSpecial Paste:=xlPasteComments '---------------
-- Salutations JJ
"Michel MTO" a écrit dans le message de news: hbmblu$lo0$
Bonjour le groupe,
Je n'arrive pas à stocker le commentaire d'une cellule dans une variable, pour le coller dans une autre cellule situé dans une autre feuille. A la base, j'exécute un code situé dans la feuille de destination dans l' évènement suivant : Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
Merci
Michel Mto
Bonjour,
Si vous avez des pistes,
'--------------
Sub jj()
x = Sheets("feuil2").Range("C8").Comment.Text
With Sheets("feuil3").Range("c1")
.ClearComments
.AddComment
.Comment.Text x
End With
End Sub
'-----------
OU sans variable
'--------------
Sheets("Feuil2").Range("C8").Copy
Sheets("Feuil3").Range("b1").PasteSpecial Paste:=xlPasteComments
'---------------
--
Salutations
JJ
"Michel MTO" <comptabilite@olcoven.fr> a écrit dans le message de news:
hbmblu$lo0$1@aioe.org...
Bonjour le groupe,
Je n'arrive pas à stocker le commentaire d'une cellule dans une variable,
pour le coller dans une autre cellule situé dans une autre feuille.
A la base, j'exécute un code situé dans la feuille de destination dans l'
évènement suivant :
Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
'-------------- Sub jj() x = Sheets("feuil2").Range("C8").Comment.Text With Sheets("feuil3").Range("c1") .ClearComments .AddComment .Comment.Text x End With End Sub '----------- OU sans variable '-------------- Sheets("Feuil2").Range("C8").Copy Sheets("Feuil3").Range("b1").PasteSpecial Paste:=xlPasteComments '---------------
-- Salutations JJ
"Michel MTO" a écrit dans le message de news: hbmblu$lo0$
Bonjour le groupe,
Je n'arrive pas à stocker le commentaire d'une cellule dans une variable, pour le coller dans une autre cellule situé dans une autre feuille. A la base, j'exécute un code situé dans la feuille de destination dans l' évènement suivant : Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
Je n'arrive pas à stocker le commentaire d'une cellule dans une variabl e, pour le coller dans une autre cellule situé dans une autre feuille. A la base, j'exécute un code situé dans la feuille de destination dans l' évènement suivant : Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
On 21 oct, 09:05, "Michel MTO" <comptabil...@olcoven.fr> wrote:
Bonjour le groupe,
Je n'arrive pas à stocker le commentaire d'une cellule dans une variabl e,
pour le coller dans une autre cellule situé dans une autre feuille.
A la base, j'exécute un code situé dans la feuille de destination dans l'
évènement suivant :
Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
Je n'arrive pas à stocker le commentaire d'une cellule dans une variabl e, pour le coller dans une autre cellule situé dans une autre feuille. A la base, j'exécute un code situé dans la feuille de destination dans l' évènement suivant : Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
Merci
Michel Mto
Michel MTO
Merci Caetera,
J'ai un peu modifié en rajoutant ceci :
On Error Resume Next avant x = sheets("Feuil1").Range("A" & cell.Row).Comment.Text
parce que dans mon code la ligne change en fonction d'une boucle For Next, et lorsque la cellule ne contenait pas de commentaire, une erreur était renvoyée.
mais avec On Error Resume Next, le code s'exécute normalement, don c plus d'erreur.
En tout cas merci
Michel Mto
Merci Caetera,
J'ai un peu modifié en rajoutant ceci :
On Error Resume Next
avant
x = sheets("Feuil1").Range("A" & cell.Row).Comment.Text
parce que dans mon code la ligne change en fonction d'une boucle For Next,
et lorsque la cellule ne contenait pas de commentaire, une erreur était
renvoyée.
mais avec On Error Resume Next, le code s'exécute normalement, don c plus
d'erreur.
On Error Resume Next avant x = sheets("Feuil1").Range("A" & cell.Row).Comment.Text
parce que dans mon code la ligne change en fonction d'une boucle For Next, et lorsque la cellule ne contenait pas de commentaire, une erreur était renvoyée.
mais avec On Error Resume Next, le code s'exécute normalement, don c plus d'erreur.
En tout cas merci
Michel Mto
Michel MTO
Merci Jacky pour ta réponse,
mais je crois, si je ne me trompes pas, que ton code permet d'effacer le commentaire de la cellule de destination et d'ajouter le commentaire de la cellule source. Ce n'est pas ce que je voulais faire. Mon objectif s'était de mettre le "texte du commentaire" de la cellule source dans "la valeur" de la cellule de destination.
Est ce que je suis clair ?
En tout cas merci
Michel Mto
Merci Jacky pour ta réponse,
mais je crois, si je ne me trompes pas, que ton code permet d'effacer le
commentaire de la cellule de destination et d'ajouter le commentaire de la
cellule source. Ce n'est pas ce que je voulais faire.
Mon objectif s'était de mettre le "texte du commentaire" de la cellule
source dans "la valeur" de la cellule de destination.
mais je crois, si je ne me trompes pas, que ton code permet d'effacer le commentaire de la cellule de destination et d'ajouter le commentaire de la cellule source. Ce n'est pas ce que je voulais faire. Mon objectif s'était de mettre le "texte du commentaire" de la cellule source dans "la valeur" de la cellule de destination.
"Michel MTO" a écrit dans le message de news: hbmlkm$ig$
Merci Jacky pour ta réponse,
mais je crois, si je ne me trompes pas, que ton code permet d'effacer le commentaire de la cellule de destination et d'ajouter le commentaire de la cellule source. Ce n'est pas ce que je voulais faire. Mon objectif s'était de mettre le "texte du commentaire" de la cellule source dans "la valeur" de la cellule de destination.
Est ce que je suis clair ?
En tout cas merci
Michel Mto
Re...
Est ce que je suis clair ?
Maintenant, Oui...
;o))
--
Salutations
JJ
"Michel MTO" <comptabilite@olcoven.fr> a écrit dans le message de news:
hbmlkm$ig$1@aioe.org...
Merci Jacky pour ta réponse,
mais je crois, si je ne me trompes pas, que ton code permet d'effacer le
commentaire de la cellule de destination et d'ajouter le commentaire de la
cellule source. Ce n'est pas ce que je voulais faire.
Mon objectif s'était de mettre le "texte du commentaire" de la cellule
source dans "la valeur" de la cellule de destination.
"Michel MTO" a écrit dans le message de news: hbmlkm$ig$
Merci Jacky pour ta réponse,
mais je crois, si je ne me trompes pas, que ton code permet d'effacer le commentaire de la cellule de destination et d'ajouter le commentaire de la cellule source. Ce n'est pas ce que je voulais faire. Mon objectif s'était de mettre le "texte du commentaire" de la cellule source dans "la valeur" de la cellule de destination.
Est ce que je suis clair ?
En tout cas merci
Michel Mto
JB
Pour désactiver les événements pendant l'exécution du programme.
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:379eb7b0-a29f-4008-8ff0-196935e6966d@p9g2000vbl.googlegroups.com...
Pour désactiver les événements pendant l'exécution du programme.
JB
On 21 oct, 11:59, "Michel MTO" <comptabil...@olcoven.fr> wrote:
> Si vous avez des pistes, elles seront les bienvenues.
Une autre (piste) :
Sub essai() Dim S$ S = Range("A1").NoteText MsgBox S End Sub
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
Michel MTO a écrit :
Bonjour le groupe,
Je n'arrive pas à stocker le commentaire d'une cellule dans une variable, pour le coller dans une autre cellule situé dans une autre feuille. A la base, j'exécute un code situé dans la feuille de destination dans l' évènement suivant : Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
Merci
Michel Mto
> Si vous avez des pistes, elles seront les bienvenues.
Une autre (piste) :
Sub essai()
Dim S$
S = Range("A1").NoteText
MsgBox S
End Sub
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Michel MTO a écrit :
Bonjour le groupe,
Je n'arrive pas à stocker le commentaire d'une cellule dans une variable,
pour le coller dans une autre cellule situé dans une autre feuille.
A la base, j'exécute un code situé dans la feuille de destination dans l'
évènement suivant :
Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.
> Si vous avez des pistes, elles seront les bienvenues.
Une autre (piste) :
Sub essai() Dim S$ S = Range("A1").NoteText MsgBox S End Sub
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
Michel MTO a écrit :
Bonjour le groupe,
Je n'arrive pas à stocker le commentaire d'une cellule dans une variable, pour le coller dans une autre cellule situé dans une autre feuille. A la base, j'exécute un code situé dans la feuille de destination dans l' évènement suivant : Private Sub Worksheet_Activate()
Si vous avez des pistes, elles seront les bienvenues.