Erreur d'exécution 13 - Incompatibilité de type

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)

Code:

---

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

---

Merci de votre aide par avance!
Cordialement

Thomas

Citation:

---

Envoyé par tmsbmt

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)

---

Quel est le contenu de la cellule B1000 ?
Quel est la valeur de la variable "var" quand le code plante ?

Bonjour Menhir et merci pour ta réponse,

B1000 Correspond à la fin de mon tableau.

En gros la variable "var" est là pour extraire les 2 premiers nombres de la cellule.

Exemple:
Pièce jointe 425147

=> En fonction des 2 premiers, le code couleur en cellule B doit s'adapter.

A priori, c'est ici que cela doit se jouer.
Si ta cellule est vide, tu vas avoir une erreur et donc, un plantage

Code:

---

Var = Evaluate(Left(r2, 2))

---

Citation:

---

Envoyé par tmsbmt

B1000 Correspond à la fin de mon tableau.

---

Ca ne répond pas à ma question : que contient la cellule B1000 ?

Citation:

---

En gros la variable "var" est là pour extraire les 2 premiers nombres de la cellule.

---

Là encore, ça ne répond pas à ma question : je ne te demande pas ce que tu souhaites qu'elle contienne mais ce qu'elle contient réellement au moment du plantage.

Mets un debug.print ou un MsgBox juste avant pour afficher sa valeur, ou regarde dans le fenêtre des variables locales mais regarde quelle valeur elle contient effectivement.

Bonjour,

Code:

---

var = Evaluate(Left(r2, 2))

---

tu fourni un String que tu compares à un nombre.

Code:

---

var = cnlg(Evaluate(Left(r2, 2))

---

)

Si tu typais toutes tes variables (var ne l'est pas) tu n'aurais pas ces soucis.
eric

Bonjour,

Désolé pour le délai de réponse, j'étais en déplacement sans possibilités de tester les modifications.

En effet, le problème venait du fait qu'il y avait 999 lignes et non pas 1000... Du coup, sur la dernière ligne (vide), la macro plantait.

Merci à tous