1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Private Sub CmdValider_Click()
If Me.TextLOG.Text = "" Then
MsgBox "Le n° du logement est obligatoire."
Me.TextLOG.SetFocus
Exit Sub
End If
If CheckInterphonie.Value = True Then
Range("F65536").End(xlUp).Offset(1, 0).Value = 1 'ICI on écrit 1 si checkbox cochée
Me.CheckInterphonie.SetFocus
Else
Me.CheckInterphonie.Value = " "
Range("F65536").End(xlUp).Offset(1, 0).Value = " " 'ICI on écrit le caractère ESPACE si non cochée
End If
If CheckBAL.Value = True Then
Range("G65536").End(xlUp).Offset(1, 0).Value = 1
Me.CheckBAL.SetFocus
Else
Me.CheckInterphonie.Value = " "
Range("G65536").End(xlUp).Offset(1, 0).Value = " "
End If
If CheckTableau.Value = True Then
Range("H65536").End(xlUp).Offset(1, 0).Value = 1
Me.CheckTableau.SetFocus
Else
Me.CheckInterphonie.Value = " "
Range("H65536").End(xlUp).Offset(1, 0).Value = " "
End If
Range("D65536").End(xlUp).Offset(1, 0).Value = Me.TextLOG.Text
Range("I65536").End(xlUp).Offset(1, 0).Value = Date
Unload Me
End Sub |