Faire la somme de produits ?

Bonjour,

Je souhaite faire la multiplication de la valeur dans E3 avec celle de la cellule d'à côté et ainsi de suite jusqu'à la dernière ligne de ma feuille. Puis afficher la somme de tous ses produits dans K1.

Voilà pour la première ligne mais je n'arrive pas à trouver la solution pour les ligne suivantes

Range("K1").Value = Application.WorksheetFunction.Sum(Range("E3").Value) * (Range("E3").Offset(0, 1).Value)

Merci d'avance

Bonjour,

essaye ce code.

Sub calcul()
    dlf = Range("e" & Rows.Count).End(xlUp).Row
    For i = 3 To dlf
        Total = Total + Range("e" & i) * Range("f" & i)
    Next i
    Range("k1") = Total
End Sub

Cordialement.

Tu es obligé d efaire cela en VBA ?

En formule, voici ce que cela donne :

= SOMMEPROD((E3:E100)*(F3:F100))

et pour l'avoir en VBA tu peux utiliser l'apprentissage d'une nouvelle macro

ensuite tu peux ajuster 100 à la dernière ligne détectée par

derLigne = Range("E3").End(xlDown).Row

Autre solution, celle de BigDaddy !

Tout d'abord merci de m'avoir répondu, j'ai essayé le code de Bigdaddy qui fonctionne dans la plupart des feuilles de mon classeur mais pas dans toutes (erreur d’exécution 13). Il arrive que des cellules soit remplies en alpha numérique et je ne souhaiterais pas en tenir compte.

Pour simplifier je veux multiplier les chiffres et passer lorsque qu'il y des lettres. Est ce possible ?

Bonsoir,

essaye comme ceci.

Sub calcul()
    dlf = Range("e" & Rows.Count).End(xlUp).Row
    For i = 3 To dlf
        If IsNumeric(Range("e" & i)) = True And IsNumeric(Range("f" & i)) = True Then
            Total = Total + Range("e" & i) * Range("f" & i)
        End If
    Next i
    Range("k1") = Total
End Sub

Cordialement.

Merci beaucoup c'est parfait.