Ajout commentaire (suite)...au secours !!!
Le
Arnaud Lehéricher
Bonjour à tous,
Merci de vos lumières
J'ai finalement décidé d'utiliser la macro suivante pour ajouter un
commentaire sans "username" et avec une police 10 Comic Sans MS :
Application.UserName = " "
Range("B5").AddComment
For Each i In ActiveSheet.Comments
i.Shape.OLEFormat.Object.Font.Name = "Comic Sans MS"
i.Shape.OLEFormat.Object.Font.Size = 10
i.Shape.TextFrame.Characters(Start:, Length:).Font.Size = 10
Next i
Pouvez vous m'indiquer comment virer le fait que le commentaire se fixe
obligatoirement en B5 (2eme ligne de la macro) En fait je ne sais pas
comment mettre en place l'utilisation des references relatives en ecriture
VBA (ca doit etre tout bete mais je débute voire même en dessous de ça
!!!!)
De plus, j'ai associé cette macro a un raccourci clavier, elle m'ajoute bien
le commentaire sous le format souhaité mais est-il possible que suite au
raccourci clavier mon curseur soit directement dans le commentaire prêt a
ecrire ? Si oui comment évidemment ?
Merci beaucoup, votre aide m'est précieuse
@ très bientôt j'espere
Arnaud
Merci de vos lumières
J'ai finalement décidé d'utiliser la macro suivante pour ajouter un
commentaire sans "username" et avec une police 10 Comic Sans MS :
Application.UserName = " "
Range("B5").AddComment
For Each i In ActiveSheet.Comments
i.Shape.OLEFormat.Object.Font.Name = "Comic Sans MS"
i.Shape.OLEFormat.Object.Font.Size = 10
i.Shape.TextFrame.Characters(Start:, Length:).Font.Size = 10
Next i
Pouvez vous m'indiquer comment virer le fait que le commentaire se fixe
obligatoirement en B5 (2eme ligne de la macro) En fait je ne sais pas
comment mettre en place l'utilisation des references relatives en ecriture
VBA (ca doit etre tout bete mais je débute voire même en dessous de ça
!!!!)
De plus, j'ai associé cette macro a un raccourci clavier, elle m'ajoute bien
le commentaire sous le format souhaité mais est-il possible que suite au
raccourci clavier mon curseur soit directement dans le commentaire prêt a
ecrire ? Si oui comment évidemment ?
Merci beaucoup, votre aide m'est précieuse
@ très bientôt j'espere
Arnaud
Poser une question
si ne ne veut pas ajouter un commentaire en cellule B5,
à quel endroit veut tu l'ajouter ?
veut tu vraiment ajouter un commentaire ?
isabelle
Arnaud Lehéricher a écrit :
Bonjour,
J'imagine que tu veux mettre le commentaire dans la celulle active lorsque tu utilises le racourci clavier...dans ce cas au lieu de:
Range("B5").addcomment
essaies
Activecell.addcomment
selectionnée !!!!
Tout fonctionne bien mais je voudrais juste savoir s'il est possible que
lors de l'utilisation de mon raccourci clavier, mon curseur soit directement
dans le commentaire pret a ecrire ?
Car en fait pour le moment je doit recliquer sur la cellule et faire
"modifier le commentaire" pour ecrire...
Merci
la macroutilisée est :
Sub Commentaires()
'
' Commentaires Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
Application.UserName = " "
ActiveCell.AddComment
For Each i In ActiveSheet.Comments
i.Shape.OLEFormat.Object.Font.Name = "Comic Sans MS"
i.Shape.OLEFormat.Object.Font.Size = 10
i.Shape.TextFrame.Characters(Start:, Length:).Font.Size = 10
Next i
End Sub