HELP: Une formule magiqe HELP!!

[abysses]

Bonjour,
Voilà ceci sera peut etre simple pour certain mais pour moi OUFFF!!
Pour faire simple, c'est pour le calcul d'un budget.
J'aimerais additionner les valeurs B n'appartenant qu'à une certaine catégorie...
Dans la colonne D j'ai A,A1,A2,et encore un A. Dans la colonne E j'ai B,B1B2 et encore un B. Dans la colonne F j'ai C,C1,C2, et encore un C.
Je voudrai avoir une formule pour en total la somme des B n'appartenant qu'au A mais sans avoir à les sélectionner un par un donc de façon auto par rapport à la colonne D.
J'espère ne pas être trop touffu du ciboulot!!
Merci d'avance de votre aide...

 

[JNP]

Re : HELP: Une formule magiqe HELP!!

Bonjour Abysses et bienvenue 🙂,
Pas sûr d'avoir tout compris... Essaye

=SOMMEPROD((D4:D7="A")*(E4:E7="B")*F4:F7)

Bonne soirée 😎

 

[job75]

Re : HELP: Une formule magiqe HELP!!

Bonsoir abysses, bienvenue sur XLD,

Je voudrai avoir une formule pour en total la somme des B n'appartenant qu'au A mais sans avoir à les sélectionner un par un donc de façon auto par rapport à la colonne D.

Pas bien claires ces explications 🙁

Et puis profitez en pour mettre des nombres dans les colonnes DEBIT CREDIT, ça évitera qu'on se fatigue inutilement, et donnez le résultat que vous voulez obtenir.

Edit : salut Jean-Noël

A+

 

[JHA]

Re : HELP: Une formule magiqe HELP!!

Bonsoir Abysses, le forum,

pour avoir la somme des "A" par rapport au "Débit"

=SOMMEPROD(($D$4:$D$7="A")*($E$4:$E$7="B"))
ou
=SOMMEPROD(($D$4:$D$7="A")*($E$4:$E$7))
ou
=SOMME.SI($D$4:$D$7;"A";$E$4:$E$7)

Edit: Bonsoir JNP; Job75
JHA

 

[fhoest]

Re : HELP: Une formule magiqe HELP!!

bonjour,
dans l'editeur vba mettre ce bout de code et essayer de mettre des chiffres a la place des B.
je pense que c'est ce que tu as besoin



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim total As Variant
Range("d3").Activate
Do

ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = "A" Then
total = total + ActiveCell.Offset(0, 1).Value
Else
End If
Loop Until ActiveCell.Value = ""
Range("h4").Value = total
End Sub

fhoest.

 

[fhoest]

Re : HELP: Une formule magiqe HELP!!

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


' plutot mettre sub calcul() a l'aide d'un module et d'un bouton de commande 'car ca boucle toujours a cause de l'evenement sheetchange ,desolé fhoest.
sub calcul()
Dim total As Variant
Range("d3").Activate
Do

ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = "A" Then
total = total + ActiveCell.Offset(0, 1).Value
Else
End If
Loop Until ActiveCell.Value = ""
Range("h4").Value = total
End Sub

fhoest.

remplacer l'instruction rouge par sub calcul () dans un module (vba)et un bouton de commande qu'il appel ce module(calcul)

 

[abysses]

Re : HELP: Une formule magiqe HELP!!

Franchement super et merci beaucoup à tous, sa fonctionne parfaitement...Que du bonheur, oui c'était pas forcement clair mais j'apprécie beaucoup le retour...Heureux de savoir qu'il y a des site qui ne sont pas fait pour et que pour et par des Mr trou de nez