Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

sans commentaire

19 réponses
Avatar
Galopin01
Bonjour !
Je met à nouveau à contribution votre sagacité...
Excel 2003
Par défaut mes commentaires -lorsque j'en insère- ont déjà mon nom et mon
prénom (y compris dans un nouveau classeur)
Est-il possible lorsque je désire mettre un commentaire d'avoir -par défaut-
un commentaire vide ?
Merci.

9 réponses

1 2
Avatar
Galopin01
bonjour et merci de vous être penché sur la question,
J'ai choisi la solution VBA mais c'est vraiment gonflant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set otest = Target.Comment
If Not otest Is Nothing Then
Z = Target.Comment.Text
a = Len(Z)
If a > 17 And InStr(Z, ":") Then
Target.ClearComments
Target.AddComment
Target.Comment.Text Right(Z, a - 17)
End If
End If
End Sub

J'en suis là mais c'est pas top car SelectionChange ne traite pas le
commentaire quitté...
Il faut donc que j'essaye de modifier pour faire un Resize sur Target pour
appliquer la macro aux cellules environnantes. A moins qu'un génie me trouve
la bonne méthode pour supprimer le nom et la mise en forme en gras d'une
manière moins bredin...
Une idée ?
Avatar
Galopin01
Waow ! sorry j'avais pas rafraichi !
Je vais étudier tout ça, mas c'est vrai que la solution du double-clic est
tellement évidente pour traiter le cellule en cours... reste à voir si
j'arrive à éliminer la mise en forme en gras...
Merci à tous !
Avatar
LSteph
...
donc soit..

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=""
End Sub

...le souci de l'évennement c'est que tu devra recoller cela dans le code
chaque fois que tu veux mettre des commentaires
alors qu'en mettant une simple Sub dans un module standard de Perso.xls
tu garde ça disponible avec un outil pour tous les classeurs.

Sub AjtComment()
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=""
End Sub

'Cordialement.

'lSteph


Waow ! sorry j'avais pas rafraichi !
Je vais étudier tout ça, mas c'est vrai que la solution du double-clic est
tellement évidente pour traiter le cellule en cours... reste à voir si
j'arrive à éliminer la mise en forme en gras...
Merci à tous !




Avatar
jps
et tant qu'on y est, allons-y pour la totale :

Sub AjtComment()
On Error Resume Next
Set cmt = ActiveCell.AddComment
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:=""
End Sub

jps

"LSteph" a écrit dans le message de news:
%
...
donc soit..

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=""
End Sub

...le souci de l'évennement c'est que tu devra recoller cela dans le code
chaque fois que tu veux mettre des commentaires
alors qu'en mettant une simple Sub dans un module standard de Perso.xls tu
garde ça disponible avec un outil pour tous les classeurs.

Sub AjtComment()
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=""
End Sub

'Cordialement.

'lSteph


Waow ! sorry j'avais pas rafraichi !
Je vais étudier tout ça, mas c'est vrai que la solution du double-clic
est tellement évidente pour traiter le cellule en cours... reste à voir
si j'arrive à éliminer la mise en forme en gras...
Merci à tous !




Avatar
LSteph
;o) on fait plus dans la simplicité là, cher Suzerain!

et tant qu'on y est, allons-y pour la totale :

Sub AjtComment()
On Error Resume Next
Set cmt = ActiveCell.AddComment
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:=""
End Sub

jps

"LSteph" a écrit dans le message de news:
%
...
donc soit..

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=""
End Sub

...le souci de l'évennement c'est que tu devra recoller cela dans le code
chaque fois que tu veux mettre des commentaires
alors qu'en mettant une simple Sub dans un module standard de Perso.xls tu
garde ça disponible avec un outil pour tous les classeurs.

Sub AjtComment()
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=""
End Sub

'Cordialement.

'lSteph


Waow ! sorry j'avais pas rafraichi !
Je vais étudier tout ça, mas c'est vrai que la solution du double-clic
est tellement évidente pour traiter le cellule en cours... reste à voir
si j'arrive à éliminer la mise en forme en gras...
Merci à tous !








Avatar
MichDenis
Il y a aussi ceci :

http://cjoint.com/?jdeW1vBczy

La commande SendKeys "~" est à supprimer
dans la procédure NCommandComment
c'est un résidu oblié de la procédure originel.





"Galopin01" a écrit dans le message de news:
%
Bonjour !
Je met à nouveau à contribution votre sagacité...
Excel 2003
Par défaut mes commentaires -lorsque j'en insère- ont déjà mon nom et mon
prénom (y compris dans un nouveau classeur)
Est-il possible lorsque je désire mettre un commentaire d'avoir -par défaut-
un commentaire vide ?
Merci.
Avatar
MichDenis
Et un dernier .... pour tenir compte de l'option activée dans
la fenêtre Outils / options / commentaires :

http://cjoint.com/?jdf4iUmUIC


La version précédente est muette à cet effet ... et peut générer une erreur
selon l'option activée.





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

Il y a aussi ceci :

http://cjoint.com/?jdeW1vBczy

La commande SendKeys "~" est à supprimer
dans la procédure NCommandComment
c'est un résidu oblié de la procédure originel.





"Galopin01" a écrit dans le message de news:
%
Bonjour !
Je met à nouveau à contribution votre sagacité...
Excel 2003
Par défaut mes commentaires -lorsque j'en insère- ont déjà mon nom et mon
prénom (y compris dans un nouveau classeur)
Est-il possible lorsque je désire mettre un commentaire d'avoir -par défaut-
un commentaire vide ?
Merci.
Avatar
jps
de la belle ouvrage, denis....merci
jps

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

Et un dernier .... pour tenir compte de l'option activée dans
la fenêtre Outils / options / commentaires :

http://cjoint.com/?jdf4iUmUIC


La version précédente est muette à cet effet ... et peut générer une
erreur
selon l'option activée.





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

Il y a aussi ceci :

http://cjoint.com/?jdeW1vBczy

La commande SendKeys "~" est à supprimer
dans la procédure NCommandComment
c'est un résidu oblié de la procédure originel.





"Galopin01" a écrit dans le message de news:
%
Bonjour !
Je met à nouveau à contribution votre sagacité...
Excel 2003
Par défaut mes commentaires -lorsque j'en insère- ont déjà mon nom et mon
prénom (y compris dans un nouveau classeur)
Est-il possible lorsque je désire mettre un commentaire d'avoir -par
défaut-
un commentaire vide ?
Merci.






Avatar
Daniel.j
Salut Jps

Y ausii avait la reponse sur la FAQ
http://dj.joss.free.fr/cellule.htm#commentaire4

Tant qu'a faire lol
Daniel


"jps" a écrit dans le message de news:
Obe5k$
de la belle ouvrage, denis....merci
jps

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

Et un dernier .... pour tenir compte de l'option activée dans
la fenêtre Outils / options / commentaires :

http://cjoint.com/?jdf4iUmUIC


La version précédente est muette à cet effet ... et peut générer une
erreur
selon l'option activée.





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

Il y a aussi ceci :

http://cjoint.com/?jdeW1vBczy

La commande SendKeys "~" est à supprimer
dans la procédure NCommandComment
c'est un résidu oblié de la procédure originel.





"Galopin01" a écrit dans le message de news:
%
Bonjour !
Je met à nouveau à contribution votre sagacité...
Excel 2003
Par défaut mes commentaires -lorsque j'en insère- ont déjà mon nom et mon
prénom (y compris dans un nouveau classeur)
Est-il possible lorsque je désire mettre un commentaire d'avoir -par
défaut-
un commentaire vide ?
Merci.










1 2