Bonjour,
J'aurai besoin d'une ptite aide de votre part, j'aimerai simplifier le code suivant en y inserant des variables s'il cela etait possible,merci pour votre aide.
car je possede plusieurs checkbox,textbox et commandbutton.
Merci par avance pour toutes vos aides.
Alpyna
Private Sub CheckBox1_Click()
Dim lig As Long
Dim TheTime As Date
TheTime = Now
TextBox5.Visible = True
CommandButton1.Visible = True
If CheckBox1 = True Then
TextBox5 = Format(TheTime, "dd/mm/yyyy")
Else: If CheckBox1 = False Then TextBox5.Enabled = True
End If
End Sub
Private Sub CommandButton1_Click()
Call Message
reponse = MsgBox(" La date est le " & TextBox5.Value, vbInformation, " Contrôle de la date")
CheckBox1.Enabled = False
lig = rechercheligne("Feuil2", "A", ComboBox1.Value, 2)
On Error Resume Next
Sheets("Feuil2").Range("F" & lig) = CDate(TextBox5.Value)
If TextBox5 = "" Then CheckBox1.Enabled = True
ActiveWorkbook.Save
End Sub
J'aurai besoin d'une ptite aide de votre part, j'aimerai simplifier le code suivant en y inserant des variables s'il cela etait possible,merci pour votre aide.
car je possede plusieurs checkbox,textbox et commandbutton.
Merci par avance pour toutes vos aides.
Alpyna
Private Sub CheckBox1_Click()
Dim lig As Long
Dim TheTime As Date
TheTime = Now
TextBox5.Visible = True
CommandButton1.Visible = True
If CheckBox1 = True Then
TextBox5 = Format(TheTime, "dd/mm/yyyy")
Else: If CheckBox1 = False Then TextBox5.Enabled = True
End If
End Sub
Private Sub CommandButton1_Click()
Call Message
reponse = MsgBox(" La date est le " & TextBox5.Value, vbInformation, " Contrôle de la date")
CheckBox1.Enabled = False
lig = rechercheligne("Feuil2", "A", ComboBox1.Value, 2)
On Error Resume Next
Sheets("Feuil2").Range("F" & lig) = CDate(TextBox5.Value)
If TextBox5 = "" Then CheckBox1.Enabled = True
ActiveWorkbook.Save
End Sub