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