Faire somme.si.ens en vba

**ayudame_joel** · 04/07/2018, 18h16

Bonsoir à tous,
je suis actuellement entrain de construit un pricer et j'ai un problème avec mon code au niveau de WorksheetFunction.SumIfs . J'ai essayé un tas de chose pour le résoudre mais rien ne fonctionne.
Aidez moi svp. Merci bcp

Voici mon code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Option Explicit
 
Sub pricer1()
 
Dim i, n, m, poli As Double
Dim taux_grele, taux_temp, taux_arc
Dim rdt_par, rdt_ha, superf, prix_uni, capital_par, prime_grele, prime_temp, prime_arc, prime_totale_grele, prime_totale_temp, prime_totale_arc As Double
Dim donnees As Range
Dim recherche_taux As String
 Sheets("Automatisé").Range("A:Z").ClearContents
 
Application.ScreenUpdating = False
 
'donnees = Sheets("PRICER1_2017").Range("AD2:AF1048576")
Sheets("Automatisé").Range("a1").Value = "Police"
Sheets("Automatisé").Range("c1").Value = "Prime Grêle"
Sheets("Automatisé").Range("e1").Value = "Prime Tempête"
Sheets("Automatisé").Range("g1").Value = "Prime ARC"
'n = Sheets("PRICER1_2017").Cells(Rows.Count, 1).End(xlUp).Row
n = 15
For i = 1 To 1
 
'Retient le numéro de police
poli = Sheets("PRICER1_2017").Cells(i + 1, 1).Value
'Recherche de la clé
    recherche_taux = Sheets("PRICER1_2017").Cells(i + 1, 27).Value & "-" & Sheets("PRICER1_2017").Cells(i + 1, 22).Value & "-" & Sheets("PRICER1_2017").Cells(i + 1, 18).Value
'Taux grêle
    taux_grele = Application.VLookup(recherche_taux, Sheets("PRICER1_2017").Range("ad2:ah142387"), 3, 0)
'Taux tempête
    taux_temp = Application.VLookup(recherche_taux, Sheets("PRICER1_2017").Range("ad2:ah142387"), 4, 0)
'Taux arc
    taux_arc = Application.VLookup(recherche_taux, Sheets("PRICER1_2017").Range("ad2:ah142387"), 5, 0)
'    Sheets("Automatisé").Cells(i + 1, 1).Value = recherche_taux
'    Sheets("Automatisé").Cells(i + 1, 2).Value = taux_grele
 
'Calcul capital assuré
rdt_par = Sheets("PRICER1_2017").Cells(i + 1, 20).Value
superf = Sheets("PRICER1_2017").Cells(i + 1, 19).Value
rdt_ha = (rdt_par / superf) * 100
prix_uni = Sheets("PRICER1_2017").Cells(i + 1, 31).Value
capital_par = rdt_par * prix_uni
 
'Prime grêle
prime_grele = capital_par * taux_grele / 100
'Prime tempête
prime_temp = capital_par * taux_temp / 100
'Prime arc
prime_arc = capital_par * taux_arc / 100
 
'affectation du numéro de police dans la nouvelle feuille
Sheets("Automatisé").Cells(i + 1, 1).Value = poli
'affectation des primes
Sheets("Automatisé").Cells(i + 1, 3).Value = prime_grele
Sheets("Automatisé").Cells(i + 1, 5).Value = prime_temp
Sheets("Automatisé").Cells(i + 1, 7).Value = prime_arc
Next i
 
Sheets("Automatisé").Range("i1").Value = "Prime totale Grêle"
Sheets("Automatisé").Range("k1").Value = "Prime totale Tempête"
Sheets("Automatisé").Range("m1").Value = "Prime totale ARC"
 
'prime_totale_grele = WorksheetFunction.SumIfs(Sheets("Automatisé").Range("C:C").Value, Sheets("Automatisé").Range("A:A").Value, Sheets("Automatisé").Range("A:A").Value)
'prime_totale_temp = WorksheetFunction.SumIfs(Sheets("Automatisé").Range("E:E").Value, Sheets("Automatisé").Range("A:A").Value, Sheets("Automatisé").Range("A:A").Value)
'prime_totale_arc = WorksheetFunction.SumIfs(Sheets("Automatisé").Range("G:G").Value, Sheets("Automatisé").Range("A:A").Value, Sheets("Automatisé").Range("A:A").Value)
 
For i = 1 To n
prime_totale_grele = WorksheetFunction.SumIfs(Sheets("Automatisé").Range("C1:C10"), Range("'Automatisé'!A1:A10"), Range("'Automatisé'!A1:A10"))
prime_totale_temp = WorksheetFunction.SumIfs(Range("'Automatisé'!E1:E10").Value, Range("'Automatisé'!A1:A10").Value, Range("'Automatisé'!A1:A10").Value)
prime_totale_arc = WorksheetFunction.SumIfs(Range("'Automatisé'!G1:G10").Value, Range("'Automatisé'!A1:A10").Value, Range("'Automatisé'!A1:A10").Value)
 
Sheets("Automatisé").Cells(i + 1, 9).Value = prime_totale_grele
Sheets("Automatisé").Cells(i + 1, 11).Value = prime_totale_temp
Sheets("Automatisé").Cells(i + 1, 13).Value = prime_totale_arc
 
 
Next i
Application.ScreenUpdating = True
 
End Sub

**ayudame_joel** · 04/07/2018, 18h19

Au niveau de mon WorksheetFunction.SumIfs, j'obtiens une erreur d'incompatibilité.

**Thautheme** · 04/07/2018, 18h51

Bonjour Joël bonjour le forum,

Te ayudo hombre... Mais ton code comporte des incohérences :

1. déclaration de plusieurs variables sur une même ligne sans spécifier le type à chacune d'entre elles ! Seule la dernière est considérée de type Double et toutes les autres sont de type Variant (par défaut)
NON :

Code :

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

Dim rdt_par, rdt_ha, superf, prix_uni, capital_par, prime_grele, prime_temp, prime_arc, prime_totale_grele, prime_totale_temp, prime_totale_arc As Double

OUI :

Code :

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

Dim rdt_par As Double, rdt_ha As Double, superf As Double, prix_uni, capital_par As Double, prime_grele As Double, prime_temp As Double, prime_arc As Double, prime_totale_grele As Double, prime_totale_temp As Double, prime_totale_arc As Double

2. une boucle de 1 à 1 ?!... C'est nouveau ?!...

Code :

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

For i = 1 To 1

3. La fonction Somme.Si a la syntaxe suivante :

Somme.Si(Plage contenant le critère, critère, plage ou se fait la somme)

Ton code ne permet pas de savoir ce que tu veux faire. Mais ça serait plutôt du style :

Code :

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

prime_totale_grele = WorksheetFunction.SumIfs(Sheets("Automatisé").Range("A1:A15"), Sheets("Automatisé").Cells(i, 1).Value, Sheets("Automatisé").Range("C1:C15))

À adapter bien évidemment car, encore une fois, ni ton code ni tes explications ne permettent de te donner une réponse fiable...

**ayudame_joel** · 04/07/2018, 19h10

Envoyé par Thautheme

Bonjour Joël bonjour le forum,

Te ayudo hombre... Mais ton code comporte des incohérences :

1. déclaration de plusieurs variables sur une même ligne sans spécifier le type à chacune d'entre elles ! Seule la dernière est considérée de type Double et toutes les autres sont de type Variant (par défaut)
NON :

Code :

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

Dim rdt_par, rdt_ha, superf, prix_uni, capital_par, prime_grele, prime_temp, prime_arc, prime_totale_grele, prime_totale_temp, prime_totale_arc As Double

OUI :

Code :

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

Dim rdt_par As Double, rdt_ha As Double, superf As Double, prix_uni, capital_par As Double, prime_grele As Double, prime_temp As Double, prime_arc As Double, prime_totale_grele As Double, prime_totale_temp As Double, prime_totale_arc As Double

2. une boucle de 1 à 1 ?!... C'est nouveau ?!...

Code :

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

For i = 1 To 1

3. La fonction Somme.Si a la syntaxe suivante :

Somme.Si(Plage contenant le critère, critère, plage ou se fait la somme)

Ton code ne permet pas de savoir ce que tu veux faire. Mais ça serait plutôt du style :

Code :

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

prime_totale_grele = WorksheetFunction.SumIfs(Sheets("Automatisé").Range("A1:A15"), Sheets("Automatisé").Cells(i, 1).Value, Sheets("Automatisé").Range("C1:C15))

À adapter bien évidemment car, encore une fois, ni ton code ni tes explications ne permettent de te donner une réponse fiable...

Merci pour votre réponse.
Pour la déclaration des variables je ne savais pas que c’était obligé qu’il fallait que chaque variable devait être déclarée séparément même si elles étaient du même type. Perso cela ne m’a jamais posé de problème mais je prends votre remarque en compte.

Pour ce qui est de la boucle for c’est de 1 à 12 c’était juste un test sinon en réalité jai 200mil ligne.

Demain j’essaie d’appliquer vos remarques et je verrai.
Sinon la somme.si.ens que je souhaite faire est sommer mes primes par id vu que dans mes calculs un id peut avoir plusieurs primes.

Merci encore , je vous tiens informé demain

**ayudame_joel** · 05/07/2018, 09h56

Envoyé par Thautheme

Bonjour Joël bonjour le forum,

Te ayudo hombre... Mais ton code comporte des incohérences :

1. déclaration de plusieurs variables sur une même ligne sans spécifier le type à chacune d'entre elles ! Seule la dernière est considérée de type Double et toutes les autres sont de type Variant (par défaut)
NON :

Code :

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

Dim rdt_par, rdt_ha, superf, prix_uni, capital_par, prime_grele, prime_temp, prime_arc, prime_totale_grele, prime_totale_temp, prime_totale_arc As Double

OUI :

Code :

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

Dim rdt_par As Double, rdt_ha As Double, superf As Double, prix_uni, capital_par As Double, prime_grele As Double, prime_temp As Double, prime_arc As Double, prime_totale_grele As Double, prime_totale_temp As Double, prime_totale_arc As Double

2. une boucle de 1 à 1 ?!... C'est nouveau ?!...

Code :

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

For i = 1 To 1

3. La fonction Somme.Si a la syntaxe suivante :

Somme.Si(Plage contenant le critère, critère, plage ou se fait la somme)

Ton code ne permet pas de savoir ce que tu veux faire. Mais ça serait plutôt du style :

Code :

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

prime_totale_grele = WorksheetFunction.SumIfs(Sheets("Automatisé").Range("A1:A15"), Sheets("Automatisé").Cells(i, 1).Value, Sheets("Automatisé").Range("C1:C15))

À adapter bien évidemment car, encore une fois, ni ton code ni tes explications ne permettent de te donner une réponse fiable...

J'ai corrigé et appliqué ce que vous avez dit, mais j'obtiens cette erreur : Objet requis, au de la ligne de code de la sommeifs.

**ayudame_joel** · 05/07/2018, 10h05

Voici un fichier pour exemple. vous pourrez essayer le code et voir ce qui ne va pas.

**Thautheme** · 05/07/2018, 11h27

Re,

Avec le fichier c'est plus facile... SumIf et pas SumIfs...
Le code modifié :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Explicit
 
Sub pricer1()
Dim I As Integer, N As Integer, poli As Integer
Dim Taux_Grele As Double, Taux_Temp As Double, Taux_Arc As Double
Dim Rdt_Par As Double, Rdt_Ha As Double, Superf As Double, Prix_Uni, Capital_Par As Double, Prime_Grele As Double, Prime_Temp As Double, Prime_Arc As Double, Prime_Totale_Grele As Double, Prime_Totale_Temp As Double, Prime_Totale_Arc As Double
Dim Recherche_Taux As String
Dim Donnees As Range
Dim A As Worksheet
Dim P As Worksheet
 
Application.ScreenUpdating = False
Set A = Worksheets("Automatisé")
Set P = Worksheets("PRICER1_2017")
N = P.Cells(Rows.Count, 1).End(xlUp).Row
A.Range("A:Z").ClearContents
Set Donnees = P.Range("AD2:AH" & N)
A.Range("A1").Value = "Police"
A.Range("C1").Value = "Prime Grêle"
A.Range("E1").Value = "Prime Tempête"
A.Range("G1").Value = "Prime ARC"
A.Range("I1").Value = "Prime totale Grêle"
A.Range("K1").Value = "Prime totale Tempête"
A.Range("M1").Value = "Prime totale ARC"
For I = 2 To N
    'Retient le numéro de police
    poli = P.Cells(I, 1).Value
    'Recherche de la clé
    Recherche_Taux = P.Cells(I, 27).Value & "-" & P.Cells(I, 22).Value & "-" & P.Cells(I, 18).Value
    'Taux grêle
    Taux_Grele = Application.VLookup(Recherche_Taux, Donnees, 3, 0)
    'Taux tempête
    Taux_Temp = Application.VLookup(Recherche_Taux, Donnees, 4, 0)
    'Taux arc
    Taux_Arc = Application.VLookup(Recherche_Taux, Donnees, 5, 0)
    'Calcul capital assuré
    Rdt_Par = P.Cells(I, 20).Value
    Superf = P.Cells(I, 19).Value
    Rdt_Ha = (Rdt_Par / Superf) * 100
    Prix_Uni = P.Cells(I + 1, 31).Value
    Capital_Par = Rdt_Par * Prix_Uni
    'Prime grêle
    Prime_Grele = Capital_Par * Taux_Grele / 100
    'Prime tempête
    Prime_Temp = Capital_Par * Taux_Temp / 100
    'Prime arc
    Prime_Arc = Capital_Par * Taux_Arc / 100
    'affectation du numéro de police dans la nouvelle feuille
    A.Cells(I, 1).Value = poli
    'affectation des primes
    A.Cells(I, 3).Value = Prime_Grele
    A.Cells(I, 5).Value = Prime_Temp
    A.Cells(I, 7).Value = Prime_Arc
Next I
For I = 2 To N
    Prime_Totale_Grele = Application.WorksheetFunction.SumIf(A.Range("A2:A" & N), A.Cells(I, 1).Value, A.Range("C2:C" & N))
    Prime_Totale_Temp = Application.WorksheetFunction.SumIf(A.Range("A2:A" & N), A.Cells(I, 1).Value, A.Range("E2:E" & N))
    Prime_Totale_Arc = Application.WorksheetFunction.SumIf(A.Range("A2:A" & N), A.Cells(I, 1).Value, A.Range("G2:G" & N))
    A.Cells(I, 9).Value = Prime_Totale_Grele
    A.Cells(I, 11).Value = Prime_Totale_Temp
    A.Cells(I, 13).Value = Prime_Totale_Arc
Next I
Application.ScreenUpdating = True
End Sub

**ayudame_joel** · 05/07/2018, 11h58

Envoyé par Thautheme

Re,

Avec le fichier c'est plus facile... SumIf et pas SumIfs...
Le code modifié :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Explicit
 
Sub pricer1()
Dim I As Integer, N As Integer, poli As Integer
Dim Taux_Grele As Double, Taux_Temp As Double, Taux_Arc As Double
Dim Rdt_Par As Double, Rdt_Ha As Double, Superf As Double, Prix_Uni, Capital_Par As Double, Prime_Grele As Double, Prime_Temp As Double, Prime_Arc As Double, Prime_Totale_Grele As Double, Prime_Totale_Temp As Double, Prime_Totale_Arc As Double
Dim Recherche_Taux As String
Dim Donnees As Range
Dim A As Worksheet
Dim P As Worksheet
 
Application.ScreenUpdating = False
Set A = Worksheets("Automatisé")
Set P = Worksheets("PRICER1_2017")
N = P.Cells(Rows.Count, 1).End(xlUp).Row
A.Range("A:Z").ClearContents
Set Donnees = P.Range("AD2:AH" & N)
A.Range("A1").Value = "Police"
A.Range("C1").Value = "Prime Grêle"
A.Range("E1").Value = "Prime Tempête"
A.Range("G1").Value = "Prime ARC"
A.Range("I1").Value = "Prime totale Grêle"
A.Range("K1").Value = "Prime totale Tempête"
A.Range("M1").Value = "Prime totale ARC"
For I = 2 To N
    'Retient le numéro de police
    poli = P.Cells(I, 1).Value
    'Recherche de la clé
    Recherche_Taux = P.Cells(I, 27).Value & "-" & P.Cells(I, 22).Value & "-" & P.Cells(I, 18).Value
    'Taux grêle
    Taux_Grele = Application.VLookup(Recherche_Taux, Donnees, 3, 0)
    'Taux tempête
    Taux_Temp = Application.VLookup(Recherche_Taux, Donnees, 4, 0)
    'Taux arc
    Taux_Arc = Application.VLookup(Recherche_Taux, Donnees, 5, 0)
    'Calcul capital assuré
    Rdt_Par = P.Cells(I, 20).Value
    Superf = P.Cells(I, 19).Value
    Rdt_Ha = (Rdt_Par / Superf) * 100
    Prix_Uni = P.Cells(I + 1, 31).Value
    Capital_Par = Rdt_Par * Prix_Uni
    'Prime grêle
    Prime_Grele = Capital_Par * Taux_Grele / 100
    'Prime tempête
    Prime_Temp = Capital_Par * Taux_Temp / 100
    'Prime arc
    Prime_Arc = Capital_Par * Taux_Arc / 100
    'affectation du numéro de police dans la nouvelle feuille
    A.Cells(I, 1).Value = poli
    'affectation des primes
    A.Cells(I, 3).Value = Prime_Grele
    A.Cells(I, 5).Value = Prime_Temp
    A.Cells(I, 7).Value = Prime_Arc
Next I
For I = 2 To N
    Prime_Totale_Grele = Application.WorksheetFunction.SumIf(A.Range("A2:A" & N), A.Cells(I, 1).Value, A.Range("C2:C" & N))
    Prime_Totale_Temp = Application.WorksheetFunction.SumIf(A.Range("A2:A" & N), A.Cells(I, 1).Value, A.Range("E2:E" & N))
    Prime_Totale_Arc = Application.WorksheetFunction.SumIf(A.Range("A2:A" & N), A.Cells(I, 1).Value, A.Range("G2:G" & N))
    A.Cells(I, 9).Value = Prime_Totale_Grele
    A.Cells(I, 11).Value = Prime_Totale_Temp
    A.Cells(I, 13).Value = Prime_Totale_Arc
Next I
Application.ScreenUpdating = True
End Sub

1001 merci! Je mets +10 sur ta vie.

ça marche Perfectamente.

You guys are so kind

Faire somme.si.ens en vba

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager