Date et Visible

Bonjour à tous,
J’ai ces deux instructions :

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox2_Click() If CheckBox2 = True Then precon.Visible = True Else precon.Visible = False End If End Sub

---

Code:

---

1 2 3 4

..... Sheets("feuil2").Cells(ligne, 18) = agentdesc.precon …..

---

Le problème c’est quand « precon.Visible = False », j’ai un bug dans mon progamme car precon est une date dont j’ai défini le format.
Comment résoudre ce problème ?

Bonjour,

ta qustion manque de précisions...
Explique avec exactitude.

Mais déjà :
ceci :

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox2_Click() If CheckBox2 = True Then precon.Visible = True Else precon.Visible = False End If End Sub

---

s'écrit tout simplement ainsi :

Code:

---

1 2 3

Private Sub CheckBox2_Click() precon.Visible = checkbox2.value End Sub

---

Code:

---

Sheets("feuil2").Cells(ligne, 18) = agentdesc.precon

---

se trouve dans module standard

Code:

---

1 2 3 4 5

Private Sub precon_Change() agentdesc.precon.MaxLength = 10 a = Len(agentdesc.precon) If a = 2 Or a = 5 Then agentdesc.precon = agentdesc.precon & "/" End Sub

---

Quand checkbox=true alors j'ai un textbox qui apparait dans lequel j'entre une date, qui s'affiche en

Code:

---

Sheets("feuil2").Cells(ligne, 18) = agentdesc.precon

---

et puis les autres instructions s'enchainent.
Par contre quand checkbox = false, j'ai un surlignage de

Code:

---

Sheets("feuil2").Cells(ligne, 18) = agentdesc.precon

---

et donc mon programme bloque sur cette instruction.