XL 2010 SOMMEPROD(('1'!A:D=A1)*('1'!C:C)) Dans une boucle VBA

Gégé-45550

XLDnaute Accro

• 11 Juillet 2023

• #2

ninos06 à dit:

Salut à vous

je voudrais bien utiliser SOMMEPROD(('1'!A=A1)*('1'!C:C)) Dans une boucle VBA

comme le fichier ci-joint

mes salutations

Cliquez pour agrandir...

Bonsoir,
Votre question n'est pas claire.
Soit vous voulez écrire un code qui permettra d'obtenir des résultats identiques à la fonction SOMMEPROD, soit vous utilisez celle-ci.
Mais quel intérêt d'écrire du code alors que cette fonction vous donne déjà les résultats souhaités ?
Cordialement,

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Juillet 2023

• #3

Bonsoir.
Pourquoi une boucle et pourquoi cette fonction ?

VB:

Sub Test()
   Dim L1 As Long, L2 As Long
   L1 = Feuil1.[A1000000].End(xlUp).Row
   L2 = Feuil2.[A1000000].End(xlUp).Row
   With Feuil2.[B1].Resize(L2)
      .FormulaR1C1 = "=SUMIF('1'!R1C1:R" & L1 & "C1,RC1,'1'!R1C3:R" & L1 & "C3)"
      .Value = .Value
      End With
   End Sub

 

Vote positif 0 Vote négatif

N

ninos06

XLDnaute Nouveau

• 11 Juillet 2023

• #4

merci mr Dranreb
pour la réponse ça donne les résultats que je cherche
mes salutations

 

Vote positif 0 Vote négatif

Jean-Eric

XLDnaute Occasionnel

• 12 Juillet 2023

• #5

@ninos06,
Penses à clore le sujet sur les autres forums (?).
Des réponses ont été apportées à ta demande.
Pas cordialement.

 

Vote positif 0 Vote négatif