Recuperer annotation cellule dans textbox

[yves03]

Bonjour,
J'arrive a ecrire une annotation dans une cellule, a partir d'un textbox qui est dans un USF.
Mais j'aurais aime lorsque je clique sur la cellule pouvoir recuperer l'annotation de la cellule dans le textbox de mon USF
Est ce possible
Merci de votre aide.

 

[yves03]

Re : Recuperer annotation cellule dans textbox

Je patauge un peu avec mon probleme !!
Si quelqu'un sait comment recuper un commentaire d'une cellule et le mettre dans un textbox, c'est avec plaisir.
Merci d'avance

 

[jp14]

Re : Recuperer annotation cellule dans textbox

Bonjour

Pour écrire dans une cellule
cellule.value= textbox1.value
Pour affecter une valeur
textbox1.value = cellule.value

JP

 

[vbacrumble]

Re : Recuperer annotation cellule dans textbox

Bonsoir


Pour ne plus patauger essaie le code suivant

Dans le code de l'userform

Private Sub CommandButton1_Click()
If HasComment(ActiveCell) = True Then
ActiveCell.ClearComments
End If
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Text Text:=TextBox1.Text
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
If HasComment(ActiveCell) = True Then
TextBox1.Text = ActiveCell.Comment.Text
Else
TextBox1.Text = vbNullString
End If
End Sub

Dans un module standard

Public Function HasComment(Target As Range) As Boolean
'Patrick Molloy, 2001-11-17 programming
On Error Resume Next    ' to use in WS:  =HasComment(a1)
Dim txt As String       ' to use in VBA: MsgBox hascomment(Range("a1"))
    txt = Target.Comment.Text   'in Event: MsgBox hascomment(Target)
    HasComment = Err.Number = 0
    Err.Clear
End Function

A+

 

[yves03]

Re : Recuperer annotation cellule dans textbox

Bonjour

Pour écrire dans une cellule
cellule.value= textbox1.value
Pour affecter une valeur
textbox1.value = cellule.value

JP

Merci jp14 de t'occuper de mon probleme, mais ce n'est pas tout a fait ça.
En fait je voudrais pouvoir recuperer le commentaire d'une cellule et l'afficher dans un textbox qui est dans un USF
Lorsque je clique sur cette cellule l'USF s'ouvre et c'est la que je voudrais recuperer le contenu du commentaire de la cellule pour pouvoir l'afficher dans mon textbox.
Merci de ton aide

 

[vbacrumble]

Re : Recuperer annotation cellule dans textbox

Re



Tu as essayé le code que je t'indiquais ?


Sans doute pas


A+

 

[yves03]

Re : Recuperer annotation cellule dans textbox

Re



Tu as essayé le code que je t'indiquais ?


Sans doute pas


A+

Non ,nos messages ce sont croisées.
j'essaie tout a l'heure.
Merci beaucoup de ton aide, je te tiens au courant;
A+

 

[jp14]

Re : Recuperer annotation cellule dans textbox

Bonjour

Une autre méthode
Ci joint une macro avec une fonction pour afficher dans un textbox le contenu du commentaire associé à une cellule.
La fonction utilise comme paramètre l'adresse de la cellule.

A tester

 

[vbacrumble]

Re : Recuperer annotation cellule dans textbox

Bonsoir


jp14: tu n'as pas inclus la fonction Hascomment qui étais dans un module
et qui est appelé dans le code du CommandButton1 de l'userform

A+

 

[jp14]

Re : Recuperer annotation cellule dans textbox

Bonsoir vbacrumble

Bonsoir


jp14: tu n'as pas inclus la fonction Hascomment qui étais dans un module
et qui est appelé dans le code du CommandButton1 de l'userform

A+

Merci pour l'info, je ne comprenais pas pourquoi le code ne marchait pas.

JP

 

[yves03]

Re : Recuperer annotation cellule dans textbox

Non ,nos messages ce sont croisées.
j'essaie tout a l'heure.
Merci beaucoup de ton aide, je te tiens au courant;
A+

Cela fonctionne super bien 🙂
Merci de ton aide ainsi que jp14
😉