Type Mismatch si cellule = "'001"

Bonjour,

Je souhaite faire modifier une cellule Cells (i, "A") si et seulement si la cellule Cells (i, "B") = " ' 009 " (j 'ai ajouté des espaces pour accentuer ce qui est inclus dans la cellule mais en réalité, il s'agit de "'009")

Seulement, en lançant la macro, j'ai une erreur "Run Type error 13 : Type mismatch

Ci dessous la macro :

Sub Test ()

For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

If Cells(i, "B") = "'099" Then

Cells (i, "A") = "ok"

End if

Next

End Sub

Visiblement, le mismatch vient du "'009"

L' un d'entre vous sait comment reconnaitre la cellule telle qu'elle est écrite?

Bonsoir,

dommage que le N° de ligne ne soit pas mentionné.

Tel qu'il est, ce code ne fonctionne pas mais ne provoque pas d'erreur chez moi.

Essayer sans apostrophe:

If Cells(i, "B") = "099" Then

merci beaucoup

Rechercher des sujets similaires à "type mismatch 001"