Calculer des Quartiles

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je suis en train de calculer les différents quartile sur mon plateau de production
J’arrive jusqu’à présent sauf que sur le calcule il prend pas les agents avec la valeurs zéro

Ci-dessous mon code si vous remarque une optimisation de votre parts.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub QUARTILE_Par_Agent() Dim Ligne As Integer Ligne = 2 For i = 71 To 74 For j = 5 To 58 If Cells(j, 2) <= Cells(i, 2) And Cells(j, 2) > Cells(i - 1, 2) Then Cells(Ligne, 38) = Cells(i, 1) Cells(Ligne, 39) = Cells(j, 1) Cells(Ligne, 40) = Cells(j, 2) Ligne = Ligne + 1 End If Next Next End Sub
je reste disponible pour plus d'informations.

Cdt,

bonjour,
je pense que vous avez pas bien compris ma problématique c'est pour ca que je partage avec vous mon fichier.
ci dessous le fichier

Pièce jointe 177067

cdt,

Bonjour.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 For i = 71 To 74
        For j = 5 To 58
            ok = False
            If Cells(j, 1) <> "" Then
            If Cells(j, 2) <= Cells(i, 2) And Cells(j, 2) > Cells(i - 1, 2) Then
             ok = True
            ElseIf Cells(j, 2) = 0 And i = 71 Then
             ok = True
            End If
            End If
 
            If ok = True Then
                Cells(Ligne, 38) = Cells(i, 1)
                Cells(Ligne, 39) = Cells(j, 1)
                Cells(Ligne, 40) = Cells(j, 2)
                Ligne = Ligne + 1
            End If
 
 
        Next
    Next

j'ai un message d'erreur d'exécution'1004'

Code:

1
2
3
4
5
            If ok = True Then
                Cells(Ligne, 38) = Cells(i, 1)                Cells(Ligne, 39) = Cells(j, 1)
                Cells(Ligne, 40) = Cells(j, 2)
                Ligne = Ligne + 1
            End If

06/05/2015, 17h54
Docmarti

Et quelle est la description du message d'erreur ?

Citation:

"erreur d'execution 1004 methode range de l'objet global a echoue"

?
06/05/2015, 18h38
a.ouguerzam

Erreur définie par l'application ou par l'objet
06/05/2015, 19h14
Docmarti

Il ne faut pas oublier de définir la valeur de la variable Ligne. Sinon elle vaut 0. Et la ligne 0 n'existe pas. Ce qui provoque l'erreur.

Code:

Ligne = 2
07/05/2015, 01h02
tamtam64

ca viens de ta valeur , il faut initialiser la variable ... j'ai eu le même probleme ya pas longtemps , on se fait vite avoir lol
07/05/2015, 19h08
a.ouguerzam

comment fair pour initialiser la variable ?

Lui attribuer une valeur initiale.

Ce qui donne

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
Sub QUARTILE_Par_Agent()
 
Dim Ligne As Long
 
Ligne = 2
 
    For i = 71 To 74
        For j = 5 To 58
           ok = False
 
           If Cells(j, 1) <> "" Then
 
            If Cells(j, 2) <= Cells(i, 2) And Cells(j, 2) > Cells(i - 1, 2) Then
             ok = True
            ElseIf Cells(j, 2) = 0 And i = 71 Then
             ok = True
            End If
 
            If ok = True Then
                Cells(Ligne, 38) = Cells(i, 1)
                Cells(Ligne, 39) = Cells(j, 1)
                Cells(Ligne, 40) = Cells(j, 2)
                Ligne = Ligne + 1
            End If
 
         End If
 
        Next
    Next
 
End Sub

09/05/2015, 10h15
a.ouguerzam

ca marche tres bien super bien meme
merci bcq Docmarti