Nom 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 subpuis 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 subEnregistre 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 : Frédéric Sigonneau
Mots clefs associés à cette page : paramétrer, nom, format, commentaire
- Vous devez vous identifier ou créer un compte pour écrire des commentaires

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