Bonsoir Ask, bonsoir le forum,
Une proposition par VBA :
Sub Macro2()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim I As Integer 'déclare la variable I (Incrément)
Dim SB As Double 'déclare la variable SB (Somme Bal)
Dim SA As Double 'déclare la variable SA (Somme Autres)
Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
TC = O.Range("A1").CurrentRegion 'définit le tableau de cellules TC (à adapter)
For I = 1 To UBound(TC, 1) 'boucle sur toutes les ligne du tabelau TC
'si la valeur en ligne I colonne 1 du tableau TC est "BAL", définit/redéfinit la somme SB
'sinon définit/redéfinit la somme SA
If TC(I, 1) = "BAL" Then SB = SB + TC(I, 2) Else SA = SA + TC(I, 2)
Next I
MsgBox "La somme des données contenant " & Chr(34) & "BAL" & Chr(34) & " est de : " & SB 'message avec la somme SB
MsgBox "La somme des autres données est de : " & SA 'message avec la somme SA
End Sub
Une proposition par formule :
En D1 la formule : =SOMME.SI(A:A;"BAL";B:B)
En E1 la formule : =SOMME(B:B)-D1