Problème de compilation fonction IF et boucle while

Bonjour à tous,

Je viens de terminer le code ci-dessous, cependant il y a une erreur dans l'execution "imcompatibilité de type" sur la ligne "If Cells(X, 18) = "REMBOURSEMENT" Then"
Est il possible de faire une boucle et de renvoyer les références de cette même boucle dans une autre cellule dans la même ligne? Le code sera plus explicatif.

Merci pour votre aide précieuse.

Ci-joint mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test()   X = 2 While IsEmpty(Cells(X, 1)) = False   If Cells(X, 18) = "CHANGEMENT" Then Cells(X, 13) = Cells(X, 9) End If If Cells(X, 18) = "REMBOURSEMENT" Then Cells(X, 14) = Cells(X, 9) End If     X = X + 1   Wend   End Sub

---

Bonjour ,
Pourquoi ne pas utiliser ELSEIF:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test()   X = 2 While IsEmpty(Cells(X, 1)) = False   If Cells(X, 18) = "CHANGEMENT" Then Cells(X, 13) = Cells(X, 9)   ElseIf Cells(X, 18) = "REMBOURSEMENT" Then Cells(X, 14) = Cells(X, 9) End If     X = X + 1   Wend   End Sub

---

Bonjour à tous.

Quelle est la valeur de X quand le message d'erreur apparait ?

Cordialement.

Merci pour vos conseils.

En faite dans ma boucle il y avait des valeurs #N/A du coup le code planté :(

Merci encore et bonne journée