[RESOLU]- Insérer un commentaire

[guyvano24]

Bonjour le Forum,
J'ai cherché un peu partout dans le forum une solution afin d'insérer dans une cellule un commentaire vierge (sans le mot commentaire en haut à gauche). Je n'ai pas trouvé de solutions aussi je me permets de vous solliciter.
Merci d'avance pour votre aide.

 

[Pierrot93]

Re : Insérer un commentaire

Bonjour,

bah... après avoir inséré ton commentaire, tu supprimes le texte, non ?? ou alors quelque chose doit m'échapper... fort possible du reste..

bon après midi
@+

 

[MJ13]

Re : Insérer un commentaire

Bonjour Guyvano, Pierrot 🙂 (ouf, cela me rassure )

Pas très clair ton problème. Je ne comprend pas le "sans le mot commentaire en haut à gauche".

Sinon en raccourci clavier, c'est shift+F2. Sinon il faudra passer par VBA.

 

[guyvano24]

Re : Insérer un commentaire

Bonjour à vous
C'est justement pour gagner un peu de temps et moins de manip que je demandé de savoir si
'il était possible d'insérer un commentaire sans annotation dedans (Vide de tout texte)
Car lorque j'insère un commentaire dans une cellule, à chaque fois apparaît du texte (Soit commentaire: ou Le nom de l'utilisateur du PC ex Guy🙂
cordialement

 

[MJ13]

Re : Insérer un commentaire

Re

Le mieux serait de le faire en VBA.

Pour cela, tu peux commencer par utiliser l'enregistreur de macros situé sur la barre d'outils Macro sur XL2003 (c'est comme cela que j'ai commencé et avec l'aide du forum qui m'a beaucoup appris, dont Pierrot 🙂, cela dit en passant, tu peux voir le résultat en suivant le lien dans ma signature 😱).

 

[guyvano24]

Re : Insérer un commentaire

Merci MJ13
Merci Pierrot93
J'essaie de me mettre au VBA (Voir Beaucoup d'Astuces) Lol....

 

[Pierrot93]

Re : Insérer un commentaire

Re,
Re Michel🙂

regarde ce lien, de nombreux codes sur les comentaires, tu devrait pouvoir trouver une solution...
http://boisgontierjacques.free.fr/pages_site/commentaire.htm

 

[guyvano24]

Re : Insérer un commentaire

Super merci pierrot93

Je me plonge dans la lecture A+

 

[GIBI]

Re : Insérer un commentaire

Bonsoi

si tu google tu trouve une réponse ici :Ce lien n'existe plus

GIBI

Mais Boisgontier c'est toujours top!

 

[guyvano24]

Re : Insérer un commentaire

Bonsoir GIBI

Merci à toi aussi pour ton aide, J'essaie cela de suite A+

 

[guyvano24]

Re : Insérer un commentaire

Il y a une erreur dans cette macro

Sub CommentaireSeul()

On Error Resume Next
Set cmt = ActiveCell.AddComment
If Err 0 Then GoTo Fin

With cmt.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
With .OLEFormat.Object
With .Font
.Name = "Times New Roman": .Size = 14: .Color = vbRed
End With
End With
End With
cmt.Text Text:=""
Fin:
SendKeys "%IM"
End Sub

Mais je ne vois pas la solution

 

[Pierrot93]

Re : Insérer un commentaire

Re,

peut être comme ceci :

Sub CommentaireSeul()
On Error Resume Next
Set cmt = ActiveCell.AddComment
If Err > 0 Then GoTo Fin
With cmt.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
With .OLEFormat.Object
With .Font
.Name = "Times New Roman": .Size = 14: .Color = vbRed
End With
End With
End With
cmt.Text Text:=""
Fin:
SendKeys "%IM"
End Sub

 

[BOISGONTIER]

Re : Insérer un commentaire

Bonjour,

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Comment Is Nothing Then
   Target.AddComment   ' Création commentaire
   Target.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
   Target.Comment.Shape.OLEFormat.Object.Font.Size = 7
   Target.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
   SendKeys "+{F2}"
   Cancel = True
 End If
End Sub

JB

 

[guyvano24]

Re : Insérer un commentaire

ok pour : Err > 0

Quelqu'un peut il me dire comment faire pour enregistrer cette macro complémentaire.

puis dans un module standard

sub CommentaireMonique()

 On Error Resume Next
 Set cmt = ActiveCell.AddComment
 If Err  0 Then GoTo Fin

 With cmt.Shape
  .Placement = xlFreeFloating
  .TextFrame.AutoSize = True
  With .OLEFormat.Object
   With .Font
    .Name = "Times New Roman": .Size = 14: .Color = vbRed
   End With
  End With
 End With
 cmt.Text Text:=""
 Fin:
 SendKeys "%IM"
 end sub
Enregistre comme macro complémentaire (.xla). Lorsque la macro complémentaire est installée, une commande "Commentaire vierge" est ajoutée au menu contextuel des cellules. Tu peux modifier à ta convenance les caractéristiques des commentaires insérés dans la procédure "CommentaireMonique".
Auteur(s) :

Merci

 

[Pierrot93]

Re : Insérer un commentaire

Re,

fichier => enregistrer sous => dans type de fichier, tu choisis macro complémentaire (extension xla)