Nom par défaut dans les commentaires.

Comment supprimer le nom qui apparaît par défaut dans les commentaires ?

Pas d'autre moyen d'obtenir un commentaire vraiment vierge que par VBA
dans le module ThisWorkbook d'un classeur neuf

Private sub Workbook_AddinInstall()
 Dim Ctrl As CommandBarControl
 
 On Error Resume Next
 Set Ctrl = Application.CommandBars("Cell").FindControl(ID=2031)
 With Application.CommandBars("Cell").Controls. _
       Add(Type:=msoControlButton, before:=Ctrl.Index + 1)
  .Caption = "Commentaire vierge"
  .OnAction = "CommentaireMonique"
 End With
 end sub
Private sub Workbook_AddinUninstall()
 On Error Resume Next
 Application.CommandBars("Cell").Controls("Commentaire vierge").Delete
 end sub

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 :

Mots clefs associés à cette page : , , ,

supprimer le nom qui apparaît par défaut dans les commentaires

Application.UserName = " """""
'------ double quote, espace, 5 doubles-quotes

Attention !!!!
cette manipilation :
met le username à blanc(espace)
ne supprimme pas la ligne correspondante dans le commentaire
est appliquée à tout les nouveaux classeurs et commentaires
il n'y a plus de nom d'auteur dans le document sauf a documenter manuellement les propriétés

--

HTH
;o)))

supprimer le nom qui apparaît par défaut dans les commentaires

;o)))
Application.UserName = " "
cela suffit... mais ne supprime pas les " : "

--

HTH
;o)))

Erreur ?

Bonjour à toi,

Alors, j'ai essayé de faire tout comme tu as dit, mais manifestement,
le premier bloc contient une erreur
au niveau de cette ligne :

Set Ctrl = Application.CommandBars("Cell").FindControl(ID:\=2031)

Elle apparaît en rouge,
et lorsque j'essaye d'activer la Macro complémentaire,
on me dit qu'il y a une erreur sur cette ligne...

D:\

Bonjour

Au moment d'un changement de version du site il s'est passé quelques droles de choses avec les C:\ et D:\ ici le ID a été transformé en ID:\ :-( corrige cela devrait aller tout de suite mieux !

Misange

Nouveau

1 Nouvelle page ajoutée ce mois-ci dont :

Mises à jour

3 pages modifiées ce mois-ci dont :