Exclure Valeurs au format %

Version imprimable

Bonjour tout le monde!

j'ai un petit soucis actuellement .

J'ai crée un compteur qui m'additionne les valeurs de la colonne 11 selon leur valeur en colonne 4.

Mon problème actuellement est que j'aimerais exclure les valeurs de la colonne 11, dont le format est en pourcentage.

je n'arrive pas à trouver la solution...

Si quelqu'un peut me sauver je suis tout ouïe

Voici la partie qui nous intéresse
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 For i = 2 To 662 Npresse = Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 4).Value If IsNumeric(Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).Value) = True _ And Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).Value < 1000 _ 'Et Voici mon Epic fail And Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).Value <> "%" _ Then RI = Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).Value TotalRejets = TotalRejets + RI If Npresse = "PL01" _ Then PL01Rejets = PL01Rejets + RI If Npresse = "PL02" _ Then PL02Rejets = PL02Rejets + RI If Npresse = "PL04" _ Then PL04Rejets = PL04Rejets + RI If Npresse = "PL05" _ Then PL05Rejets = PL05Rejets + RI If Npresse = "PL06" _ Then PL06Rejets = PL06Rejets + RI Next i
Merci d'avance tout le monde!

06/12/2011, 18h06
ZebreLoup

Essaie

Code:

Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).Style = "Percent"
06/12/2011, 18h06
jfontaine

Bonjour,

Essais en testant le format de la cellule

Code:

And Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).NumberFormat <> "0.00%"
06/12/2011, 18h52
dirtymusli

merci pour ces réponses rapide!

Malheureusement ni l'un ni l'autre ne marchent....:cry:
07/12/2011, 09h04
ZebreLoup

Dans ce cas, il faudrait que tu regarde au niveau du débuggeur la valeur de

Code:

Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).NumberFormat

Peut-être que ça pourrait marcher, mais adapte-le en fonction de ce que tu auras observé ci dessus :

Code:

Right(Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).NumberFormat, 1) <> "%"
07/12/2011, 21h49
dirtymusli

BIzzarement j'ai essayé cette ligne suivante à nouveau aujourd'hui:

Code:

And Workbooks(Classeur).Worksheets(Datetrad).Cells(i, 11).NumberFormat <> "0.00%"

Et ca a fonctionné :ave:

Merci beaucoup pour votre aide!

et bonne continuation!

Salut
Une petite simplification du code?

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
Dim i As Integer
'...
'Il est préférable de déclarer toutes tes variables
 
For i = 2 To 662
    'Pour éviter d'avoir a répeter a chaque fois
    With Workbooks(Classeur).Worksheets(Datetrad)
        'Npresse = .Cells(i, 4).Value
        'Inutil de préciser = True , If attend un boolean et IsNumeric retour un boulean
        If IsNumeric(.Cells(i, 11).Value) And (.Cells(i, 11).Value < 1000) And (Right(.Cells(i, 11).NumberFormat, 1) <> "%") Then
            RI = .Cells(i, 11).Value
            TotalRejets = TotalRejets + RI
 
            Select Case .Cells(i, 4).Value
                Case "PL01"
                    PL01Rejets = PL01Rejets + RI
                Case "PL02"
                    PL02Rejets = PL02Rejets + RI
                Case "PL04"
                    PL04Rejets = PL04Rejets + RI
                Case "PL05"
                    PL05Rejets = PL05Rejets + RI
                Case "PL06"
                    PL06Rejets = PL06Rejets + RI
            End Select
        End If 'Je suppose que le if devrait se fermer ici? sinon RI garde la même valeur à la prochaine boucle et si ton If de début n'est pas vérifié tu vas additionner l'ancienne valeur de RI
    End With
Next i

Et comme noté dans le code, je me fait peut-être une fausse idée de ce que tu souhaites faire, mais part du principe que ton teste IF ne se vérifie pas. Avec ton code RI conserve la valeur qu'il avait prise à l'itération précédente et s'ajoute de nouveau à TotalRejets ainsi qu'a une des valeurs PL0x, mais bon peut-être est ce le fonctionnement recherché, mais j'en doute:calim2:.
Avec le End if placé après les additions, si ton IF n'est pas vérifié, RI n'est ajouté nulle part.

A toi de voir, mais le reste des modifications reste valable quoi qu'il en soit ;)
++
Qwaz