Discussion :

[rossemma]

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

[ARTURO83]

Bonjour,

Exemple à adapter à votre fichier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub worksheet_activate()
    Dim Sel1 As Range, Sel2 As Range
    Dim Cel As String
    Dim DerLig As Long
 
    DerLig = [A1000].End(xlUp).Row 'Dernière ligne de la plage à tester
    Set Sel1 = Range("$A$2:$A$" & DerLig) 'Plage à tester
    Set Sel2 = Range("$B$2:$B$" & DerLig) 'Plage à additionner
    Cel = [D2] 'Critère
    [E2] = WorksheetFunction.SumIf(Sel1, Cel, Sel2)
End Sub

avec le fichier:
Pièce jointe 431655

Question: Pourquoi dans: Private Sub worksheet_activate() ?

Cdlt

[rossemma]

Merci
J'ai cherché et j'ai un peu changé le code.

Cependant, il me donne une erreur d’exécution 424 - objet requis en ligne n° 13. Pourquoi ??

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
16
17
18
19
Sub analysetest()
 
Dim sel1, sel2, cel As Variant
Dim i As Byte
Dim h As Variant
 
    h = Application.CountA(sh_Analyse.Range("A1:A" & sh_Analyse.UsedRange.Rows.Count - 1))
    sel1 = sh_GlobalKrc.Range("G2:G" & sh_GlobalKrc.UsedRange.Rows.Count)
    sel2 = sh_GlobalKrc.Range("D2:D" & sh_GlobalKrc.UsedRange.Rows.Count)
 
For i = 1 To h
 
    Range("C" & i) = WorksheetFunction.SumIf(sel1, cel, sel2)
 
Next
 
 
 
End Sub

[ARTURO83]

Bonjour,

Déjà, ce serait bien d'ajouter les 2 dernières lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Dim sel1, sel2, cel As Variant
    Dim i As Byte
    Dim h As Variant
    Set sh_Analyse = Sheets("Analyse")
    Set sh_GlobalKrc = Sheets("GlobalKrc")

Ensuite, que vaut la variable "Cel" dans:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C" & i) = WorksheetFunction.SumIf(sel1, cel, sel2)

Enfin pour faire propre, ajouter ces 2 lignes avant l'instruction End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Set sh_Analyse = Nothing
    Set sh_GlobalKrc  = nothing

Cdlt

[rossemma]

Code modifié comme demandé.
Mais pour les 2 lignes set ajoutée, il me dit erreur de compilation, utilisation incorrecte de la propriété

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
16
17
18
19
20
21
22
23
24
25
26
Sub analysetest()
 
Dim sel1, sel2, cel As Variant
Dim i As Byte
Dim h As Variant
Set sh_Analyse = Sheets("Analyse")
Set sh_GlobalKrc = Sheets("GlobalKrc")
 
    h = Application.CountA(sh_Analyse.Range("A1:A" & sh_Analyse.UsedRange.Rows.Count - 1))
    sel1 = sh_GlobalKrc.Range("G2:G" & sh_GlobalKrc.UsedRange.Rows.Count)
    sel2 = sh_GlobalKrc.Range("D2:D" & sh_GlobalKrc.UsedRange.Rows.Count)
 
 
For i = 1 To h
 
    cel = Range("A" & i)
    Range("C" & i) = Application.WorksheetFunction.SumIf(sel1, cel, sel2)
 
Next
 
    Set sh_Analyse = Nothing
    Set sh_GlobalKrc = Nothing
 
 
 
End Sub

[ARTURO83]

Vos 2 feuilles s'appellent bien "Analyse" et "GlobalKrc" ?