Discussion :

[ninette24]

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 :

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
 
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

[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"

[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

[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.

[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....

[zandru]

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

Code :

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

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]