Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
Private Sub UserForm_Initialize()
Dim i As Variant, n As Long
CboDates.ColumnCount = 2 'inutile si initialisée correctement
CboDates.ColumnWidths = "90;0" 'inutile si initialisée correctement
With Sheets("Saisies")
i = Application.Match(CLng(Date), .[D:D], 0)
If IsNumeric(i) Then
For i = i To 11 Step -2
n = n + 1
CboDates.AddItem Format(.Range("D" & i), "ddd dd mmm yyyy") 'format modifiable...
If n = 7 Then Exit For
Next
End If
End With
ListBox1.List = Feuil1.Range("P2", Feuil1.Range("P65536").End(xlUp)).Value
End SubPrivate Sub UserForm_Initialize()
Dim i As Variant, n As Byte
CboDates.ColumnCount = 2 'inutile si initialisée correctement
CboDates.ColumnWidths = "90;0" 'inutile si initialisée correctement
With Sheets("Saisies")
i = Application.Match(CLng(Date), .[D:D], 0)
If IsNumeric(i) Then
For i = i To 11 Step -2
CboDates.AddItem Format(.Range("D" & i), "ddd dd mmm yyyy") 'format modifiable...
CboDates.List(n, 1) = i
n = n + 1
If n = 7 Then Exit For
Next
End If
End With
ListBox1.List = Feuil1.Range("P2", Feuil1.Range("P65536").End(xlUp)).Value
End SubPrivate Sub CommandButton1_Click()
Dim L As Long, C As Byte
If CboDates.ListIndex = -1 Then CboDates.DropDown: Exit Sub
If ListBox1.ListIndex = -1 Then Exit Sub
L = CboDates.List(CboDates.ListIndex, 1)
C = ListBox1.ListIndex + 6
Feuil2.Cells(L, C) = TextBox2.Value
Feuil2.Cells(L + 1, C) = TextBox3.Value
TextBox1 = "": TextBox2 = "": TextBox3 = ""
CboDates.ListIndex = -1: ListBox1.ListIndex = -1
End Sub
