Autres remplir bd depuis userform

[maxim47]

Bonsoirr
je cherche à remplir une petite base de données depuis un userform jai essayé depuis d'autres exemples mais je n'y arrive pas si quelqu'un peut me donner un coup de main
merci d'avance out est dans le fichiers joint

 

[patricktoulon]

re
voila la c'est au poil

Private Sub TextBox1_Change()
    Static t As String
    With TextBox1
        If Len(.Value) > Len(t) Then
            If .Value Like "*[A-z]*" Then .Value = "": Beep
             If Val(.Value) > 31 Then .SelStart = 0: .SelLength = 3: Beep
            If Len(.Value) = 2 Or Len(.Value) = 5 Then .Value = .Value & "/"
            If Len(.Value) = 6 Then If Not IsDate(.Value & "2000") Then .SelStart = 3: .SelLength = 3: Beep
        Else
         If Len(.Value) = 2 Then .Value = ""
         If Len(.Value) > 6 Then .Value = Left(.Value, 6) ': Exit Sub
         If Len(.Value) < 6 Then .Value = Left(.Value, 3) ': Exit Sub
        End If

        t = .Value
    End With
End Sub

voila une idée a 2 balles 😉et c'est gagné un code simple accessible a tous et c'est pas une usine a gaz et tu maitrise ta saisie et tu garde ton clavier dispo (touche back,suppr,etc...) et bien sur les caractères autre que 0 à 9 sont exclus

 

[JM27]

Super
et bien plus simple
je range dans mes macros

 

[maxim47]

ma base de donnée n'a qu'une ligne dans ce tableau ensuite quand j'ai rentré les données de l'useform je déclenche une macro qui cré dans la bd un calendrier entre les dates fixé puis je génére les onglets portant comme nom les dates généré c'est pour ça que je souhaite déclencher les macro quand j'ai rempli l'useform je teste ce que tu m'a envoyé et je te tiens au corant
merci

 

[JM27]

patricktoulon

bonjour
j'ai apporté quelques modifs
mais je ne sais pas si c'est OK.
Il y a quelques possibilités de saisies qui pose pb
Si on remplace un caractère par un autre ( je sais c'est tordu 😀 )

On on ne limite pas le nb de caractères saisis ( je sais on peut mettre le maxlenght à 10)

J'ai fait un bout de programme selon ton idée avec une possibilité d'avoir plusieurs textbox de date et avoir des dates mini et maxi.
mais je pense que l'on doit pouvoir faire encore des erreurs de saisie.
essaie et dis moi
merci

 

[JM27]

maxim47

Une petite modif avec le calendar de Patrick

 

[maxim47]

la version avec le calendar est pas mal du tout je regarde si ça fonctionne avec le reste de mon programme je te tiens au courant des demain
merci encore

 

[patricktoulon]

re
quand je dis que installer mon calendrier est simple la on en a un bel exemple
simple et pratique
que dire de plus 😉

 

[JM27]

Bonsoir
bien sur que c'est simple en 2 minutes c'est fait

 

[patricktoulon]

re

hé hé 😛 j'ai du cravacher pendant un peu plus longtemps pour vous le faire et que ca soit simple pour vous 😉😀😀😀

 

[JM27]

Va falloir cravacher sur le post au #20 😀 😀 😀 😀 😀 😀

https://www.excel-downloads.com/threads/remplir-bd-depuis-userform.20040277/#post-20288049

 

[patricktoulon]

re
non pas du tout je sais déjà ce q'il faut faire
2 lignes 😉
et puis le tiens est bloquant le mien non

 

[JM27]

Je vais te le tester et te le casser
j'ai l'habitude avec des utilisateurs qui ont 2 mains gauche et 5 pouces!!! 😀 😀 😀 😀 😀 😀

 

[patricktoulon]

re
2 lignes j'ai dit nannan!! 1

Private Sub TextBox1_Change()
    Static t As String
    With TextBox1
        If .SelStart + 1 < Len(.Value) Then MsgBox "nanan!! va faire la sieste tu me la fera pas a l'envers": .Value = t
        .Value = Mid(.Value, 1, 10)
        If Len(.Value) > Len(t) Then
            If .Value Like "*[A-z]*" Then .Value = "": Beep
            If Val(.Value) > 31 Then .SelStart = 0: .SelLength = 3: Beep
            If Len(.Value) = 2 Or Len(.Value) = 5 Then .Value = .Value & "/"
            If Len(.Value) = 6 Then If Not IsDate(.Value & "2000") Then .SelStart = 3: .SelLength = 3: Beep
        Else
            If Len(.Value) = 2 Then .Value = ""
            If Len(.Value) > 6 Then .Value = Left(.Value, 6)    ': Exit Sub
            If Len(.Value) < 6 Then .Value = Left(.Value, 3)    ': Exit Sub
        End If
         t = .Value
    End With
End Sub

LOL 😉

 

[JM27]

je regarde et te dis

 

[patricktoulon]

re
oh tu peux y aller j'ai testé 😉
mais pour être honnête je préfère de loin l'interception que la correction post change

voir post#8 😉 c'est beaucoup beaucoup plus complet