Boucle Si, Ou

Bonjour
J'ai un problème.
En colonne j'ai un élément texte ex:
Cet élément est situé en colonne "T"

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".
Mon fichier a plus de 40 000 lignes donc il faudrait qu'il ce répéte autant de fois que j'ai de ligne et fasse les remplacement si besoin, j'ai pensé aune boucle while.

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

J'ai déjà tenté des choses infructueuse ( très infructueuse même...)

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) < --- 'j'ai essayé qu avec un seul élément simplifier 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

---

On va faire simple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub toto() Dim i as long With Worksheets(1) For i = 2 to .range("T" & .rows.count).end(xlup).row If left(.range("T" & i),6) = "200406" or left(.range("T" & i),6) = "200407" or left(.range("T" & i),6) = "201581" or left(.range("T" & i),6) = "201613" or left(.range("T" & i),6) = "201614") then .range("AB" & i) = 94840 .range("AC" & i) = "ETAT" end if next i end with end sub

---

Mais une formule excel serait tout aussi bien
En AB2 :

Code:

---

=si(ou(gauche(T2,6) = "200406";gauche(T2,6) = "200407";....);94840;"")

---

J'avais aussi écris ça sur papier

Code:

---

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

Dim nb5=Application.WorksheetFunction.CountA(Range("A:A")) 'nombre de ligne de mon tableau nbr=2 'Ligne de commencement des valeurs   While nbr<=nb5 If Find."200406" or 'je ne connais pas la fonction trouve en vba Find."200407" or Find."201581" or Find."201613" or Find."201614" or Find."200112" THEN ("AB" & nb)=94840 And ("AC" & nb)="ETAT" else   EndIF nbr=nbr+1 Wend

---

Merci engue engue j'avais pas vu ta réponse

Il y a une erreur sur la ligne

Code:

---

1 2	If left(.range("T" & i),6) = "200406" or left(.range("T" & i),6) = "200407" or left(.range("T" & i),6) = "201581" or left(.range("T" & i),6) = "201613" or left(.range("T" & i),6) = "201614") or left(.range("T" & i),6) = "200112") then

---

Une parenthèse en trop juste avant le then

Merci engue t un chef ça fait 3h que je suis dessus..