J'espère que vos fêtes de fin d'année se passent bien.
Je suis actuellement en train de modifier un fichier avec Userform. J'ai deux problème auxquels je suis confronté et peut être avez vous des solutions.
Premièrement, je souhaite visualiser certaines textbox sous format heure. Elles apparaissent actuellement au format scientifique, j'ai cherché des solutions mais sans succès jusqu'à présent.
Ma deuxième question porte toujours sur les textbox, je cherche à préremplir la textbox17 par "OK" dès que je clique dessus.
Private Sub ListBox1_Click()
For i = 1 To NbCol
TMP = ListBox1.Column(i - 1)
If Not IsError(TMP) Then Me("textbox" & i) = IIf(i = 12 Or i = 13, Format(TMP, "hh:mm:ss"), TMP)
Next i
Enreg = ListBox1.Column(NbCol)
End Sub
Pour TextBox17 :
VB:
Private Sub TextBox17_Enter()
TextBox17 = "OK"
End Sub
Private Sub ListBox1_Click()
For i = 1 To NbCol
TMP = ListBox1.Column(i - 1)
If Not IsError(TMP) Then Me("textbox" & i) = IIf(i = 12 Or i = 13, Format(TMP, "hh:mm:ss"), TMP)
Next i
Enreg = ListBox1.Column(NbCol)
End Sub
Pour TextBox17 :
VB:
Private Sub TextBox17_Enter()
TextBox17 = "OK"
End Sub