L
L.Patrick
Guest
Bonjour, lorsque je saisie mes informations clients, celles ci sont placées sur ma feuille excel, mais le format des cellules que j'ai utilisé n'est pas pris en compte comme pour les numéro de sécu, j'ai une erreure comme cela: (nombre stocké sous forme de texte), dois je le spécifier dans vba, et si oui comment. Merci d'avance. Patrick
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 = UserForm1.Txtnumader
ActiveCell.Offset(0, 4).Value = UserForm1.Txtnumsecu
ActiveCell.Offset(0, 5).Value = UserForm1.Txtprof
ActiveCell.Offset(0, 6).Value = UserForm1.Txtadress
ActiveCell.Offset(0, 7).Value = UserForm1.Txtpostal
ActiveCell.Offset(0, 8).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
ActiveSheet.Range("D13") = UserForm1.TxtTelDom
ActiveSheet.Range("D14") = UserForm1.Txtnumsecu
ActiveSheet.Range("D15") = UserForm1.Txtprof
ActiveSheet.Range("D17") = UserForm1.Txtnumader
ActiveSheet.Range("D9") = UserForm1.Txtadress
ActiveSheet.Range("D10") = 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 = UserForm1.Txtnumader
ActiveCell.Offset(0, 4).Value = UserForm1.Txtnumsecu
ActiveCell.Offset(0, 5).Value = UserForm1.Txtprof
ActiveCell.Offset(0, 6).Value = UserForm1.Txtadress
ActiveCell.Offset(0, 7).Value = UserForm1.Txtpostal
ActiveCell.Offset(0, 8).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
ActiveSheet.Range("D13") = UserForm1.TxtTelDom
ActiveSheet.Range("D14") = UserForm1.Txtnumsecu
ActiveSheet.Range("D15") = UserForm1.Txtprof
ActiveSheet.Range("D17") = UserForm1.Txtnumader
ActiveSheet.Range("D9") = UserForm1.Txtadress
ActiveSheet.Range("D10") = UserForm1.Txtpostal
ActiveSheet.Range("D11") = UserForm1.Txtlocal
Unload Me
End Sub