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.
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.
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.
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.
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
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" <jac_be@hotmail.com> a écrit dans le message de
news:us1YUJjLFHA.1180@TK2MSFTNGP14.phx.gbl...
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
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
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
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" <jac_be@hotmail.com> a écrit dans le message de
news:us1YUJjLFHA.1180@TK2MSFTNGP14.phx.gbl...
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
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
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!
"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!
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!
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
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@@" <jipivert@-ifrance.com> a écrit dans le message de
news:uUEQ1GkLFHA.1180@TK2MSFTNGP14.phx.gbl...
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" <jac_be@hotmail.com> a écrit dans le message de
news:us1YUJjLFHA.1180@TK2MSFTNGP14.phx.gbl...
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
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
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!
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" <nspfrdpst@9online.fr> a écrit dans le message de
news:uoCmQGlLFHA.1172@TK2MSFTNGP12.phx.gbl...
"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
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!
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
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
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
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
tu me troubles, répondit la bête féroce....
jps
"GD" <nomail@nomail.net> a écrit dans le message de
news:O7SuA6mLFHA.576@TK2MSFTNGP15.phx.gbl...
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
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
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
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" <nomail@nomail.net> a écrit dans le message de
news:O7SuA6mLFHA.576@TK2MSFTNGP15.phx.gbl...
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
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
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
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" <nomail@nomail.net> a écrit dans le message de
news:unhljZnLFHA.4084@TK2MSFTNGP10.phx.gbl...
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" <nomail@nomail.net> a écrit dans le message de
news:O7SuA6mLFHA.576@TK2MSFTNGP15.phx.gbl...
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
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