Subtotal dans userform

[hidozo]

bonsoir,


En cliquant sur un bouton, je veux réaliser un soustotal d'une colonne d'une feuille et que le résultat se mette dans la cellule d6 d'une autre feuille.

Ca ne marche pas :
Pour cett solution, il n'y a que la valeur 1 ou rien dans la colonne

Worksheets("feuil3").Select
Range("d6") = Application.WorksheetFunction.Subtotal(3, Worksheets("feuil2").Range("m"))

J'aurai la même manip, mais avec un choix dans les valeurs (text) de la colonne, possibilité d'avoir 5 mots difrférents dans cette colonne et il me faut les soustotaux

Cordialement

Hidozo

 

[hidozo]

Re : Subtotal dans userform

re
j'ai essayé :
Range("d6").FormulaR1C1 = _
SUMPRODUCT((SUBTOTAL(3,INDIRECT("feuil2!ar"&ROW(ar2:ar10000)))*(Feuil2!ar2:ar10000="Modèle 'Au bon moment'")))

mais ça ne marche pas

 

[hidozo]

Re : Subtotal dans userform

Re,

je me rapproche du résultat !!!!!

Range("d6").Activate
ActiveCell.Formula = Application.Subtotal(3, Worksheets("feuil2").Range("m2:m10000"))

ca fonctionne,

il ne me reste plus qu'à faire l'autre cveriosn,avec choix dans la colonne !!!!

A plus

 

[hidozo]

Re : Subtotal dans userform

Bonsoir

Dans une fonction 'sur la feuille) j'ai INDIRECT dans une SOMMEPROD.

Comment traduire en VBA ?

Cordialement

 

[hidozo]

Re : Subtotal dans userform

je crise grave !!!!

 

[hidozo]

Re : Subtotal dans userform

Bonjour,

J'ai remplacé indirect par sheets (je n'ai trouvé que ça !!!) et ça ne marche toujours pas pour la dernière formule

application.SUMPRODUCT((application.SUBTOTAL(3,sheets("feuil2!ar"&rows(ar 2:ar10000)))*(Feuil2!ar2:ar10000="Modèle 'Au bon moment'")))

??????????