Codes sur Usf à modifier (novice)

[castor30]

Bonjour à vous tous,
J'ai de gros problèmes que je n'arrive pas à résoudre, c'est pourquoi je compte sur votre expérience et vos grandes connaissances.
1 - Peut-on supprimer la combo Recherche + son Label
et ses codes ? Ou les rendre invisible.
2 - Je voudrai pour les TextBox en rose (Ajoutés) que :
a) lorsque l'on clique dans le Tbx Date il y est un masque
de saisie __/__/____ et qu'il n'y est pas besoin de taper
les /
b) que la commune s'écrive en majuscule et en gras.
idem pout le Dpt lors du report dans la Base.
3 - Que l'âge se porte dans la TextBox
4 - Modifier les codes pour reporter les modifications et/ou
ajout dans la Base des TextBox (tb 1 à 21).
Je suis trop novice pour faire cela.
En vous remerciant sincèrement.
ps : voir feuille Usf

 

[Lone-wolf]

Bonjour castor

Si tu sais qui est l'auteur du fichier, il faut t'adresser directement à lui, plus apte à mener à bien tes demandes. Sinon, mieux vaux refaire un nouveau formulaire, sans modifier les noms des contrôles; plus rapide de faire(un exemple).

For i = 1 to 21
Cells(1, i ) = Controls("TextBox") & i
Next i

Que d'écrire
Range("a2") = TbNom
Range("b2") = TbPrenom
Range("c2") = TbAdresse
Range("d2") = TbCp
Range("e2") = TbVille

 

[castor30]

Bonjour Lone-wolf,
non je ne le connais pas hélas,
maintenant je prend note des adresses et des noms, mais un peu tard.

 

[Lone-wolf]

Re

Dans ce cas, comme je l'ai dit, mieux vaux refaire un nouveau formulaire.

 

[cathodique]

Bonjour Castor30, Lone-wolf

Pour la saisie date, essaie ce code.

' à mettre dans l'userform
' --------------- N'autorise que la saisie de chiffres
Private Sub TextBox1_KeyPress(ByVal Touche As msforms.ReturnInteger)
    If InStr("0123456789", Chr(Touche)) = 0 Then Touche = 0
End Sub

'Controle validité de la date saisie
Private Sub TextBox1_change()
Dim Validite As Boolean
Call ValidationDate(UserForm1.TextBox1, Validite)       'UserForm1
End Sub

' =============== Routine de validation de date à la saisie dans Textbox ============
'================              Dans un module standard                   ============
'
Sub ValidationDate(TextBox1 As Object, Valide As Boolean)
Dim reponse As Variant
Dim LaDate As String
'
2 Select Case Len(TextBox1.Value)
    Case 1
        If CLng(TextBox1.Value) > 3 Then
            reponse = MsgBox("Le jour ne peut pas commencer par " & TextBox1.Value, vbOKOnly, "Erreur de saisie")
            TextBox1.Value = ""
            Exit Sub
        End If
    Case 2
        If CLng(TextBox1.Value) > 31 Then
            reponse = MsgBox("Le mois ne peut avoir plus de 31 jours", vbOKOnly, "Erreur de saisie")
            TextBox1.Value = Left(TextBox1.Value, 1)
            Exit Sub
        Else
            TextBox1.Value = TextBox1.Value & "/"
        End If
    Case 4
        If Right(TextBox1.Value, 1) > 1 Then
            reponse = MsgBox("L'année ne peut avoir plus de 12 mois", vbOKOnly, "Erreur de saisie")
            TextBox1.Value = Left(TextBox1.Value, 3)
            Exit Sub
        End If
    Case 5
        If CLng(Right(TextBox1.Value, 2)) > 12 Then
            reponse = MsgBox("L'année ne peut avoir plus de 12 mois", vbOKOnly, "Erreur de saisie")
            TextBox1.Value = Left(TextBox1.Value, 4)
            Exit Sub
        Else
            TextBox1.Value = TextBox1.Value & "/"
        End If
    Case 8
    LaDate = Left(TextBox1.Value, 6) & "20" & Right(TextBox1.Value, 2)
    If Not IsDate(LaDate) Then
        reponse = MsgBox("Le " & TextBox1.Value & " n'existe pas ", vbOKOnly, "Erreur de saisie")
        TextBox1.Value = ""
        Exit Sub
    End If
  
    Valide = True
End Select
End Sub

Bon week-end.