Discussion :

[alily]

Bonjours de doit Ecrire un programme qui calcule le nombre de taux >1,4.
mais le problème c'est que j'ai des valeurs en pourcentage comme ceci :
2,36%
-3,51%
2,98%
-2,88%
J'ai essayé quelque option comme le code ci-dessous mais impossible d'avoir une valeur qui s'affiche dans ma case "B13"...
Est ce que vous pourriez m'aider s'il vous plait ??
Merci d'avance!

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
 Sub Taux()
    Dim Plage As Range, cel As Range
    With Sheets("coursbourse")
    Set Plage = .Range(.Cells(2, 2), .Cells(11, 2))
    For Each cel In Plage
        If cel.Value() > 1.4 Then
            With .Range("B13")
            .Value = WorksheetFunction.Sum(Plage)
            .NumberFormat = "# ##0.00#"
            End With
        End If
    Next
    Set Plage = Nothing
    End With
 End Sub

[cerede2000]

Bonjour à toi,

Première piste, si tes cellules sont en format Pourcentage alors Cells.value = 0,014 pour 1,4%

[vinc_bilb]

Bonjour,

Quelques pistes:

1. Tout d'abord, vous ne trouverez effectivement rien avec votre code, avec les exemples que vous avez donnés:
=> vous cherchez des valeurs > 1.4 donc > 140%

2. Vous n'avez pas besoin de VBA pour cela, l'utilisation du COUNTIF (excel anglais) le fait bien
Exemple:

Code :

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

=COUNTIF(A1:A5,">" & A7)

(le seuil est en A7 ici)

3. Votre code

Code :

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

1
2
3
4
5
If cel.Value() > 1.4 Then
            With .Range("B13")
            .Value = WorksheetFunction.Sum(Plage)
            .NumberFormat = "# ##0.00#"
            End With

est je pense erroné: si la valeur de la cellule est > 1.4; alors vous affichez en B13 la somme de toute la range B2:B11 ....
Vous pouvez le faire tourner en remplaçant par

Code :

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

If cel.Value() > 0.014 Then

pour confirmation


4. Compter le nombre de ..... vous voulez compter ou additioner?

Bonne continuation

[alily]

merci beaucoup