Somme en Vba

[SylvainPG]

Salut,

Voila, j'ai un petit problème. Je souhaite faire en VBA une somme. J'ai un tableau excel avec en première colonne un numéro de cuve et ensuite tout un tas de valeur.Il me faut faire un produit de la cellule 10 avec la cellule 12 de chaque cuve et de sommer tous ces résultats.Voilà mon programme.Je suis ultra débutant en vba, je suis en fait mécanicien et je ne suis pas à mon aise sur ce type d'exercice. Merci d'avance pour vos réponses 🙂


Function b() As Double
Dim i As Integer
Dim a As Double

b = ""
With worksheets("cuves")

For i = 2 To 100
a = (cells(i, 12)) * (cells(i, 10))
b = b * a
Next i

End With

End Function

 

[wilfried_42]

Re : Somme en Vba

Bonjour et bienvenue

un formule est plus rapide et plus simple qu'une fonction persnalisée en VBA

il faut nommer les colonnes concernées : Menu insertion / Nom / Definir

Cuve nom de la colonne des n° de cuve
col10 : nom de la colonne 10
col12 : nom de la colonne 12

=SommeProd((cuve="Sonnumero")*(col10*col12))

Si tu avais joint un petit fichier sans donnée confidentielle <= 48,8 Ko en format Zip, ca aurait ete plus simple

 

[SylvainPG]

Re : Somme en Vba

Merci de ta réponse,

Mais le nombre de cuve n'est pas toujours le même et peut varié énormément.Ce programme doit être capable d'exécuter le calcul d'une façon général. Il me semble que la formule sommeprod ne sois pas appropriée. Je voulais que pour la premiere cuve, il calcul le produit en question, ensuite il l'ajoute au produit de la deuxième cuve, ensuite à la troisième et ainsi de suite...jusque n cuves.

>en tout cas merci pour le sommeprod ça me servira à un autre endroit 🙂

Sylvain

 

[wilfried_42]

Re : Somme en Vba

re:

envoie un bout du fichier et tu verra que sommeprod fonctionne tres bien, il suffit pour cela de nommer des plages dynamiques

@ te lire

 

[SylvainPG]

Re : Somme en Vba

Okay, okay!!

C'est pigé, effectivement ça fonctionne très bien!! Merci de ton aide (on notera le temps de percussion du mécanicien type :s )

Merci a toi Wilfried et bonne journée