OVH Cloud OVH Cloud

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

10 réponses

1 2
Avatar
Jacques
Bonjour,
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




Vous pouvez modifier le nom qui s'affiche quand vous insérez de nouveaux
commentaires, mais vous ne pouvez pas empêcher Microsoft Excel d'inclure
votre nom d'utilisateur. Pour modifier ce dernier, cliquez sur Options
dans le menu Outils, sélectionnez l'onglet Général, puis tapez le nom
souhaité dans la zone Nom d'utilisateur. Si vous supprimez ce nom, Excel
utilise le nom d'utilisateur par défaut que vous avez défini pour votre
ordinateur.

N'oubliez pas que Microsoft Excel utilise aussi le nom d'utilisateur
pour partager des classeurs et identifier des utilisateurs lors de la
fusion de fichiers contenant plusieurs modifications.

--
Cordialement,

Jacques.

Avatar
jps
bonjour john
cette petite macro crée un commentaire sans nom d'utilisateur ; placée dans
le Perso.xls et avec un zoli bouton dans une BO de la feuille, elle
remplacera celle native d'excel...
jps

"John" a écrit dans le message de
news:
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




Avatar
J
Bonjour jps
elle est où ta petite macro??
peut-être que sa taille, telle celle de la sardine marseillaise, l'a
coincée dans le tuyau?
Bonne semaine
J@@
bonjour john
cette petite macro crée un commentaire sans nom d'utilisateur ; placée dans
le Perso.xls et avec un zoli bouton dans une BO de la feuille, elle
remplacera celle native d'excel...
jps

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

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








Avatar
Frédo P
"Bonsoir Jps
Bonjour jps
elle est où ta petite macro??
Ben oui quoi!

Ou elle est ta petite macro! elle m'intéresse bigrement cette macro.
peut-être que sa taille, telle celle de la sardine marseillaise, l'a
coincée dans le tuyau?
Eh non ,c'est l'heure de la pilule, ou du casse-croûte. l'admr s'en occupe!


Avatar
jps
merdum de merdum, J@@, dès que l'heure de l'apéro approche, j'en oublie de
coller...
la voici, la voilà :
jps

Sub CommentaireJPS()
'une macro signée f. sigonneau avec, facultativement, création d'une XLA
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 = 10: '.Color = vbRed
End With
End With
End With
cmt.Text Text:=""
Fin:
SendKeys "%IM"
End Sub
"J@@" a écrit dans le message de
news:
Bonjour jps
elle est où ta petite macro??
peut-être que sa taille, telle celle de la sardine marseillaise, l'a
coincée dans le tuyau?
Bonne semaine
J@@
bonjour john
cette petite macro crée un commentaire sans nom d'utilisateur ; placée
dans


le Perso.xls et avec un zoli bouton dans une BO de la feuille, elle
remplacera celle native d'excel...
jps

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

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










Avatar
jps
ADMR, ADMR, je t'en donnerais moi de l'ADMR, frédo le félon...
bon, magnanime, je te précise que je viens de mettre la macro sur le post de
J@@ qui s'est aussi ému de cette absence momentanée de l'image....un coup à
vous dégoûter de faire une réponse sérieuse...
jps

"Frédo P" a écrit dans le message de
news:

"Bonsoir Jps
Bonjour jps
elle est où ta petite macro??
Ben oui quoi!

Ou elle est ta petite macro! elle m'intéresse bigrement cette macro.
peut-être que sa taille, telle celle de la sardine marseillaise, l'a
coincée dans le tuyau?
Eh non ,c'est l'heure de la pilule, ou du casse-croûte. l'admr s'en

occupe!






Avatar
GD
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
jps
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
GD
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
jps
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








1 2