Somme d'une plage sans répitition

[Adamev]

Bonjour à tous;
Mon souci est le suivant:
Dans une plage j'ai des nombres, distincts ou égaux. J'aimerais avoir par formule, ou par VBA, la somme de ces nombres à condition que lorsqu'un nombre est répété il ne soit pris dans la somme qu'une seule fois.
Merci d'avance

 

[Victor21]

Re : Somme d'une plage sans répitition

Bonjour, Adamev.

Comme vous n'avez pas jugé utile de joindre un fichier (paragraphe C3 de Lien supprimé), et plutôt que risquer de vous fournir une proposition qui risque de ne pas répondre à votre attente, et vous faire perdre du temps, j'essaie de deviner comment sont organisées vos données dès que j'ai un moment.

Edit : Les données dans champ, sans vide, essayez :

=SOMME(SI(FREQUENCE(champ;champ)>0;champ))

 

[tdenfert]

Re : Somme d'une plage sans répitition

bonjour,

Une solution avec une colonne intermediaire

 

[BOISGONTIER]

Re : Somme d'une plage sans répitition

Bonjour,

Champ sans cellule vide

=SOMMEPROD(champ*(1/NB.SI(champ;champ)))

Si cellules vides

=SOMME(SI(champ<>"";champ*(1/NB.SI(champ;champ))))
Valider avec maj+ctrl+entrée

Avec fonction perso

Function SommeSansDoublons(champ As Range)
  Set d = CreateObject("Scripting.Dictionary")
  For Each c In champ
   If Not d.exists(c.Value) Then
    d(c.Value) = ""
    s = s + c.Value
   End If
  Next c
  SommeSansDoublons = s
End Function

JB

 

[fredl]

Re : Somme d'une plage sans répitition

autre solution...
paramétrer la plage

Sub essai()
Set MaPlage = Range("B4:B11") 'cellules à traiter(sommer sans doublon)
'recencer les doublons et les mettre en italic
For Each vcell In MaPlage
'passer les cellules en italiques
If vcell.Font.Italic = True Then GoTo 100

MaPlage.Select
For Each wcell In Selection
If vcell.Value = wcell.Value Then
n = n + 1
If n > 1 Then wcell.Font.Italic = True
End If
Next
100 n = 0
Next
'ne sommer que ce qui n'est pas en italique
For Each Xcell In MaPlage
If Xcell.Font.Italic = False Then
Somme = Somme + Xcell.Value
End If
Next
MsgBox "la somme est " & Somme
End Sub

 

[CISCO]

Re : Somme d'une plage sans répitition

Bonjour

Pour le fun, une autre méthode en pièce jointe, avec des formules matricielles à valider avec ctrl+maj+entrer.

@plus

 

[Adamev]

Re : Somme d'une plage sans répitition

Bonjour Victor21, tdenfert, BOISGONTIER, fredl, CISCO, le fil

Un grand merci à vous tous. Toutes vos réponses répondent bien à mon attente. Je suis fier d'être membre dans ce magnifique forum.
Merci encore!

 

[DoubleZero]

Re : Somme d'une plage sans répitition

Bonjour, le Fil, le Forum,

Bien que "tortueuse" 😱, ma petite contribution dans le fichier joint.

A bientôt 🙂.

 

[Adamev]

Re : Somme d'une plage sans répitition

Bonjour DoubleZéro, le fil
Merci pour pour votre contribution. C'est un plus trés important pour moi qui suis débutant en VBA.

 

[Victor21]

Re : Somme d'une plage sans répitition

Re,

Bonjour DoubleZéro, le fil
Merci pour pour votre contribution. C'est un plus trés important pour moi qui suis dédutant en VBA.

On a tous déduté quelque chose un jour ! 😛
Sinon, il est grand temps...😛😛😛

 

[DoubleZero]

Re : Somme d'une plage sans répitition

Bonjour, le Fil, le Forum,

... On a tous déduté quelque chose un jour ! 😛
Sinon, il est grand temps...😛😛😛

... Et tant qu'on est vivant, on est débutant 🙂 !

A bientôt.