Macro : mettre formules dans un commentaire

-1

Bonjour,

Je cherche une macro qui pourrait copier les formules qui sont dans une cellule dans un commentaire attaché à la cellule puis copier coller valeur la formule de cette cellule.
En somme, cellule de départ avec formule, après passage de la macro, formule en commentaire et cellule en valeur.
Et idem en sens inverse, pouvoir remettre la formule qui est dans le commentaire dans la cellule et supprimer le commentaire.
Je souhaiterais pouvoir le faire sur une plage de cellule qui ne serait d'ailleurs pas forcément continue...

Merci beaucoup.
J'ai essayé des macros dans tous les sens mais étant débutante... j'ai du mal !

À toutes fins utiles, j'ai joint un fichier ex très basique ce sera peut-être plus parlant : http://www.cjoint.com/c/EJwi3jLseA2

Merci de votre aide

Posté le 22 octobre 2015, 10:56
par bb
Répondre
-1

J'ai eu une réponse par ailleurs pour ceux qui seraient intéressés!

'Place la formule en commentaire
Sub FormuleToComment()
	Dim c As Range
	For Each c In Selection
		With c
			If Not .Comment Is Nothing Then .Comment.Delete
			.AddComment .Formula
			.Value = .Value
		End With
	Next c
End Sub

'Remet le texte du commentaire dans la cellule et supprime le commentaire
Sub CommentToFormule()
	For Each c In Selection
		With c
			If Not .Comment Is Nothing Then
				.Formula = .Comment.Text
				.Comment.Delete
			End If
		End With
	Next c
End Sub

Encore merci à tous !

Posté le 22 octobre 2015, 11:45
par bb

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :