Ne pas vider une ComboBox date après chaque Validation...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier ce code :
dans mon USF après avoir saisi, la CboDates se vide lorsque je valide, je voudrais que cette ComboBox laisse la date affichée, tant que je ne la change pas...

Private 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 = Feuil2.[F1:AW1].Find(ListBox1, LookIn:=xlValues).Column
Feuil2.Cells(L, C) = TextBox2.Value
Feuil2.Cells(L + 1, C) = TextBox3.Value
TextBox1 = "": TextBox2 = "": TextBox3 = ""
CboDates.ListIndex = -1: ListBox1.ListIndex = 1
End Sub

Merci pour votre aide.
Bien à vous,
Christian

 

[Dranreb]

Re : Ne pas vider une ComboBox date après chaque Validation...

Bonjour.
Eh bien vous mettez un point d'arrêt dans cette procédure, vous déroulez en pas à pas, et dès que vous voyez disparaître votre date vous supprimez l'instruction qui vient de s'exécuter…

 

[Christian0258]

Re : Ne pas vider une ComboBox date après chaque Validation...

Re, le forum, Dranreb,

Merci, Dranreb, pour tes explications, je vais suivre tes consignes...

Bien à toi,
Christian