Discussion :

[Olivier Regnier]

Bonjour,

J'ai des cellules de C14 à H14 dont le résultat est en pourcentage et s'obtient avec la fonction suivante:

Code :

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

1
2
3
4
5
6
7
8
Sub func_taux_de_placement_jour()
Range("C14").Formula = IIf(Range("C13").Value <> "", "=C12/C13", "0.00%")
Range("D14").Formula = IIf(Range("D13").Value <> "", "=D12/D13", "0.00%")
Range("E14").Formula = IIf(Range("E13").Value <> "", "=E12/E13", "0.00%")
Range("F14").Formula = IIf(Range("F13").Value <> "", "=F12/F13", "0.00%")
Range("G14").Formula = IIf(Range("G13").Value <> "", "=G12/G13", "0.00%")
Range("H14").Formula = IIf(Range("H13").Value <> "", "=H12/H13", "0.00%")
End Sub

J'ai mis en place une fonction qui vérifie les valeurs obtenues afin d'effectuer des comparaisons que voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub func_verif_taux_de_placement()
If Range("C14:H14").Value >= 15 Then
Range("C14:H14").Interior.ColorIndex = 1
End If
If Range("C14:H14").Value < 15 Then
Range("C14:H14").Interior.ColorIndex = 2
End If
If Range("C14:H14").Value < 10 Then
Range("C14:H14").Interior.ColorIndex = 3
End If
End Sub

J'obtiens le message suivant:

Erreur de type 13
Incompatibilité de type

Je ne vois pas du tout ce qui se passe, un coup de main s'il vous plaît ?

Merci d'avance

[jfontaine]

Bonjour,

Code :

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

If Range("C14:H14").Value >= 15 Then

Une plage contenant plusieurs cellules ne peut pas faire référence à une seule valeur.

est ce la somme de la plage qui doit être supérieur à 15?

[Olivier Regnier]

Chaque cellule doit-être >= 15 et non la plage entière

[jfontaine]

est ce cela que tu souhaites faire

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 func_verif_taux_de_placement()
Dim Rg As Range
 
For Each Rg In Range("C14:H14")
    Select Case Rg.Value
        Case Is < 10
            Rg.Interior.ColorIndex = 3
        Case 10 To 15
            Rg.Interior.ColorIndex = 2
        Case Is >= 15
            Rg.Interior.ColorIndex = 1
    End Select
Next Rg
 
End Sub

[Olivier Regnier]

C'est exactement ce que je cherche sauf que la plage de cellules est toute en rouge malgré que les valeurs soient différentes.

[jfontaine]

Je me trompe peut etre, mais si tes valeurs sont des taux, il faut mettre 0.10 a la place de 10 (et ainsi sur chaque valeur testée)