Discussion :

[dvdhag123]

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

[Invité]

Salut,

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

[dvdhag123]

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

[dvdhag123]

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

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