Sommeprod/sumproduct en VBA sans formule

  • Initiateur de la discussion Initiateur de la discussion spider
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

spider

Guest
Bonjour,

Quel beau week -end nous avons là :
il pleut, le temps est suicidaire tout comme moi qui après des heures de recherche sur internet, les archives du forum a envie de mourrir.

Mon problème ?

Oh rien juste une +!!<*@... de macro qui m'embête un peu.

A savoir,

Je souhaite simplemment utiliser la fonction sommprod ou sumproduct en vba.
1-Sans utiliser de cellule intermédiare
2-En faisnant un tri sur les valeurs additionnées grâce à un critère.
3-Mettre mon résultat dans un variable

En d'autre mots, si en excel je devais écrire :

=SOMMEPROD((A1:A10)*((B1:B10)='Titi'))

j'aurais la somme des Titi.

Eh ben... je veux pareil en VBA, mais je fais choux blanc depuis hier.

J'ai pensé utiliser la fonction
Application.WorksheetFunction.Sumproduct(range(A1:A10),range(B:B10))
Résultat : rien!


Voilà tout j'espère avoir été clair.

Merci.

Alec
 
Bonsoir Spider, Hervé, le Forum.

Juste pour le fun car la solution d'Hervé est sans nul doute celle que j'aurais appliqué de toute façon...

On peut aussi faire :
Range('C1') = Evaluate('SumProduct(A1:A10 * (B1:B10 = ''Titi''))')
ou
Dim Plage1 As String, Plage2 As String
Dim
Chaine As String
      Plage1 = Range('A1:A10').Address
      Plage2 = Range('B1:B10').Address
      Chaine = 'Titi'
      Range('C1') = Evaluate('SumProduct(' & Plage1 & '*(' & Plage2 & '=''' & Chaine & '''))')
Cordialement.
 
Hello,

Hervé, patrick, mydearfriend (j'adore ton pseudo)...

En effet la solution d'hervé est facilement mise en euvre...cependant au delà d'un certain nombre de critères ça ralentit le déroulement de la macro.

Même pour le fun ta solution me plait ...celle de patrick aussi d'ailleurs (c'est a même non? enfin pour le premier).

En bref comme d'hab, vous assurez.

Merci les gars.

Spider
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
12
Affichages
468
Réponses
4
Affichages
1 K
Réponses
16
Affichages
2 K
Retour