Discussion :

[JBLCN]

Bonjour à tous

Je suis assez nul en VBA. je dois développer une base PHP/MySql (que je connais bien) mais je dois pour cela traiter un fichier de dates assez mal concu.

Ce fichier renferme des années :

1997>>>année 1997
1992-1994>>> années 1992, 1993 et 1994
1991-1997>>années 1991,1992,1993,1994,1995, 1996 et 1997
>2001 >> années 2000 et suivantes..


Je dois sélectioner des lignes par rapport à une année. J'ai séparé ces données en tableau

Reprenons les lignes ci-dessus :

Colonne A ColonneB
"" 1997
1992 1994
1991 1997
2006 2001


Ainsi trois cas de firues pour les paramètres en colonne C:

B-A=B alors C=B

B-A=i>0 alors c=A,A+1,A+2,.....A+i

B-A=j<0 alors c=A,A-1, A-2,....A-j



Ceci bien sur pour des milliers de lignes...


Je pourrais écrire cet algorythme en PHP mais il me parait plus logique de traiter le fichier en entrée car peu de modifs sont à attendre.

Encoree une fois je ne connais hélas pas le VB. Si vous pouviez m'aider ou me donner des pistes...
Merci d'avance...

JBLCN[/email]

[AlainTech]

Voilà:

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
19
20
21
22
23
24
25
Sub YearSplit()
  Dim iI As Integer
  Dim iStep As Integer
  Dim rRange As Range
  Dim sBuffer As String
  Dim vCell As Variant
  Set rRange = Range([A1], Cells(Cells.SpecialCells(xlLastCell).Row, 1))
  For Each vCell In rRange
    sBuffer = "'"         ' Apostrophe sert à forcer la cellule en Texte
    If IsNumeric(vCell) Then
      If Val(vCell) < Val(vCell.Offset(0, 1)) Then
        iStep = 1
      Else
        iStep = -1
      End If
      For iI = Val(vCell) To Val(vCell.Offset(0, 1)) Step iStep
        sBuffer = sBuffer & CStr(iI) & ","
      Next iI
      sBuffer = Left(sBuffer, Len(sBuffer) - 1) ' Suppression de la dernière virgule
    Else
      sBuffer = sBuffer & CStr(vCell.Offset(0, 1))
    End If
    vCell.Offset(0, 2) = sBuffer
  Next vCell
End Sub

Je pense qu'il était difficile de faire plus court.