Condision Si et replace

Bonjour
J'ai un problème.
En colonne j'ai un élément texte ex:

200406 traitement
200407 benefice
201613 cotis
201614 indemnité
200112 patron
458962 vaj
125697 pse
512667 ome
541268 rt
521264 ed
200406 vt
200407 ed
201613 sf
201614 gr
200112 mp

Il faudrait que si mon élément commence par:
200406
200407
201581
201613
201614
(Sans prendre ce qui a après car ce qui a après varie il faut juste que je prenne le début.)

Alors je met dans la colonne "AB" le code "94840" et dans la colonne AC je met "ETAT".

Je bloque sur cette macro si quelqu'un pourrait m'aider
Merci

200112

Salut,

Pas besoin de macro. Tu peux t'en sortir avec les fonctions 'Trouve()', 'Gauche()', et 'Droite()'...

J'ai essayé cela pour une seul condition ça ne marche pas
Et j'ai besoin d'une macro pour faire le test sur chaque ligne de mon tableau car j'ai envire 40000 ligne

=SI(T2=TROUVE(101000;T2);AB2=94840 ET(AC2="ETAT");)

De même avec cette fonction en s'attardant sur le premier poin t pour le moment
=SI(OU(TROUVE("101000";T2);TROUVE("102000";T2);TROUVE("403312";T2));VRAI;FAUX)
Merci

J'ai tenté de faire cela sans les OR pour me simplifier la tache

Code:

---

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

Dim nb5   nb5 = Application.WorksheetFunction.CountA(Range("A:A"))   While nbr <= nb5 With Worksheets(1).Range("T2" & ":T" & nb5) Set c = .Find(101000, LookIn:=xlValues) If Not c Is Nothing Then Columns("AB") = 94840 Columns("AC") = "ETAT"   Do Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress nbr = nbr + 1 End If End With Wend

---