Somme de cellules selon critère Résolu/Fermé

Question

Bonjour,

Je souhaiterais créer un programme qui recherche dans ma colonne B les lignes dont les chiffres sont supérieurs à 60000000 et qui somme les montants de la colonne G qui correspondent à ces mêmes lignes.

J’ai essayé avec la formule suivante mais elle m’affiche la somme de la colonne G entière et pas seulement sur les lignes dont le chiffre en B est > 60000000

Option ExplicitConst lignedeb = 2Sub test()Dim lignefinDim iDim sommeWith ActiveSheetlignefin = .Range("B" & Rows.Count).End(xlUp).RowFor i = 1 To Range("B" & Rows.Count).End(xlUp).RowIf Cells(i, 2).Value >= 60000000 Thensomme = Application.WorksheetFunction.Sum(Range("G" & lignedeb & ":G" & lignefin))MsgBox (somme)End IfNext iEnd WithEnd Sub

Pouvez-vous m’aider ?
Merci d’avance

ccm81 · Answer

Bonjour

Essaies ceci
Const lideb = 2

Sub test()
Dim lifin As Long, i As Long, somme
With ActiveSheet
  lifin = .Range("B" & Rows.Count).End(xlUp).Row
  somme = 0
  For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
    If Range("B" & i).Value >= 60000000 Then
      somme = somme + Range("G" & i).Value
    End If
  Next i
  MsgBox somme
End With
End Sub
NB. Penses à la coloration syntaxique

Cdlmnt

ccm81 · Answer

Peut être que dans ta colonne G ou B tu n'as pas que des numériques, tu ajoutes un test 
Const lideb = 2

Sub test()
Dim lifin As Long, i As Long, somme
With ActiveSheet
  lifin = .Range("B" & Rows.Count).End(xlUp).Row
  somme = 0
  For i = 1 To lifin
    If IsNumeric(Range("G" & i).Value) And IsNumeric("B" & i).Value Then
      If Range("B" & i).Value >= 60000000 Then
        somme = somme + Range("G" & i).Value
      End If
    End If
  Next i
  MsgBox somme
End With
End Sub
Pour ta procedure, tu déplaces le MsgBox après Next i (en dehors de la boucle for i ...)
Pour la coloration syntaxique, tu selectionnes le code puis la flèche vers le bas en haut à droite de la fenêtre d'édition

Cdlmnt

Somme de cellules selon critère

2 réponses

Discussions similaires