Macro pour automatiser le ctrl shift (rendre matricielles) les formules

[LPandre]

Bonjour,
supposons une plage quelconque de cellules.
Il y a des formules dans ces cellules.
Les formules sont différentes d'une cellule à l'autre et saisies "normalement", c'est à dire sans le ctrl shift qui les rends matricielles
Je souhaiterais avoir une macro qui passe sur toutes les cellules en question et qui les rende matricielles.
En clair qui fasse le ctrl shift enter à ma place.


Est ce possible? Et si oui...merci de m'aider à le faire.

 

[Softmama]

Re : Macro pour automatiser le ctrl shift (rendre matricielles) les formules

Bonjour,

tu peux essayer cette macro qui te convertira toutes les formules de la Feuil1 en formules matricielles :

Sub essai()
'Pour chaque cellule de la feuil1 qui a une formule
For Each c In Feuil1.Cells.SpecialCells(xlCellTypeFormulas)

  'Si y a une formule alors la formule matricielle = la formule d'origine
  If c.HasFormula Then c.FormulaArray = c.Formula

Next
End Sub

 

[LPandre]

Re : Macro pour automatiser le ctrl shift (rendre matricielles) les formules

Bonjour,
Je viens de tester, ça ne fonctionne pas.
J'ai un message d'erreur :

******
erreur d'exécution '1004'
Impossible de définir la propriété FormulaArray de la classe range.
******
A l'occasion....

Par avance merci.