Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Commentaires dans Excel

Commentaires dans Excel

13 réponses
Avatar
John
Bonjour

Lorsque l'on crée un commentaire sur une cellule, le nom de la personne qui
a créé le commentaire apparait dans la barre d'état. Je sais qu'il est
possible d'enlever la barre d'état par Outils-Options mais si l'utilisateur
final à dans ses options d'affichage "Affichage de la barre d'état", il
pourra voir qui a créer les commentaires.

Est-il possible d'effacer ou d'empêcher l'affichage de la personne qui a
créer le commentaire ?? Cela n'intêresse pas nécessairement la personne qui
utilise le fichier.

Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Daniel.j
Et pour completer le sujet : une macro pour supprimer le nom:

Supprime le nom utilisateur des commentaires
Sub SupNomAuthor()
Dim NomAuthor As String
Dim TxtComment As String
Dim Commentaire As Comment
'Recupere le nom utilisateur
NomAuthor = ActiveWorkbook.BuiltinDocumentProperties(3)

For Each Commentaire In ActiveSheet.Comments
TxtComment = Commentaire.Text
If Left(TxtComment, Len(NomAuthor)) = NomAuthor Then
'+2 pour virer les 2 points ":"
TxtComment = Mid(TxtComment, Len(NomAuthor) + 2)
'Chr(10) pour virer la ligne vide
If Left(TxtComment, 1) = Chr(10) Then
TxtComment = Mid(TxtComment, 3)
End If
End If
Commentaire.Text Text:=TxtComment
Next Commentaire
End Sub
http://dj.joss.free.fr/cellule.htm#commentaire4



--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm


"jps" a écrit dans le message de news:

t'as raison, gilbert, à cette erreur je ne suis plus bon à nib...
je me pourris la vie sur une macro, même qu'on pourrait croire que c'est
toi

qui l'as écrite, tellement elle plante....je suis même parvenu à "Erreur
Automation, Erreur inconnue"....c'est bien ma veine...
jps (qui va au lit definitely)

"GD" a écrit dans le message de
news:
MDR...(même la culture se perd., Al Zeihmer ???)
animal plein de rage .... pas Féroce !!!

Que votre majesté ne se mette pas en colère,
Mais plutôt qu'elle considère
que je me veux désopilant
dans ce courant,
plus d'une heure après elle
et que par conséquent, en aucune façon,
je ne puis troubler sa leçon.

;o)))
jps wrote:
tu me troubles, répondit la bête féroce....
jps

"GD" a écrit dans le message de
news:
bonsour®,
une tite modif !!!

Sub CommentaireBeaujolisé()
'une macro signée f. sigonneau avec, facultativement geedee
On Error Resume Next
Set cmt = ActiveCell.AddComment
If Err <> 0 Then GoTo Fin

With cmt.Shape
.AutoShapeType = 72 'Int(100 * Rnd()) <-----choix de la forme
.Placement = xlFreeFloating
.Fill.ForeColor.SchemeColor = 61 '----remplissage beaujolais !!!
.AutoSize = True
.TextFrame.AutoSize = True '----ajustement automatique
With .OLEFormat.Object
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Font
.Name = "Comic sans MS"
.Size = 12
.Color = vbYellow ' ---------couleur texte
End With
End With
End With
'----texte initial
cmt.Text Text:=Chr(65) & Chr(10) & Chr(116) & Chr(97) & Chr(10) &
"santé" & Chr(10) & " J.P.S "
Exit Sub
Fin:
'---insertion commentaire par défaut si erreur
SendKeys "%IM"
End Sub











Avatar
Jacques
Bonjour,
Et pour completer le sujet : une macro pour supprimer le nom:

Supprime le nom utilisateur des commentaires
Sub SupNomAuthor()
Dim NomAuthor As String
Dim TxtComment As String
Dim Commentaire As Comment
'Recupere le nom utilisateur
NomAuthor = ActiveWorkbook.BuiltinDocumentProperties(3)

For Each Commentaire In ActiveSheet.Comments
TxtComment = Commentaire.Text
If Left(TxtComment, Len(NomAuthor)) = NomAuthor Then
'+2 pour virer les 2 points ":"
TxtComment = Mid(TxtComment, Len(NomAuthor) + 2)
'Chr(10) pour virer la ligne vide
If Left(TxtComment, 1) = Chr(10) Then
TxtComment = Mid(TxtComment, 3)
End If
End If
Commentaire.Text Text:=TxtComment
Next Commentaire
End Sub
http://dj.joss.free.fr/cellule.htm#commentaire4



Cela supprime bien le nom de l'auteur dans l'infobulle, mais pas dans la
barre d'état, qui est la question posée par John.

--
Cordialement,

Jacques.

Avatar
Daniel.j
Bonjour Jacques,
Il est indiquer en haut de la macro :
Supprime le nom utilisateur des commentaires



Maintenant pour virer le nom dans la barre d'état, peut être qu'un simple
Application.StatusBar = "" juste avant le Next Commentaire suffirait
!?
ou bien encore en masquant la barre:
Application.DisplayStatusBar = False

Et pour rétablir les valeurs par défaut
oldB = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = False
Application.DisplayStatusBar = oldB

@+
Cordialement
--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm


"Jacques" a écrit dans le message de
news: #
Bonjour,
Et pour completer le sujet : une macro pour supprimer le nom:

Supprime le nom utilisateur des commentaires
Sub SupNomAuthor()
Dim NomAuthor As String
Dim TxtComment As String
Dim Commentaire As Comment
'Recupere le nom utilisateur
NomAuthor = ActiveWorkbook.BuiltinDocumentProperties(3)

For Each Commentaire In ActiveSheet.Comments
TxtComment = Commentaire.Text
If Left(TxtComment, Len(NomAuthor)) = NomAuthor Then
'+2 pour virer les 2 points ":"
TxtComment = Mid(TxtComment, Len(NomAuthor) + 2)
'Chr(10) pour virer la ligne vide
If Left(TxtComment, 1) = Chr(10) Then
TxtComment = Mid(TxtComment, 3)
End If
End If
Commentaire.Text Text:=TxtComment
Next Commentaire
End Sub
http://dj.joss.free.fr/cellule.htm#commentaire4



Cela supprime bien le nom de l'auteur dans l'infobulle, mais pas dans la
barre d'état, qui est la question posée par John.

--
Cordialement,

Jacques.



1 2