Hello tout le monde!!! :)
J'ai des textbox qui représentent le résultat de requêtes.
Je veux sauvgarder mes données lorsque les jours de la semaine défilent.
Je commence avec:weekday (datejour) = 2 =Lundi
Si aujourd'hui est lundi,Les données apparaissent dans les textbox 53,59,65,71,77
Au jour suivant, les données de lundi disparaissent, et les données de mardi apparaissent...
Je veux que mes données soient sauvegardées au fur et à mesuere de l'avancement de la semaine pour avoir un tableau rempli.
Dim datejour As String
datejour = Format(Year(Date), "0000") & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00")
If WeekDay(datejour) = 2 Then
TextBox53.Value = Sheets("test").Range("bl3").Value
TextBox59.Value = Sheets("test").Range("bo3").Value
TextBox65.Value = Sheets("test").Range("bp3").Value
TextBox71.Value = Sheets("test").Range("w3").Value
TextBox77.Value = Val(TextBox88.Value) + Val(TextBox87.Value)
End If
If WeekDay(datejour) = 3 Then
TextBox54.Value = Sheets("test").Range("bl3").Value
TextBox60.Value = Sheets("test").Range("bo3").Value
TextBox66.Value = Sheets("test").Range("bp3").Value
TextBox72.Value = Sheets("test").Range("w3").Value
TextBox78.Value = Val(TextBox88.Value) + Val(TextBox87.Value)
End If
If WeekDay(datejour) = 4 Then
TextBox55.Value = Sheets("test").Range("bl3").Value
TextBox61.Value = Sheets("test").Range("bo3").Value
TextBox67.Value = Sheets("test").Range("bp3").Value
TextBox73.Value = Sheets("test").Range("w3").Value
TextBox79.Value = Val(TextBox88.Value) + Val(TextBox87.Value)
End If
If WeekDay(datejour) = 5 Then
TextBox56.Value = Sheets("test").Range("bl3").Value
TextBox62.Value = Sheets("test").Range("bo3").Value
TextBox68.Value = Sheets("test").Range("bp3").Value
TextBox74.Value = Sheets("test").Range("w3").Value
TextBox80.Value = Val(TextBox88.Value) + Val(TextBox87.Value)
End If
If WeekDay(datejour) = 6 Then
TextBox57.Value = Sheets("test").Range("bl3").Value
TextBox63.Value = Sheets("test").Range("bo3").Value
TextBox69.Value = Sheets("test").Range("bp3").Value
TextBox75.Value = Sheets("test").Range("w3").Value
TextBox81.Value = Val(TextBox88.Value) + Val(TextBox87.Value)
End If |
Bye,
Tahbre