comment intégrer dans un commentaire le contenu d'une cellule

[pascal21]

bonsoir à tous
je cherche le moyen d'intégrer dans un commentaire le contenu d'une cellule
à savoir:
la cellule concernée (toujours la même) en feuille1 cellule A6
la cible la dernière cellule non vide la colonne B feuille2
cette action doit être commandé par un commandbutton qui fait déjà d'autres actions
si vous avez une idée ou suggestion merci d'en faire part
je reviendrai tout à l'heure pour faire un fichier si besoin en est
là, faut que j'aille à la soupe c'est déjà le 2eme rappel
faut pas déconner avec ça si je ne veux pas manger froid lol!!!!

 

[tbft]

Re : comment intégrer dans un commentaire le contenu d'une cellule

Bonsoir pascal21

D'abord un truc qui n'a rien a voir avec ton message: j'adore ta signature

En ce qui concerne ta demande... il me semble que les commenatires des cellules sont en lecture seule...
Mais il faudrait attendre une confirmation de personne plus compétente que moi (et il y en a des tas)...

 

[pascal21]

Re : comment intégrer dans un commentaire le contenu d'une cellule

bonsoir tbft, carcharon machin chose lol!!!
le code proposé ne semble pas fonctionner je l'ai intégré dans mon code de la feuille1 mais ça déclenche une erreur, je dois mal m'y prendre
je ne vois pas mentionner la cellule de départ ni celle de destination
moi je vois ça comme ça (attention c'est du pseudo langage vba âmes sensibles éloignez vous)

sheets 1.range("a6").copy 
select the last cells no empty of the feuil 2 colonne B
and copy in the comment the value of sheets1.range("a6")

c'est du beau code qui va bien ça?
en français ça doit donner

copier feuil1 celulle A6 
selectionner la dernière cellule non vide de la feuille 2 colonne B et inserrer un commentaire avec le contenu de la celulle A6

merci de votre aide

 

[BOISGONTIER]

Re : comment intégrer dans un commentaire le contenu d'une cellule

Bonsoir,

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#commentDyn

http://boisgontierjacques.free.fr/fichiers/Commentaires/CommentaireMajDyn.xls

http://boisgontierjacques.free.fr/fichiers/Commentaires/CommentaireDynamiquePlage2.xls

JB

 

[pascal21]

Re : comment intégrer dans un commentaire le contenu d'une cellule

bonsoir boisgontier et merci pour ton aide

Private Sub Worksheet_Activate()
 With Range("B2")
   If .Comment Is Nothing Then Range("B2").AddComment
   .Comment.Text Text:=Sheets("Feuil1").[A6].Value
   .Comment.Shape.TextFrame.AutoSize = True
 End With
End Sub

ce bout de code semble convenir
mais je ne sais jamais comment écrire
écrire dans la dernière cellule non vide de la colonne B

 

[tbft]

Re : comment intégrer dans un commentaire le contenu d'une cellule

Bonsoir tout le monde

Un grand merci à JB pour les informations....

 

[pascal21]

Re : comment intégrer dans un commentaire le contenu d'une cellule

pour faire remonter

 

[Pierrot93]

Re : comment intégrer dans un commentaire le contenu d'une cellule

Bonjour à tous,

écrire dans la dernière cellule non vide de la colonne B

essaye ceci :

Range("B65536").End(xlUp)(2).Value = "xxx"

bonne journée
@+

 

[pascal21]

Re : comment intégrer dans un commentaire le contenu d'une cellule

bonjour pierrot
en faite je voulais écrire

écrire [COLOR="Red"]un commentaire[/COLOR] dans la dernière cellule non vide de la colonne B

quoi qu'il en soit j'ai toujours autant de mal à se souvenir du code que tu viens de donner
rien à faire ça rentre pas

 

[Pierrot93]

Re : comment intégrer dans un commentaire le contenu d'une cellule

Re,

ok, pas tout compris :

Sub test()
Dim c As Comment
With Range("B65536").End(xlUp)(2)
    Set c = .Comment
    If Not c Is Nothing Then c.Delete
    .AddComment "xxx"
End With
End Sub

 

[Si...]

Re : comment intégrer dans un commentaire le contenu d'une cellule

Bonjour

bonsoir à tous
je cherche le moyen d'intégrer dans un commentaire le contenu d'une cellule
à savoir:
la cellule concernée (toujours la même) en feuille1 cellule A6
la cible la dernière cellule non vide la colonne B feuille2
cette action doit être commandé par un commandbutton qui fait déjà d'autres actions

il te suffit d'ajouter cette ligne en modifiant le nom des feuilles éventuellement :

...
[COLOR="red"]Sheets("Feuil2").[B65536].End(xlUp)(1)[/COLOR].NoteText [B]Sheets("Feuil1").[A6][/B]
...