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 : Sélectionner tout - Visualiser dans une fenêtre à part
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