Bonjour,

j'ai un peu cherché et taper ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Private Sub worksheet_activate()
 
'Dim sel1, sel2, cel As Variant
'dim i as integer
 
'For i = 1 To 159
'Next
 
'sel1 = sh_GlobalKrc.Range("G2:G" & sh_GlobalKrc.UsedRange.Rows.Count)
'sel2 = sh_GlobalKrc.Range("D2:D" & sh_GlobalKrc.UsedRange.Rows.Count)
'cel = range("A" & i)
 
'WorksheetFunction.SumIf(sel1, cel, sel2)
 
'End Sub
Donc j'ai en colonne A, la valeur cherchée et dans la colonne C je voudrais faire la somme.
Je ne voudrais pas répéter la formule, donc j'ai pensé à une boucle MAIS ????

Merci pour votre aide