Re : ouverture d'usf par une listbox
Salut Bebere!
J’espère que tu a passé un bon week-end, encore une question
j'espère que je n'abuse pas, sinon n'hésite pas à me le dire!)
Quand tu utilise "I" dans une variable d'un userform (ce qui permet de réduire singulièrement les lignes de commande), peut-on utiliser x, y ou z pour réduire d'autres paragraphes .
cette question afin de réduire le 2° de ceci, si possible.(commandbutton1)
Private Sub userform2_intialize()
Workbooks("Entretien engins (version 2).xls").Activate
Dim I As Byte
For I = 1 To 6
Controls("CheckBox" & I) = False
Next I
'metre la date et l'heure dans texbox2
End Sub
Private Sub Commandbutton1_click()
If CheckBox1.Value = True Then
Worksheets(2).Range("L6").Value = Worksheets(2).Range("L6").Value - 1
If CheckBox2.Value = True Then
Worksheets(2).Range("L21").Value = Worksheets(2).Range("L21").Value - 1
If CheckBox3.Value = True Then
Worksheets(2).Range("L32").Value = Worksheets(2).Range("L32").Value - 1
If CheckBox4.Value = True Then
Worksheets(2).Range("L46").Value = Worksheets(2).Range("L46").Value - 1
If CheckBox5.Value = True Then
Worksheets(2).Range("L57").Value = Worksheets(2).Range("L57").Value - 1
If CheckBox6.Value = True Then
Worksheets(2).Range("L68").Value = Worksheets(2).Range("L68").Value - 2
End If
End If
End If
End If
End If
End If
'enregistrement de tout l'userform dans feuil 3 à la date du jour voire l'heure si besoin est!!!
Unload UserForm2
End Sub
Private Sub Commandbutton2_click()
ActiveWindow.WindowState = xlNormal
Unload UserForm2
End Sub
A bientôt et merci de ta patience
Alex