XL 2013 mettre une formule maricielle en code vba

[grisan29]

bonjour a tous

dans une feuille que je remplie tous les mois en copiée/collée du net a excel je me trouve confronté a la formule de somme insuffisant car je reçois des données chiffrées en 1 234 avec un espace des milliers, j'arrive quand même a faire le total de la colonne grâce a une formule matricielle

=SOMME(SIERREUR(CNUM(SUBSTITUE(F2:F84;CAR(160)))

qui est cellule 85

mon souci est que chaque mois le nombre de données est différent et dépasse des fois les 120 lignes et d'autres juste 80
alors je pensais qu'en la traduisant en vba je pourrai via macro l'appliqué a la suite de la dernière ligne écrite

j'ai bien essayer avec l'enregistreur mais il démarre a une cellule fixe

Range("F85").FormulaArray = _
        "=SUM(IFERROR(VALUE(SUBSTITUTE(R[-83]C:R[-1]C,CHAR(160),)),))"

je suis un perdu dans ce cas

Pascal

 

[BigDaddy154]

Re : mettre une formule maricielle en code vba

Bonsoir,

à tester voir si ça peut te convenir.

Cordialement.

 

[grisan29]

Re : mettre une formule maricielle en code vba

bonsoir BigDaddy154

merci de ta réponse on ne peux plus rapide et efficace, la seule chose que je n'ai pas dit est que les colonnes
H à L ont aussi un calcul matricielle, mais avant que tu me répondes, je vais essayer avec ton merveilleux et code efficace

Merci Beaucoup

Pascal

 

[gosselien]

Re : mettre une formule maricielle en code vba

Bonjour,

teste ceci:

Sub tot()
Last = [f65000].End(xlUp).Row + 1: der = 0 - Last
Range("f" & Last + 1).FormulaArray = _
"=SUM(IFERROR(VALUE(SUBSTITUTE(R[-1]C:R[" & der & "]C,CHAR(160),)),))"
End Sub

 

[grisan29]

Re : mettre une formule maricielle en code vba

bonsoir Gosselien bigdaddy154

merci beaucoup cela fonctionne très bien exactement comme le code de bigdaddy154

cela va être dur de faire un choix mais je suis tranquille j'archive les 2 versions

merci messieurs 10/10

depuis le temps que je l'avais demandé ici

Pascal