Je crois que je vais aujourd'hui poser un problème qui n'a pas encore été traité sur le forum, peut-être parce qu'il n'y n'existe pas de solution ...?!
Voilà, j'ai une feuille Excel qui contient un nombre important d'informations dans certaines celulles et je vais avoir besoin de ces cellules pour y ajouter des formules aléatoirement.
J'ai donc commencer à libérer les cellules en transformant les infos contenues dedans en commentaires. Bien sur, pour l'instant, je fais ca manuellement, je vous laisse imaginer le temps que ça me prend, et je n'en vois toujours pas le bout... ! -_-
Je voulai donc savoir si il existe une méthode, ou au mieux une macro, qui m'aide à faire ça automatiquement ou plus rapidement !
J'espère qu'il existe une réponse à ce problème, en attendant votre aide, je vous remercie tous d'avance !
Sub AjouteCommentaire()
[C:C].ClearComments
For Each c In Range("C2", [c65000].End(xlUp))
c.AddComment c.Value
c.Comment.Shape.TextFrame.AutoSize = True
Next c
End Sub
Sub AjouteCommentaire()
Selection.ClearComments
For Each c In Selection
c.AddComment CStr(c.Value)
c.Comment.Shape.TextFrame.AutoSize = True
Next c
End Sub
Sub AjouteCommentaire()
Selection.ClearComments
For Each c In Selection
c.AddComment CStr(c.Value)
c.Comment.Shape.TextFrame.AutoSize = True
c.Value = ""
Next c
End Sub
Pour remplir les cellules avec les commentaires:
Sub ConvertCommentaire()
For Each c In Selection
If Not c.Comment Is Nothing Then c.Value = c.Comment.Text
Next c
End Sub
J'ai été jeter un coup d'oeuil sur votre site que j'ai déjà mis dans mes favoris !
J'en ai récupéré quelques unes, dont celle-ci :
Code:
Sub ModifPoliceTous10()
For Each i In ActiveSheet.Comments
i.Shape.OLEFormat.Object.Font.Size = 10
Next i
End Sub
Vous dites qu'elle permet de modifier la police de tout les commentaires...
Est ce possible de combiner cette macro et celle que vous avez réalisé précédemment, afin que la police du commentaire ce mette à 12 (par exemple) automatiquement lors de la conversion ?
Sub AjouteCommentaire()
Selection.ClearComments
For Each c In Selection
c.AddComment CStr(c.Value)
c.Comment.Shape.TextFrame.AutoSize = True
c.Comment.Shape.OLEFormat.Object.Font.Size = 12
c.Value = ""
Next c
End Sub
JB