none
Ajouter un code selon critere RRS feed

  • 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

     

    mardi 5 juillet 2011 21:03

Réponses

  • 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
     
     
     
    • Marqué comme réponse PointMicro mercredi 6 juillet 2011 15:05
    mercredi 6 juillet 2011 08:43

Toutes les réponses

  • 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
     
     
     
    • Marqué comme réponse PointMicro mercredi 6 juillet 2011 15:05
    mercredi 6 juillet 2011 08:43
  • Bonjour,

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

    Dante

     

    mercredi 6 juillet 2011 15:05