boucle

Version imprimable

22/08/2007, 20h53
titeZ

boucle

Bonjour,

J'ai besoin d'aide pour une satané boucle qui me gache la vie depuis 3 h :'(
C'est tt bete je le sais mais je bloque :cry::cry::cry:

J’ai un tableau avec
Dans une premiere colonne des dates qui peuvent etre ou pas répétes plusieurs fois
Dans une colonnes a coté j’ai une autre colonnes avec des ok ou des non ok
et D’autres colonnes a coté

Concretement

Colonne A ........Colonne B
Janvier 2005 Ok
JANVIER 2005 Ok
JANVIER 2005 Nok
Fevrier 2005 Ok
Mars 2005 nok
Mars 2005 nok
Avrll 2005 Ok
Avril 2005 nok
Avrll 2005 nok
Avril 2005 Ok
Avrll 2005 nok
Avril 2005 nok

Ce que je souhaite faire c'est

qu’il me compte pr chaque date le nb de Ok et Nok et qu’il me mette dans une cellule celui qui a le plus gd nombre
Par exemple pr janvier2005 Il me mettra Ok ( psk 2 Ok et Nok) et pr Avril il me metta dans une autre cellule Nok ( psk 4 Nok et 2 Ok)

C’est une boucle tte simple mais je bloque dessus depuis 3heures

En faite le truc c’est
'Pour une date donné dans la plage de cellule non fixe cherche la ieme date
'pour cette date cherche nombre de Ok
'si nbre de nok > nombre ok alors cellule de destination = nok sinon ok

Quelqu’un veut bien m’aider ?
Merci.
22/08/2007, 21h00
jfontaine

Tu sais qu'un tableau croisée dynamique fera ce que tu veux faire?
22/08/2007, 21h02
titeZ

oui je sais mais j'ai un tableau a produire avec un format specifique :? voila pk je suis ds le code
une idée?

Bon bah a toi d'adapter pour les colonnes sources et de destinations

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
53
54
55
56
57
58
59
60
61
62
63
 
Dim str() As String
Dim ok() As Integer
Dim nok() As Integer
 
Dim i As Integer
Dim Ligne As Long
 
Dim Flag As Boolean
 
Ligne = 2
 
ReDim str(0)
 
'Construction de la liste et comptage
 
Do While Range("A" & Ligne).Value <> ""
    Flag = False
 
    For i = 0 To UBound(str)
        If str(i) = Range("A" & Ligne).Value Then
            If Range("B" & Ligne).Value = "OK" Then
                ok(i) = ok(i) + 1
            Else
                nok(i) = nok(i) + 1
            End If
            Flag = True
        End If
    Next i
 
    If Flag = False Then
        ReDim Preserve str(i)
        ReDim Preserve ok(i)
        ReDim Preserve nok(i)
 
        str(i) = Range("A" & Ligne).Value
        If Range("B" & Ligne).Value = "OK" Then
            ok(i) = ok(i) + 1
        Else
            nok(i) = nok(i) + 1
        End If
 
    End If
 
    Ligne = Ligne + 1
 
Loop
 
'Recopie les données
Range("E1").Value = "Date"
Range("F1").Value = "OK"
Range("G1").Value = "NOK"
Ligne = 2
For i = 1 To UBound(str)
 
    Range("E" & Ligne).Value = str(i)
    Range("F" & Ligne).Value = ok(i)
    Range("G" & Ligne).Value = nok(i)
 
    Ligne = Ligne + 1
 
 
Next i

22/08/2007, 21h41
titeZ

merci mais c'est pas vrai ca que je cherche a faire
a l'heure actuelle j'obtiens avec ton code ca

Date OK NOK
200706 1 0
200707 0 5
200708 2 9

Moi j'ai besoin de

........ 200706 200707 200708
........ Ok..........Nok.....Nok
:?
22/08/2007, 21h46
jfontaine

la variable str est une variable tableau qui va contenir dans chacun de ses index une valeur unique de date (Janvier 2005, Fevrier 2005 etc ...)
str(0) est vide
22/08/2007, 21h54
titeZ

oups g modifier mon message au lieu de le rajouter
je disais donc pardon,

merci mais c'est pas vraiment ca que je cherche a faire
a l'heure actuelle j'obtiens avec ton code ca

Date OK NOK
200706 1 0
200707 0 5
200708 2 9

Moi j'ai besoin de

........ 200706 200707 200708
........ Ok..........Nok.....Nok
22/08/2007, 22h07
cafeine

Hello,

je pensais qu'un NB.SI() devrait pouvoir t'aider ...
22/08/2007, 22h08
titeZ

un nb.si en vba ???

et bien tu adaptes la fin

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
'Recopie les données
 
Dim col As Integer
 
col = 6
For i = 1 To UBound(str)
 
    Cells(1, col).Value = str(i)
    If ok(i) > nok(i) Then
        Cells(2, col).Value = "OK"
    Else
        Cells(2, col).Value = "NOK"
    End If
 
    col = col + 1
 
 
Next i

22/08/2007, 22h12
titeZ

Attendq jme suis pas bien exprimé
en faite ce que u fais toi ds ton code c'est compter le nbre de ok et de nok
moi e que j'ai besoin de faire c'est me mettre ok ou nok en dessous de la date selon qu'il y ait plus de ok ou plus de nok
tu vois ce que je veux dire
22/08/2007, 22h15
jfontaine

c'est bien ce que fais le code.

Code:

If ok(i) > nok(i) Then

si plus de ok alors on ecrit ok
22/08/2007, 22h21
titeZ

Oups oups oups:oops::oops::oops::oops::oops:
désolé j'ai mal lu :oops:
c'est exactement ça merci beaucoup
23/08/2007, 09h57
cafeine

Si je te proposais ça, c'est parce que je ne voyais pas l'intérêt du VBA, mais tant mieux si ton problème est résolu : )

Citation:

Envoyé par titeZ

un nb.si en vba ???