Problème sur condition 'if '

**chrystobale** · 18/03/2009, 16h49

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 :

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

**Djohn** · 18/03/2009, 17h24

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

**erfindel** · 18/03/2009, 17h45

essaye avec :

Code :

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

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

**chrystobale** · 18/03/2009, 19h33

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

**casefayere** · 18/03/2009, 20h11

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

Code :

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

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 +

**chrystobale** · 18/03/2009, 21h19

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

**casefayere** · 18/03/2009, 21h22

adaptes, j'ai corrigé comme je sens :

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

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

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 :

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

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

**chrystobale** · 18/03/2009, 22h02

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

**casefayere** · 18/03/2009, 22h08

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 :

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

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 :

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

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

il vaudrait mieux

Code :

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

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

**chrystobale** · 18/03/2009, 22h28

"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

**casefayere** · 18/03/2009, 22h28

une erreur :

Code :

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

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

**chrystobale** · 18/03/2009, 22h37

effectivement la ligne

Code :

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

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

améliore nettment.
Par contre mes resultats ne change pas, tjrs incorrect ... snif

**casefayere** · 18/03/2009, 22h42

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

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 :

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

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

plutot que :

Code :

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

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

bonne nuit, je regarderai demain

**chrystobale** · 19/03/2009, 16h28

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 :

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

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.

encore merci,

Christophe

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

**chrystobale** · 19/03/2009, 12h30

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

**casefayere** · 19/03/2009, 13h41

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

**casefayere** · 19/03/2009, 16h32

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

resolu

Bonne fin de journée

Problème sur condition 'if '

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager