double condition et somme

Version imprimable

RE à tous!!

Encore un petit souci m'emmène!!!:?

Voilà en fait je réalise une macro qui devrait servir à effectuer une somme sous 2 conditions

En clair si dans la colonne 13 la valeur est "client" et que dans la colonne 24 la valeur est "payé" alors on fait la somme

-des lignes de la colonne 16 qu'on mettre sur une autre feuille en .cells(6,3)
-des lignes de la colonne 20 qu'on mettre sur une autre feuille en .cells(6,4)

A l'heure actuelle la macro n'effectue pas une somme correcte

Code:

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
 
Dim c As Long, a As Long, b As Long, t As Long
Dim Somme As Long, 
Dim Som As Long, 
Dim toto As String, titi As String
Dim d
 
 
Somme = 0
Som = 0
 
 
d = "avril" & Format(Date, "yyyy")
 
 
  If FeuilleExiste(ThisWorkbook, d) Then 
 
 
    For i = 5 To Sheets(d).Cells(Rows.Count, 13).End(xlUp).Row
      For j = 5 To Sheets(d).Cells(Rows.Count, 24).End(xlUp).Row
 
   toto = Sheets(d).Cells(i, 13).Value
   titi = Sheets(d).Cells(i, 24).Value
 
 
             With Sheets(d)
             For b = 5 To 500 '.Cells(Rows.Count, 13).End(xlUp).Row
 
                     If toto = Client And titi = Closed Then
 
                    Som = Som + .Cells(b, 16).Value
                    Somme = Somme + .Cells(b, 20).Value
                    End If
 
                Next b
 
 
 
 
 
   With Sheets("Récap")
 
        .Cells(6, 3) = Somme
         .Cells(6, 4) = Som
End With
 
Next j
Next i
End With
End If
 
End Sub

Quelqu'un pourrait me donner un coup de main?
Merci

21/03/2008, 15h35
zandru

Bonjour,
A mon avis le problème vient du fait que tu as imbriqué deux "with".
je pense que tu devrais fermer le premier avant d'ouvrir le deuxième...

et aussi écrit toto="client"
et titi="closed"
21/03/2008, 15h39
ninette24

Salut,

J'ai déjà fait ce test

Quand je ne les imbrique pas la somme se fait mais elle est fausse
Et quand je les imbrique il fait pas du tout la somme!!!!

Et pareil pour les " " j'ai essayé avec et sans.....
Alors je sais pas quoi faire
21/03/2008, 15h43
zandru

pour comparer des variable de type string, essait la fonction strcomp(string1,string2,vbTextCompare) qui renvoi 0 si les deux string passés en paramétre sont égaux.
21/03/2008, 15h47
ninette24

Je ne connai pas cette fontcion et j'aimerais avoir un code assez simple qui pourra etre compris par tous le monde sachant que je ne suis pas une très grande programmatrice tu vois

Tu n'a pas une autre solution à me proposer parce que je vois pas vraiment ce qu'il ya d'incorect dans mon code pour qu'il me renvoie toujous 0 en résultat de chacune des 2 sommes....

il renvoi toujours zero car pour lui la condition de ton if est toujours fausse
essait:
Code:

1 2 3 4 If StrComp(toto, "Client", vbTextCompare)=0 And StrComp(titi, "Closed", vbTextCompare)=0 Then Som = Som + .Cells(b, 16).Value Somme = Somme + .Cells(b, 20).Value End If
et aussi positionne ton curseur sur strcomp et [F1]
:f1:

Bonjour tlm,

J'ai déjà vu ce code quelque part :) mais tu l'as rebricolé ;)

Ci-dessous j'ai juste redonné un coup de peigne entre les next et les width

Code:

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
Sub test()
Dim i As Integer, j As Integer, k As Integer
Dim Somme As Long, Som As Long
Dim toto As String, titi As String, d As String
 
Somme = 0
Som = 0
 
d = "avril" & Format(Date, "yyyy")
 
If FeuilleExiste(ThisWorkbook, d) Then
 
    With Sheets(d)
        For i = 5 To .Cells(Rows.Count, 13).End(xlUp).Row
            For j = 5 To .Cells(Rows.Count, 24).End(xlUp).Row
            toto = .Cells(i, 13).Value
            titi = .Cells(i, 24).Value
                For k = 5 To 500
                    If toto = Client And titi = Closed Then
                        Som = Som + .Cells(k, 16).Value
                        Somme = Somme + .Cells(k, 20).Value
                    End If
                Next k
            Next j
        Next i
    End With
 
    With Sheets("Récap")
        .Cells(6, 3) = Somme
        .Cells(6, 4) = Som
    End With
 
End If
End Sub

A quoi correspondent Client et Closed ? des cellules nommées ? des variables ? du texte ?

21/03/2008, 16h29
ninette24

En fait "client" et "closed" c'est des valeurs dans les cellules

Exemple :

colonneA
client
client
fournissseur
fournisseur
client

colonneB
closed
not paid
closed
closed
closed
21/03/2008, 17h31
fring

haut quai alors il faut les écrire entre des " "

Code:

If toto = "Client" And titi = "Closed" Then

pour ça que tes sommes ne fonctionnent pas

Re à tous !!
Voilà je me bat encore sur cette maudite somme que je n'arrive pas à finaliser toute seule

donc mon code actuel est le suivant

Code:

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
 
 
 
Sub test()
Dim i As Integer, j As Integer, k As Integer
Dim Somme As Long, Som As Long
Dim toto As String, titi As String, d As String
 
Somme = 0
Som = 0
 
d = "avril" & Format(Date, "yyyy")
 
If FeuilleExiste(ThisWorkbook, d) Then
 
 
    With Sheets(d)
 
     'Range("A4:W500").AutoFilter Field:=5, Criteria1:=client
     ' Range("A4:W500").AutoFilter Field:=22, Criteria2:=closed
 
        For i = 5 To .Cells(Rows.Count, 5).End(xlUp).Row
            For j = 5 To .Cells(Rows.Count, 22).End(xlUp).Row
            toto = .Cells(i, 5).Value
            titi = .Cells(i, 22).Value
                For k = 5 To 500
                    If toto = "Client" And titi = "Closed" Then
                        Som = Som + .Cells(k, 15).Value
                        Somme = Somme + .Cells(k, 18).Value
                    End If
 
   'If StrComp(toto, "Client", vbTextCompare) = 0 And StrComp(titi, "Closed", vbTextCompare) = 0 Then
   ' Som = Som + .Cells(b, 15).Value
   ' Somme = Somme + .Cells(b, 18).Value
  'End If
                Next k
            Next j
        Next i
    End With
 
 
    With Sheets("Etat")
        .Cells(6, 3) = Somme
        .Cells(6, 4) = Som
    End With
 
 
    End If
End Sub

Le problème est que dans
.Cells(6, 3) => j'ai toujours 0 en resultat
.Cells(6, 4) => j'ai une somme qui est complètement abérante

alors je me dit :oops: :cry:

B'jour,

A mon avis un ptit problème dans tes boucles.

Si je suis ce que tu écris :
- la boucle j ne sert à rien
- à chaque fois que "Client" et "Closed" sont respectivement dans les colonnes E et V (sur la même ligne), on fait l'addition de toute la colonne O et de toute la colonne R ?

En attendant d'avoir une réponse, ci-dessous ton code rebricolé à l'aveugle

Code:

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
Sub test_ft()
Dim i As Integer, j As Integer, k As Integer
Dim Somme As Long, Som As Long
Dim d As String
 
Somme = 0
Som = 0
 
d = "avril" & Format(Date, "yyyy")
 
If FeuilleExiste(ThisWorkbook, d) Then
    With Sheets(d)
        For i = 5 To .Cells(Rows.Count, 5).End(xlUp).Row
            If .Cells(i, 5) = "Client" And .Cells(i, 22) = "Closed" Then
                For k = 5 To 500
                    Som = Som + .Cells(k, 15).Value
                    Somme = Somme + .Cells(k, 18).Value
                Next k
            End If
        Next i
    End With
 
    With Sheets("Etat")
        .Cells(6, 3) = Somme
        .Cells(6, 4) = Som
    End With
 
End If
End Sub

28/03/2008, 16h08
ballad oil

Salut pourquoi toutes ces boucles???

Tu peux faire directement une SOMME SI qui va te faire le calcul
28/03/2008, 16h13
ninette24

Sult Fring :)

Oui c'est exactement le calcul que je souhaite faire
et par la suite je met les resultat des somme respectives dans les colonnes C6 et C7 de ma feuille Etat .....

PS : Je fais ce calcul dynamiquement pas avec la "SOMME SI" de Excel
28/03/2008, 16h15
fring

J'ai édité ma réponse précédente avec un bout de code, si ça ne va toujours pas essaye de joindre un ptit fichier que l'on évite de pédaler dans le vide
28/03/2008, 16h38
ninette24

1 pièce(s) jointe(s)

Voila j'ai joint le fichier en question avec en feuille 3 le bouton qui commande la macro!!!
28/03/2008, 16h50
fring

Bon...Si j'ai bien compris où tu voulais en arriver, essaye le fichier joint

FICHIER TEST

Bonsoir
voilà,ton code avec une légère modification.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
Dim i As Integer, Somme As Long, Som As Long
Dim d As String
Somme = 0
Som = 0
d = "avril" & Format(Date, "yyyy")
If FeuilleExiste(ThisWorkbook, d) Then
    With Sheets(d)
        For i = 3 To .Cells(Rows.Count, 5).End(xlUp).Row
            If .Cells(i, 5) = "Client" And .Cells(i, 22) = "Closed" Then
                    Som = Som + .Cells(i, 15).Value
                    Somme = Somme + .Cells(i, 18).Value
            End If
        Next i
    End With
 
    With Sheets("Etat")
        .Cells(6, 3) = Somme
        .Cells(6, 4) = Som
    End With
 
End If
 
End Sub

Bonne chance

Abed_H :king:

28/03/2008, 17h56
Abed_H

Re,
je n'ai pas vu la réponse de fring donc c'est la même.
30/03/2008, 14h23
ninette24

Bonjour,

merci beaucoup Fring

C'est exactement ce ce que je voulais!
@ bientôt