Somme sans doublons entre 2 bornes

[gerardphi]

Bonjour,

Comment faire une somme sans doublons entre 2 bornes (ligne 25 à 31 de la colonne BB)
Exemple: Résultat=18 au lieu de 32
BB25 :4 BB25 :4
BB26 :5 BB26 :5
BB27 :4 BB27 :0
BB28 :6 BB28 :6
BB29 :5 BB29 :0
BB30 :3 BB30 :3
BB31 :5 BB31 :0

Comment rechercher la première et dernière ligne de ligne identique
Ex
B5: Lyon
B6: Lyon
B7: Lyon
B8: Nantes
B9: Nantes
B10: Nantes
B11: Nantes

Résultat
Pour Lyon : de la ligne 5 à 7
Pour Nantes : de la ligne 8 à 11

Merci
Cdt

 

[hoerwind]

Re : Somme sans doublons entre 2 bornes

Bonjour,

Il est recommandé sous la charte de ce forum, dans le but de faciliter les recherches ultérieures sous les anciens messages, de ne poser qu'une seule question par message.

Vois les propositions sous le pièce jointe, en espérant qu'elles répondent à tes demandes.

 

[Softmama]

Re : Somme sans doublons entre 2 bornes

Bonjour gerardphi,

Tu poses 2 questions. Pour la première, ce code est efficace : (Note que pour gérer la zone BB25:BB31, il faut appliquer un filtre sur BB24:BB31.

Sub PasDoublons()
    Range("BB24:BB31").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("IV1"), Unique:=True
    MsgBox "La somme est " & Application.Sum([IV:IV]) - [IV1]
    Columns(256).Delete
End Sub

Je dois me sauver là, pas le tps de répondre à la seconde de suite.
a+

 

[Monique]

Re : Somme sans doublons entre 2 bornes

Bonjour,

Les n° de ligne des 1ers et derniers doublons
Et puis la liste des doublons aussi

 

[Monique]

Re : Somme sans doublons entre 2 bornes

Re,

La somme des valeurs sans compter les doublons

En donnant le nom « Val » à la plage contenant les valeurs,

=SOMMEPROD(Val/NB.SI(Val;Val))

 

[gerardphi]

Re : Somme sans doublons entre 2 bornes

Merci de votre aide!!!!

Bon AM
Cdt