Somme entre 3 colonnes pour chaque ligne sous VB10

Résolu/Fermé
pacomby - 12 juil. 2015 à 10:46
 pacomby - 12 juil. 2015 à 11:32
Bonjour,

J'utilise Visual Basic 2010.
A l'aide d'un nouveau module, je veux actualisé une feuille "feuil1" à la fermeture d'un formulaire (clique sur un bouton).
Donc mon code est indépendant et se situe dans un module, "module1".

Ma base de donnée début à la ligne 3 (libellé précédemment) et bouge au fil du temps.
Donc je veux que pour chaque ligne de ma BD, la somme de 3 cellules s'additionne dans une quatrième (G3=D3-E3+F3).
J'arrive à faire le code de la première ligne avec ce qui suit :

Sub Sum()
Set Ws = Sheets("Feuil1")
Ws.Range("G3").Value = WorksheetFunction.Sum(Range("D3"), -Range("E3"), Range("F3"))
End Sub


J'ai essayé des choses avec [A65000].End(xlUp).row mais je bloque.

Pouvez vous m'aider, s'il vous plait ? :D

http://www.cjoint.com/c/EGmiGhWPUO6

Merci
Pierre-Antoine
A voir également:

1 réponse

Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 333
12 juil. 2015 à 11:23
Bonjour
Sub SumEOH()
Application.ScreenUpdating = False
Set Ws = Sheets("Feuil1")
For i = 3 To [B10000].End(xlUp).Row
Cells(i, 7) = Cells(i, 4) - Cells(i, 5) + Cells(i, 6)
Next i
End Sub
Cdlt
0
Merci Frenchie
0