XL 2019 format texbox téléphone et date

ChTi160 à dit:

Re
je vais bien merci !
Comme indiqué je n'ai rien fait pour que cela fonctionne lol
C 'est juste un visuel.
Je regarde
Jean marie

Cliquez pour agrandir...

GALOUGALOU à dit:

re
oui, vous avez raison, je viens de faire le test
pour gérer ce problème, dans le code ci-dessous j'ai rajouté un test pour effectuer l'opération uniquement si le textbox contient une valeur
remplacer le code du #11 par celui ci

Enrichi (BBcode):

Private Sub B_validation_Click()
  If Me.nom = "" Then
     MsgBox "Saisir un nom"
     Me.nom.SetFocus
     Exit Sub
  End If
  '--- Transfert Formulaire dans BD
   f.Cells(ligneEnreg, 1) = Application.Proper(Me!nom)
   f.Cells(ligneEnreg, 2) = date_de_naissance

   f.Cells(ligneEnreg, 3) = tel_maman
   If f.Cells(ligneEnreg, 3) <> "" Then
    f.Cells(ligneEnreg, 3) = f.Cells(ligneEnreg, 3) * 1
    End If
   f.Cells(ligneEnreg, 4) = Me.tel_papa
    If f.Cells(ligneEnreg, 4) <> "" Then
      f.Cells(ligneEnreg, 4) = f.Cells(ligneEnreg, 4) * 1
      End If
   f.Cells(ligneEnreg, 5) = Me.ComboBox1
   f.Cells(ligneEnreg, 6) = Me.autre_1
      If f.Cells(ligneEnreg, 6) <> "" Then
      f.Cells(ligneEnreg, 6) = f.Cells(ligneEnreg, 6) * 1
      End If
   f.Cells(ligneEnreg, 7) = Me.ComboBox2
   f.Cells(ligneEnreg, 8) = Me.autre_2
      If f.Cells(ligneEnreg, 8) <> "" Then
      f.Cells(ligneEnreg, 8) = f.Cells(ligneEnreg, 8) * 1
      End If
   f.Cells(ligneEnreg, 9) = Me.infos


End Sub

cordialement
galougalou

Cliquez pour agrandir...