Problème de code VBA sur un commentaire
bonjour à tous,
sur une feuille protéger je voudrais insérer des commentaire via une box,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim texte As String
Cancel = True
texte = InputBox("Entrer le commentaire pour la cellule " & Replace(Target.Address, "$", "") & ":")
If texte = "" Then Exit Sub
ActiveSheet.Unprotect Password:="toto"
Target.AddComment: Target.Comment.text text:="bonjour"
ActiveSheet.Protect Password:="toto"
End Sub
mon problème vient du fait que le commentaire inscrit est Bonjour au lieu du texte écrit dans la box
pouvez vous m'aider a résoudre ce problème?
dans un second temps je rajouterai un bouton supprime afin effacer le commentaire si besoin
je vous remercie d'avance
cordialement
jerome
Bonjour
Dans le code, remplace --> "bonjour" par --> texte
Crdlt
bonjour dan
merci
il me reste deux pb:
comment je pourrais écrire que:
si le commentaire de la cellule selectionnée est diff de "" then
texte=commentaire
mon second problème serait de supprimer le commentaire
merci a tous d'avance
jérôme
Re
Supprimer le commentaire s'il y en a déjà un ou supprimer le commentaire quand on ne le veut plus
Crdlt
re,
mon but serait de pouvoir modifier le commentaire via la box(message)
mais je ne sais pas si cela est possible
cordialement
jerome
Bonjour
Essaie en mettant un ON ERROR RESUME NEXT juste avant l'instruction TARGET.ADD...
Attention que cela effacera l'ancien commentaire s'il y en avait un
Si ok, clique sur le case à cocher verte pour clôturer le fil
Cordialement