Somme d'une plage sans répitition

Victor21

XLDnaute Barbatruc

Supporter XLD

• 13 Décembre 2011

• #2

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))

Cliquez pour agrandir...

 

Dernière édition: 13 Décembre 2011

Vote positif 0 Vote négatif

T

tdenfert

XLDnaute Impliqué

• 13 Décembre 2011

• #3

Re : Somme d'une plage sans répitition

bonjour,

Une solution avec une colonne intermediaire

 

Pièces jointes

• somme sans doublons.xls

  13.5 KB · Affichages: 57

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 13 Décembre 2011

• #4

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

Code:

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

 

Dernière édition: 13 Décembre 2011

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 13 Décembre 2011

• #5

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

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 13 Décembre 2011

• #6

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

 

Pièces jointes

• somme spéciale.xlsx

  8.3 KB · Affichages: 65

Dernière édition: 13 Décembre 2011

Vote positif 0 Vote négatif

Adamev

XLDnaute Occasionnel

• 13 Décembre 2011

• #7

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!

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Décembre 2011

• #8

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 🙂.

 

Pièces jointes

• 00 - Adamev - Somme sans doublon.xls

  60.5 KB · Affichages: 57

Vote positif 0 Vote négatif

Adamev

XLDnaute Occasionnel

• 14 Décembre 2011

• #9

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.

 

Dernière édition: 16 Décembre 2011

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 14 Décembre 2011

• #10

Re : Somme d'une plage sans répitition

Re,

Adamev à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Décembre 2011

• #11

Re : Somme d'une plage sans répitition

Bonjour, le Fil, le Forum,

Victor21 à dit:

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

Cliquez pour agrandir...

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

A bientôt.

 

Vote positif 0 Vote négatif