Discussion :

[AMO05]

Bonjour à tous,
J’ai ces deux instructions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ucfoutu]

Bonjour,

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

Mais déjà :
ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AMO05]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

se trouve dans module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et donc mon programme bloque sur cette instruction.