Discussion :

[dvdhag123]

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

[EngueEngue]

On va faire simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dvdhag123]

J'avais aussi écris ça sur papier

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=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

[dvdhag123]

Il y a une erreur sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EngueEngue]

Une parenthèse en trop juste avant le then

[dvdhag123]

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