Re : ouverture d'usf par une listbox
je m'excuse! je n'ai pas compris!
voilà ce que j'ai écris:
Private Sub userform_intialize()
Workbooks("Entretien engins (version 2).xls").Activate
TextBox = Now
'message d'erreur :" erreur de compilation: variable non définie"
' si je met
textbox2= Now
Pas de message d'erreur mais cela ne change rien à l'ouverture de l'usf, la date et l'heure n'apparaissent pas dans range ("a")
Dim I As Byte
For I = 1 To 6
Controls("CheckBox" & I) = False
Next I
End Sub
Private Sub Commandbutton1_click()
With Worksheets("Filtres")
If CheckBox1.Value = True Then .Range("N6").Value = .Range("N6").Value - 1
If CheckBox2.Value = True Then .Range("N21").Value = .Range("N21").Value - 1
If CheckBox3.Value = True Then .Range("N32").Value = .Range("N32").Value - 1
If CheckBox4.Value = True Then .Range("N46").Value = .Range("N46").Value - 1
If CheckBox5.Value = True Then .Range("N57").Value = .Range("N57").Value - 1
If CheckBox6.Value = True Then .Range("N68").Value = .Range("N68").Value - 2
End With
Dim c As Integer
With Worksheets("Hyster")
c = .Range("a65536").End(xlUp).Row + 1
.Range("a" & c).Value = TextBox2.Value
.Range("b" & c).Value = TextBox1.Value
.Range("i" & c).Value = TextBox3.Value
If CheckBox1.Value = True Then .Range("c" & c).Offset = ("changé")
If CheckBox2.Value = True Then .Range("d" & c).Offset = ("changé")
If CheckBox3.Value = True Then .Range("e" & c).Offset = ("changé")
If CheckBox4.Value = True Then .Range("f" & c).Offset = ("changé")
If CheckBox5.Value = True Then .Range("g" & c).Offset = ("changé")
If CheckBox6.Value = True Then .Range("h" & c).Offset = ("changés")
End With
Unload UserForm2
End Sub
Private Sub Commandbutton2_click()
ActiveWindow.WindowState = xlNormal
Unload UserForm2
End Sub