Merci Vincent, apparemment cela fonctionne bien, cependant j'ai un problème pour entrer mes saisies numériques au niveau des commande offset car il accepte la commande Clng que si il y a des données de saisies et si je ne rentre rien il plante à cet endroit:
ActiveCell.Offset(0, 2).Value = CLng(UserForm1.TxtTelDom)
Si je retire le Clng de cette ligne, ça donne donc ceci:
ActiveCell.Offset(0, 2).Value = UserForm1.TxtTelDom
Et tous fonctionne correctement si je n'entre pas de saisies grace à ta ligne que j'ai rentré plus loin.
Avec le Clng retiré de la ligne:
ActiveCell.Offset(0, 2).Value = UserForm1.TxtTelDom
Quand je rentre les chiffres, il sont pris comme du texte et pas du numérique, et le formatage ne se fait pas sur excel (comme celui là qui est formaté en tant que numéro de telephone).
je te montre ou j'ai placé tes lignes de commande.
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 = CLng(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 And IsEmpty(UserForm1.TxtTelDom) = False Then ActiveSheet.Range("D13") = CLng(UserForm1.TxtTelDom)
ActiveSheet.Range("D15") = UserForm1.Txtprof
If IsNumeric(UserForm1.Txtnumader) = True And IsEmpty(UserForm1.Txtnumader) = False Then ActiveSheet.Range("D17") = CLng(UserForm1.Txtnumader)
ActiveSheet.Range("D9") = UserForm1.Txtadress
If IsNumeric(UserForm1.Txtpostal) = True And IsEmpty(UserForm1.Txtpostal) = False Then ActiveSheet.Range("D10") = CLng(UserForm1.Txtpostal)
ActiveSheet.Range("D11") = UserForm1.Txtlocal
Unload Me
End Sub