Comparer des cellules sous Excel

Bonjour a tous,

J'ai un tableau de la forme suivante :

[img]http://img233.imageshack.us/img233/6156/14xi.jpg[/img]

La colonne A contient un nombre a 5 chiffres
La colonne B est vide
La colonne C contient une suite de caracteres : 2 espaces, un nombre a 5 chiffres, un underscore puis une suite de caracteres.

Mon but est de comparer le nombre de la colonne A avec celui de la colonne C. Si ils sont identiques, j'inscris OK dans la colonne D, sinon j'inscris NON OK dans la colonne D.

Comment faire cela ?

Merci

Salut,

Tu peux essayer un truc du style:

Dim  i as long
For i = 1 to LaLigneQueTuVeux
  If Mid(ActiveSheet.Range("C" & i).Value, 3, 5) = ActiveSheet.Range("A" & i).Value then 
         ActiveSheet.Range("D" & i).Value = "OK"
   else
         ActiveSheet.Range("D" & i).Value = "NON OK"  
   end if
         
Next

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée