Somme avec conditions

bonjour le fofo !

je cherche à faire la somme d'une colonne en éliminant les doublons

une solution sans TCD ?

merci !!!!!!!!

Bonjour le forum,

Voir le fichier joint.

MERCI MBBP !

je vais appliquer...

bonne soirée !

Bonjour Marco, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim D As Object 'déclare la variable D (Dinctionnaire)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TMP As Variant 'déclare la variable TMP (tableau TeMPoraire)

Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    D(TV(I, 2)) = "" 'alimente le dictionnaire D avec les données de la colonne 2 du tableau des valeurs TV
Next I 'prochaine ligne de la boucle
TMP = D.keys 'récupère dans le tableau temporaire TMP la liste des éléments du dictionnaire D sans doublon
For I = 0 To UBound(TMP) - 1 'boucle sur tous les éléments du tableau temporaire TMP
    T = T + CInt(TMP(I)) 'définit le total T
Next I 'prochain élément de á boucle
O.Range("C2:C6").Value = T 'renvoie la valeur de T dans la cellule fusionnée C2:C6
End Sub

bonjour ThauThème

après une absence, merci pour l'info

finalement, je ne suis pas passé par une macro

bonne journée !