Macro pour rendre formule matricielle

[beabianchini]

Bonjour,

quelqu'un peut-il m'aider?
je possède 2 macros.
Une qui me permet de placer une formule dans le commentaire d'une cellule et de copier coller valeur la dite formule :
Sub FormuleToComment()
Dim c As Range
'place la formule en commentaire
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

et une autre qui me permet de faire l'inverse, c'est-à-dire de placer la formule à la place de la valeur dans la cellule et de supprimer le commentaire ;

Sub CommentToFormule()

'remet le texte du commentaire dans la cellule
'et supprime le commentaire
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


Aujourd'hui je suis embêtée car ma formule est matricielle, donc quand il replace la formule dans la cellule elle est correctement copier mais ne devient pas matricielle (ctrl+alt + entrée).

Quelqu'un saurait-il m'écrire la ligne qui va bien pour qu'il fasse cette fameuse manip pour la rendre matricielle à la fin de la macro commentToFormule?

Merci d'avance!!
bien à vous,

 

[beabianchini]

Re : Macro pour rendre formule matricielle

Bonjour,

j'ai eu la réponse par ailleurs
il faut remplacer Formula par FormulaArray.

Merci beaucoup!