Bonjour à tous,
Je me tourne aujourd'hui vers vous car je bloque depuis hier sur un problème probablement tout simple mais pourtant compliqué à appréhender pour un novice comme moi.
Le but de ma macro est d'adapter la couleur de la Colonne B en fonction du chiffre dedans (1, 2, 3, 4). Le 3 possède cependant une variante en fonction de la colonne C (Si le digit de 10 caractere commence par 91 ou 96).
Si 91 => Jaune
Si 96 => Vert
Voici mon code
Le problème étant que le code fonctionne, mais qu'il ne cesse d'afficher une erreur d'exécution 13 - Incompatibilité de type sur la dernière ligne de mon code :
If r1.Value = 3 And var = 91 Then r3.Interior.Color = RGB(255, 255, 0)
Merci de votre aide par 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
16
17
18
19 Sub Criticité() Dim i As Long, r1 As Range, r2 As Range, r3 As Range For i = 2 To 1000 Set r1 = Range("B" & i) Set r2 = Range("C" & i) Set r3 = Range("B" & i) var = Evaluate(Left(r2, 2)) If r1.Value = 1 Then r3.Interior.Color = RGB(141, 180, 226) If r1.Value = 2 Then r3.Interior.Color = RGB(255, 255, 255) If r1.Value = 3 Then r3.Interior.Color = RGB(146, 208, 80) If r1.Value = 4 Then r3.Interior.Color = RGB(255, 255, 255) If r1.Value = 3 And var = 91 Then r3.Interior.Color = RGB(255, 255, 0) Next i End Sub
Cordialement
Thomas
Partager