Additionner SI
Résolu
DUL-VBA
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
DUL-VBA Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
DUL-VBA Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
1 réponse
Bonjour
Pourquoi en VBA? cela se fait très simplement avec la formule Excel SOMME.SI ?
Si c'est pour apprendre, code très basique (il y a mieux !!!):
Mais:
Toujours penser Excel avant de penser VBA
Michel
Pourquoi en VBA? cela se fait très simplement avec la formule Excel SOMME.SI ?
Si c'est pour apprendre, code très basique (il y a mieux !!!):
Option Explicit
Sub additionner_si()
Dim Derlig As Integer, Lig As Integer, Somme As Double
Application.ScreenUpdating = False
With Sheets(1)
Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row
For Lig = 1 To Derlig
If .Cells(Lig, "A") = UCase("g") Then Somme = Somme + .Cells(Lig, "B")
Next
End With
Sheets(2).Range("O14") = Somme
End Sub
Mais:
Toujours penser Excel avant de penser VBA
Michel
En effet ,la fonction SOMMESI est adaptée.
Et merci aussi pour le code!