Bonsoir le Forum,
Sur ce code, j'ai deux variable date1 et 2.
Je souhaiterais faire apparaitre un Userform, me demandant les deux dates dans deux TextBox differentes.
Et prendre en compte les valeurs de ces TextBox entrees precedement dans ma boucle.
En gros mettre en memoire ces deux dates, mais ATTENTION, sans les stocker dans une quelconque case ...
J'ai entendu parler de declarer les variables en Static.
Apres quelques recherches, il est possible que cela fonctionne, mais ne l'ayant jamais utilise, je suis bloque sans l'aide d'un connaisseur ...
Merci d'avance a celui qui aura une piste
Code:
'Macro for create a table in an other sheet, with the Plnd order numbers,
'and extract the TRUNKING and SM numbers in the period : Current date + 1 month - end of third next month
date1 = DateSerial(Year(Date), Month(Date) + 1, Day(Date))
date2 = DateSerial(Year(Date), Month(Date) + 4, Day(Date))
Sheets(2).[A1].CurrentRegion.ClearContents
derlig = Cells(Rows.Count, 9).End(xlUp).Row
For Each c In Range("I2:I" & derlig).SpecialCells(xlCellTypeVisible)
If c < date1Mois Then
ReDim Preserve tablo(3, x)
tablo(0, x) = Cells(c.Row, 1)
tablo(1, x) = Cells(c.Row, 4)
tablo(2, x) = Cells(c.Row, 7)
tablo(3, x) = Cells(c.Row, 9)
x = x + 1
End If
If c >= date1Mois And c <= date4Mois And _
Left(Cells(c.Row, 1), 2) <> "SM" And InStr(1, Cells(c.Row, 4), "trunking", 1) = 0 Then
ReDim Preserve tablo(3, x)
tablo(0, x) = Cells(c.Row, 1)
tablo(1, x) = Cells(c.Row, 4)
tablo(2, x) = Cells(c.Row, 7)
tablo(3, x) = Cells(c.Row, 9)
x = x + 1
End If
Sur ce code, j'ai deux variable date1 et 2.
Je souhaiterais faire apparaitre un Userform, me demandant les deux dates dans deux TextBox differentes.
Et prendre en compte les valeurs de ces TextBox entrees precedement dans ma boucle.
En gros mettre en memoire ces deux dates, mais ATTENTION, sans les stocker dans une quelconque case ...
J'ai entendu parler de declarer les variables en Static.
Apres quelques recherches, il est possible que cela fonctionne, mais ne l'ayant jamais utilise, je suis bloque sans l'aide d'un connaisseur ...
Merci d'avance a celui qui aura une piste