P
Patrick
Guest
Salut, comment dois je procéder si je ne désire pas entrer de saisie dans certaines cases de mon (userform1) sans que ça plante: car qq fois je n'aurais pas toutes les infos en même temps.
Private Sub CmdCancel_Click()
Unload UserForm1
End Sub
Private Sub CmdOK_Click()
Sheets("Liste").Select
ActiveSheet.[DEB].Select
Selection.End(xlDown).Select
If Selection.Address = "$A$65536" Then
Range("DEB").Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.txtNom
ActiveCell.Offset(0, 1).Value = UserForm1.txtPrenom
ActiveCell.Offset(0, 2).Value = UserForm1.TxtTelDom
ActiveCell.Offset(0, 3).Value = CLng(UserForm1.Txtnumader)
ActiveCell.Offset(0, 4).Value = UserForm1.Txtprof
ActiveCell.Offset(0, 5).Value = UserForm1.Txtadress
ActiveCell.Offset(0, 6).Value = CLng(UserForm1.Txtpostal)
ActiveCell.Offset(0, 7).Value = UserForm1.Txtlocal
'Sheets("Client").Select
'Sheets("Client").Copy
Worksheets("Client").Copy after:=Worksheets("Client")
ActiveSheet.Name = UCase(UserForm1.txtNom) & " " & UserForm1.txtPrenom
ActiveSheet.Range("D5") = UserForm1.txtNom
ActiveSheet.Range("D6") = UserForm1.txtPrenom
If IsNumeric(UserForm1.TxtTelDom) = True Then ActiveSheet.Range("D13") = CLng(UserForm1.TxtTelDom)
ActiveSheet.Range("D15") = UserForm1.Txtprof
If IsNumeric(UserForm1.Txtnumader) = True Then ActiveSheet.Range("D17") = CLng(UserForm1.Txtnumader)
ActiveSheet.Range("D9") = UserForm1.Txtadress
If IsNumeric(UserForm1.Txtpostal) = True Then ActiveSheet.Range("D10") = CLng(UserForm1.Txtpostal)
ActiveSheet.Range("D11") = UserForm1.Txtlocal
Unload Me
End Sub
Private Sub CmdCancel_Click()
Unload UserForm1
End Sub
Private Sub CmdOK_Click()
Sheets("Liste").Select
ActiveSheet.[DEB].Select
Selection.End(xlDown).Select
If Selection.Address = "$A$65536" Then
Range("DEB").Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.txtNom
ActiveCell.Offset(0, 1).Value = UserForm1.txtPrenom
ActiveCell.Offset(0, 2).Value = UserForm1.TxtTelDom
ActiveCell.Offset(0, 3).Value = CLng(UserForm1.Txtnumader)
ActiveCell.Offset(0, 4).Value = UserForm1.Txtprof
ActiveCell.Offset(0, 5).Value = UserForm1.Txtadress
ActiveCell.Offset(0, 6).Value = CLng(UserForm1.Txtpostal)
ActiveCell.Offset(0, 7).Value = UserForm1.Txtlocal
'Sheets("Client").Select
'Sheets("Client").Copy
Worksheets("Client").Copy after:=Worksheets("Client")
ActiveSheet.Name = UCase(UserForm1.txtNom) & " " & UserForm1.txtPrenom
ActiveSheet.Range("D5") = UserForm1.txtNom
ActiveSheet.Range("D6") = UserForm1.txtPrenom
If IsNumeric(UserForm1.TxtTelDom) = True Then ActiveSheet.Range("D13") = CLng(UserForm1.TxtTelDom)
ActiveSheet.Range("D15") = UserForm1.Txtprof
If IsNumeric(UserForm1.Txtnumader) = True Then ActiveSheet.Range("D17") = CLng(UserForm1.Txtnumader)
ActiveSheet.Range("D9") = UserForm1.Txtadress
If IsNumeric(UserForm1.Txtpostal) = True Then ActiveSheet.Range("D10") = CLng(UserForm1.Txtpostal)
ActiveSheet.Range("D11") = UserForm1.Txtlocal
Unload Me
End Sub