XL 2019 format texbox téléphone et date

[Yann71]

Bonjour la com.
Après recherche sur différent forum je n'ai trouvé ce que je recherchai.
J'ai un user qui rempli une base de donnée dont j'aimerai que certaine textbox & collone aient une mise en forme
bien précise. Ex.: pour un num de téléphone 000 000 00 00 dans un autre +00 000 000 000...

Merci pour votre aide futur.

 

[ChTi160]

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

 

[Yann71]

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

Ton visuel donne envie ;O) je vais essayer de travailler dessus mais je ne sais si je vais y arriver sans me tirer les cheveux déjà que j'en ai plus beaucoup ;O)

 

[Yann71]

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

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

Extra cela fonctionne parfaitement je te remercie pour ton aide. Vous êtes une sacré bonne équipe ici

 

[GALOUGALOU]

La synergie de tous les membres du forum a permis de trouver une solution à ta problématique c'est le principal bonne suite à toi et à bientôt sur XLD GalouGalou