je saisie mes infos clients grâce à ceci:
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") = Val(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
les cellules ou sont entrées mes saisies sont en format spécial comme :
le numéro de téléphone ou le n°de sécu ou le code postal,
Mais mes cellules n'appliquent pas les formats spéciaux quand je passe par le programme vb alors qu'elles fonctionnent quand je tape les infos directement dans la cellule. Pouvez vous m'aider s'il vous plait, on m'a conseillé de mettre val comme ceci "ActiveSheet.Range("D14") = UserForm1.Txtnumsecu " mais cela ne fonctionne toujours pas.