Problème sur condition 'if '

Version imprimable

Bonjour,

j'ai un souci avec ma macro: je tente de faire un test "if" comme condition "1" ou "2" dans une autre feuille du meme classeur.
Le résultat est que cela ne semble pas prendre en compte mon test "if" et me calcule l'ensemble ("1" ou "2" ou "3" ou "4')

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
        For l = 2 To Derling
 
            If Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 1 Or Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 2 Then
                Cells(l, 2) = Application.WorksheetFunction.CountIf(Worksheets("caresrpt.cfm-2").Range("Q:Q"), Cells(l, 1))
                Cells(l, 3) = Application.WorksheetFunction.CountIf(Worksheets("caresrpt.cfm-2").Range("X:X"), Cells(l, 1))
 
                Cells(l, 4) = Cells(l, 2) - Cells(l, 3)
            End If
                Cells(2, 5) = Cells(2, 2)
                Cells(2, 6) = Cells(2, 3)
                Cells(2, 7) = Cells(2, 4)
 
                Cells(l + 1, 5) = Cells(l + 1, 2) + Cells(l, 5)
                Cells(l + 1, 6) = Cells(l + 1, 3) + Cells(l, 6)
                Cells(l + 1, 7) = Cells(l + 1, 4) + Cells(l, 7)
 
        Next l

Est ce que mon est est le bon ? j'ai testé en ne mettant que
If Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 1 Then
=> le résultat est pire ! il ne trouve qu'une seule valeur dans mon tablaeu ...

Merci d'avance pour votre aide,
chris

18/03/2009, 17h24
Djohn

Je pense à un probleme de logique,
Il nous faudrait ton fichier pour mieux comprendre

essaye avec :

Code:

1
2
 
If Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = "1" Or Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = "2" Then

18/03/2009, 19h33
chrystobale

1 pièce(s) jointe(s)

"erfindel" j'aio testé avec les entrecôtes mais cela ne fonctionne pas non plus.
Voici le fichier
Merci,
Chris

Bonjour,
au départ de ta procédure, oit :

Code:

1
2
3
    If Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 1 Or Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 2 Then
                Cells(l, 2) = Application.WorksheetFunction.CountIf(Worksheets("caresrpt.cfm-2").Range("Q:Q"), Cells(l, 1))
                Cells(l, 3) = Application.WorksheetFunction.CountIf(Worksheets("caresrpt.cfm-2").Range("X:X"), Cells(l, 1))

cells(l,2) appartient à la même feuille ? parce que, si c'est le cas, dans cells(l,1), il n'y a rien

précises les feuilles concernées par les cellules

a +

18/03/2009, 21h19
chrystobale

Les données a traiter sont dans l'onglet caresrpt.cfm-2 (Source)
Le traitement est mis dans l'oglet AR_WOH_OpenClosed_P1toP2 (Destination)
Enfin l'onglet AR_WOH_P1_to_P2, permet de créer le graph à partir des infos AR_WOH_OpenClosed_P1toP2.

Cdt,
Chris

adaptes, j'ai corrigé comme je sens :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
Dim l As Integer
With Sheets("AR_WOH_OpenClosed_P1toP2")
For l = 2 To Sheets("caresrpt.cfm-2").Range("c65000").End(xlUp).Row
 
            If Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 1 Or Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 2 Then
                .Cells(l, 2) = Application.WorksheetFunction.CountIf(Worksheets("caresrpt.cfm-2").Range("Q:Q"), .Cells(l, 1))
                .Cells(l, 3) = Application.WorksheetFunction.CountIf(Worksheets("caresrpt.cfm-2").Range("X:X"), .Cells(l, 1))
 
                .Cells(l, 4) = Cells(l, 2) - .Cells(l, 3)
            End If
                .Cells(2, 5) = .Cells(2, 2)
                .Cells(2, 6) = .Cells(2, 3)
                .Cells(2, 7) = .Cells(2, 4)
 
                .Cells(l + 1, 5) = .Cells(l + 1, 2) + .Cells(l, 5)
                .Cells(l + 1, 6) = .Cells(l + 1, 3) + .Cells(l, 6)
                .Cells(l + 1, 7) = .Cells(l + 1, 4) + .Cells(l, 7)
 
        Next l
End With
End Sub

Je n'ai pas lu assez avec attention ton probleme, regardes cette ligne

Code:

Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 1 Or Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 2 Then

l au départ est egal à 2 or dans ton cas sur cette feuille c'est égal à 7, donc

Code:

Worksheets("caresrpt.cfm-2").Cells(l+5, 3).Value = 1 Or Worksheets("caresrpt.cfm-2").Cells(l+5, 3).Value = 2 Then

18/03/2009, 22h02
chrystobale

Effectivement Cells(l+5, 3) est nécessaire (merci !)
Par contre le résultat n'y est pas ... si tu le test sur le fichier que j'ai uploader, tu verras que pour 2009wk47 j'obtient 42 (colonne Created) mais cela inclus les severités 1, 2 3, à priori le test du if ne fonctionne pas ...

Excuses-moi, je réponds vite mais je ne connais pas ce que tu comptes faire exactement, alors je vais faire une réponse bête, pour cette partie du code
Code:

1 2 3 4 5 6 7 8 9 .Cells(l, 4) = Cells(l, 2) - .Cells(l, 3) End If .Cells(2, 5) = .Cells(2, 2) .Cells(2, 6) = .Cells(2, 3) .Cells(2, 7) = .Cells(2, 4) .Cells(l + 1, 5) = .Cells(l + 1, 2) + .Cells(l, 5) .Cells(l + 1, 6) = .Cells(l + 1, 3) + .Cells(l, 6) .Cells(l + 1, 7) = .Cells(l + 1, 4) + .Cells(l, 7)
es-tu sur que ces opérations doivent se faire ou s'il ne faut pas intégrer un else, car pour l'instant, peu importe tes conditions cette partie du code agit

je n'ai pas touché à ta première feuille et moi en faisant la procédure, j'obtiens 0

encore une question, sur ta feuil3, les refs s'arrêtent à a72 tandis que sur la feuil1, elles s'arretent a c 544, te t'ai peut-etre mal orienté avec

Code:

For l = 2 To Sheets("caresrpt.cfm-2").Range("c65000").End(xlUp).Row

il vaudrait mieux

Code:

For l = 2 To .Range("c65000").End(xlUp).Row

18/03/2009, 22h28
chrystobale

8O "0", c'est étrange ...
Voilà ce que j'obtiens avec ta Macro mais si tu filtre manuellement sur "caresrpt.cfm-2" et tu selectionne 2009wk46 ou 47, celà ne correspond pas au resultat obtenu ...

Week Created Closed WHO Created Cumulated Closed Cumulated WOH Cumulated
2008wk36 2 0 2 48 8 40
2008wk37 2 0 2 50 8 42
2008wk38 1 0 1 51 8 43
2008wk39 1 0 1 52 8 44
2008wk40 0 0 0 52 8 44
2008wk41 2 1 1 54 9 45
2008wk42 0 0 0 54 9 45
2008wk43 54 9 45
2008wk44 0 0 0 54 9 45
2008wk45 54 9 45
2008wk46 0 0 0 54 9 45
2008wk47 42 11 31 96 20 76
2008wk48 15 5 10 111 25 86
2008wk49 0 0 0 111 25 86
2008wk50 111 25 86
2008wk51 0 0 0 111 25 86
2008wk52 0 0 0 111 25 86
2008wk53 111 25 86
2009wk01 4 0 4 115 25 90
2009wk02 0 0 0 115 25 90
2009wk03 0 0 0 115 25 90
2009wk04 25 21 4 140 46 94
2009wk05 0 0 0 140 46 94
2009wk06 0 0 0 140 46 94
2009wk07 0 0 0 140 46 94
2009wk08 0 0 0 140 46 94
2009wk09 36 19 17 176 65 111
2009wk10 22 22 0 198 87 111
2009wk11 40 8 32 238 95 143
2009wk12 8 4 4 246 99 147
2009wk13 0 0 0 246 99 147
2009wk14 246 99 147
2009wk15 0 0 0 246 99 147
2009wk16 0 0 0 246 99 147
2009wk17 0 0 0 246 99 147
2009wk18 0 0 0 246 99 147
2009wk19 0 0 0 246 99 147
2009wk20 0 0 0 246 99 147
2009wk21 246 99 147
2009wk22 0 0 0 246 99 147
2009wk23 0 0 0 246 99 147
2009wk24 0 0 0 246 99 147
2009wk25 0 0 0 246 99 147
2009wk26 246 99 147
2009wk27 0 0 0 246 99 147
2009wk28 0 0 0 246 99 147
2009wk29 246 99 147
2009wk30 0 0 0 246 99 147
2009wk31 0 0 0 246 99 147
2009wk32 0 0 0 246 99 147
2009wk33 0 0 0 246 99 147
2009wk34 0 0 0 246 99 147
2009wk35 0 0 0 246 99 147
2009wk36 0 0 0 246 99 147
2009wk37 0 0 0 246 99 147
2009wk38 0 0 0 246 99 147
2009wk39 0 0 0 246 99 147
2009wk40 0 0 0 246 99 147
2009wk41 0 0 0 246 99 147
2009wk42 0 0 0 246 99 147
2009wk43 246 99 147
2009wk44 0 0 0 246 99 147
2009wk45 0 0 0 246 99 147
2009wk46 0 0 0 246 99 147
2009wk47 0 0 0 246 99 147
2009wk48 0 0 0 246 99 147
2009wk49 0 0 0 246 99 147
2009wk50 0 0 0 246 99 147
2009wk51 0 0 0 246 99 147
2009wk52 0 0 0 246 99 147
2009wk53 0 0 0 246 99 147
18/03/2009, 22h28
casefayere

une erreur :

Code:

For l = 2 To .Range("a65000").End(xlUp).Row
18/03/2009, 22h37
chrystobale

effectivement la ligne

Code:

For l = 2 To .Range("a65000").End(xlUp).Row

améliore nettment.
Par contre mes resultats ne change pas, tjrs incorrect ... snif
18/03/2009, 22h42
casefayere

Mon problème c'est que je ne connais rien à l'anglais, c'est pour ça j'insiste, vérifie bien la position de en if et du reste des calculs.
Tu vas peut-être penser que j'insiste lourdement et que je te prends pour un gaga, rassure-toi, ce n'est pas le cas mais on fait tellement d'etourderies:oops:

je viens de remarquer que ta ta feuil1 en col "C" ton chiffre maximal est trois, meme si ca ne résoult pas tes problèmes, ne serait'il pas plus pratique de dire en condition

Code:

Worksheets("caresrpt.cfm-2").Cells(l, 3).Value < 3 Then

plutot que :

Code:

Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 1 Or Worksheets("caresrpt.cfm-2").Cells(l, 3).Value = 2 Then

j'espère que tu vas t'en sortir car moi je dois dormir

IF coucher > 23 h00 then
demain travail en retard
else
mieux reveillé

Je ne balise pas, c'est pas un code :D

bonne nuit, je regarderai demain
19/03/2009, 12h30
chrystobale

salut casefayere,
Je viens de me rendre compte que le test "if" ne test que la première cellule d'un groupe identifié par week.
1er exemple : Manuellement je sélectionne 2008wk47 (colonne Q), on peut voir u'en colonne "C" la première ligne commence par "3" d'ou la macro identifie que cela ne doit pas être pris en compte car le test est de regarder pour une valeur <3 => d'ou le fait de ne rien mettre dans l'onglet AR_WOH_OpenClosed_P1toP2, ligne 2008wk47, colonne created"

2eme exemple: tjrs manuellement, je sélectionne 2008wk52 (colonne Q), on peut voir qu'en colonne "C" la 1er ligne commence par "2" donc cela passe dans le test "if" <3, par contre cela compte tout ce qui est dans cette colonne y compris s'il y a des valeurs "3".

Il faut certainement que je modifie la macro car elle ne repond que partiellement à ce que je souhaite ..

qu'est ce que tu en penses ?

merci,
christ
19/03/2009, 13h41
casefayere

Bonjour Christobale et le forum,
Je ne suis vraiment pas disposé en ce moment por réfléchir à tes constatations, mais sois en sur, je regarderai. D'autant que, je le répète, ça m'aide aussi à retenir prisonnier mes neuronnes (pour le peu qu'ils me restent). Ce matin, exceptionnel (évenements sociaux) j'étais pris ailleurs

re,
Je crois avoir compris ton problème, mais il va falloir que tu me dises ta finalité,

choix 1 : choisir toutes les cellules contenant le texte en ligne Q, dans ce cas plus besoin de condition

choix 2 : choisir les memes cellules mais avec la condition "<3", alors que fais-tu des autres contenant le même texte mais "c" egal à 3

il doit manquer des instructions

A ce soir, peut-etre

hello,

Je suis parvenu à résoudre mon problème, voici le code modifié, il pourra tjrs être utile :

J'ai fais une double boucle "for" et surtout mis le test "if"<3 avant avant de faire celui permettant de compter le nombre d'occurances

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
Dim l As Integer
Dim longer As Integer
longer = Sheets("caresrpt.cfm-2").Range("Q65000").End(xlUp).Row
 
With Sheets("AR_WOH_OpenClosed_P1toP2")
    For l = 3 To .Range("a65000").End(xlUp).Row
 
        For i = 7 To longer
            If Sheets("caresrpt.cfm-2").Cells(i, 3) < "3" Then
                If Sheets("caresrpt.cfm-2").Cells(i, 17) = Sheets("AR_WOH_OpenClosed_P1toP2").Cells(l - 1, 1) Then
                    .Cells(l - 1, 2) = .Cells(l - 1, 2) + 1
                End If
 
 
                If Sheets("caresrpt.cfm-2").Cells(i, 24) = Sheets("AR_WOH_OpenClosed_P1toP2").Cells(l - 1, 1) Then
                    .Cells(l - 1, 3) = .Cells(l - 1, 3) + 1
                End If
            End If
        Next i
 
        .Cells(l - 1, 4) = .Cells(l - 1, 2) - .Cells(l - 1, 3)
    Next l
 
    For l = 3 To .Range("a65000").End(xlUp).Row
        .Cells(2, 5) = .Cells(2, 2)
        .Cells(2, 6) = .Cells(2, 3)
        .Cells(2, 7) = .Cells(2, 4)
 
        .Cells(l, 5) = .Cells(l, 2) + .Cells(l - 1, 5)
        .Cells(l, 6) = .Cells(l, 3) + .Cells(l - 1, 6)
        .Cells(l, 7) = .Cells(l, 4) + .Cells(l - 1, 7)
    Next l
End With

Bon courrage et merci beaucoups, casefayere :king: surtout n'hésite pas si tu as besoin, à charge de revanche et merci beaucoup car tu m'a fait découvrir de nouvelles façons de code, en utilisant par exemple la fonction "with", chose que je ne métrisais pas du tout.:yaisse2:

encore merci,

Christophe

C'est en faisant n'importe quoi que ca donne n'importe quoi !!! :bug:

19/03/2009, 16h32
casefayere

Je suis content que tu ais résolu ton problème, je regarderai d'ailleur ton code final pour comprendre ta finalité, mais comme d'autre abonné(e)s, je t'invite à cliquer sur

Citation:

resolu

Bonne fin de journée