Ajouter un code selon critere

Question

Bonjour,

J'ai une feuille Excel qui eventuellement je doit importer dans une base de données.

J'aimerais ajouter une code selon les criteres suivants:

Je dois garder la sequence, ensuite si le compte a une description Fees alors coder COD1

ainsi que les lignes gifs suivantes si le compte a un autre description Fees alors COD2 ainsi que

les lignes Gifts suivantes,

La plupart du temps le fichier semble a l'exemple ci-joint

Merci de votre aide

Dante

ACCOUNT           Amount               Date                      Description         Code

TT23                       440                         10/02/2012         Fees                      COD1

TT23                       8                              10/02/2012         Gift                        COD1

TT23                       6                              10/02/2012         Gift                        COD1

TT23                       8                              10/02/2012         Gift                        COD1

TT23                       493                         04/02/2013         Fees                      COD2

TT23                       9                              04/02/2013         Gift                        COD2

TT23                       11                           10/02/2012         Gift                        COD2

TT23                       7                              10/02/2012         Gift                        COD2

TT23                       3                              04/02/2013         Gift                        COD2

TT24                       1404                       06/04/2013         Fees                      COD1

TT24                       31                           06/04/2013         Gift                        COD1

TT24                       21                           06/04/2013         Gift                        COD1

TT24                       22                           06/04/2013         Gift                        COD1

TT25                       4476                       10/02/2012         Fees                      COD1

TT25                       86                           10/02/2012         Gift                        COD1

TT25                       98                           10/02/2012         Gift                        COD1

TT25                       5                              10/02/2012         Gift                        COD1

TT25                       6104                       04/02/2013         Fees                      COD2

TT25                       120                         04/02/2013         Gift                        COD2

TT25                       73                           10/02/2012         Gift                        COD2

TT25                       93                           04/02/2013         Gift                        COD2

 

Answer 1

Bonjour,

Essaie :

 

Sub test()

Dim c As Range, Res As String, Ctr As Integer

For Each c In Sheets("Feuil1").Range([A2], Cells(Rows.Count,

1).End(xlUp))

If c.Value <> Res Then

Ctr = 0

Res = c.Value

If c.Offset(, 3) = "Fees" Then

Ctr = Ctr + 1

c.Offset(, 4) = "CODE" & Ctr

Else

c.Offset(, 4) = "CODE" & Ctr

End If

Else

If c.Offset(, 3) = "Fees" Then

Ctr = Ctr + 1

c.Offset(, 4) = "CODE" & Ctr

Else

c.Offset(, 4) = "CODE" & Ctr

End If

End If

Next c

End Sub

 

Daniel

 

 

 

Answer 2

Bonjour,

Merci beaucoup Daniel, ca marche No 1, ca va me sauver un temps fou.

Dante