Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 mettre une formule maricielle en code vba

grisan29

XLDnaute Accro
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
Code:
Range("F85").FormulaArray = _
        "=SUM(IFERROR(VALUE(SUBSTITUTE(R[-83]C:R[-1]C,CHAR(160),)),))"

je suis un perdu dans ce cas

Pascal
 

Pièces jointes

  • test matricielle.xlsm
    21.7 KB · Affichages: 34
  • test matricielle.xlsm
    21.7 KB · Affichages: 40
Dernière édition:

grisan29

XLDnaute Accro
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

XLDnaute Barbatruc
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

XLDnaute Accro
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…