Convertir infos celulles en commentaires

[jo1177]

Bonjour à tous !

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 !

A bientôt !

jo1177

 

[BOISGONTIER]

Re : Convertir infos celulles en commentaires

Bonjour,

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

JB
Formation Excel VBA JB

 

[jo1177]

Re : Convertir infos celulles en commentaires

Bonjour BOISGONTIER, et merci pour votre réponse !

J'ai testé votre macro, cela ne fonctionne pas...

Est-ce moi qui est mal utilisé la macro ?

De plus, est-il possible de dire dans la macro de juste convertir les infos de la cellule séléctionnée en commentaire ?

Ci joint, votre macro dans un fichier d'exemple.

Merci beaucoup pour votre aide !

jo1177

 

[BOISGONTIER]

Re : Convertir infos celulles en commentaires

Convertit la selection en commentaire

Sub AjouteCommentaire()
Selection.ClearComments
For Each c In Selection
c.AddComment CStr(c.Value)
c.Comment.Shape.TextFrame.AutoSize = True
Next c
End Sub

JB

 

[jo1177]

Re : Convertir infos celulles en commentaires

Re,

Ca fonctionne, merci beaucoup !!

Une dernière petite chose peut-être, est-il possible de supprimer l'info de la cellule lors de la création du commentaire ?

Merci beaucoup !

jo1177

 

[BOISGONTIER]

Re : Convertir infos celulles en commentaires

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

JB

 

[jo1177]

Re : Convertir infos celulles en commentaires

Re !

Cela fonctionne, merci !

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 :

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 ?

Merci !

jo1177

 

[BOISGONTIER]

Re : Convertir infos celulles en commentaires

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

 

[jo1177]

Re : Convertir infos celulles en commentaires

Re,

Super, c'est parfait !

Merci beaucoup !!

A bientôt.

jo1177