Controle date userforme

Bonjour

Je suis débutant en Excel vba c’est pourquoi j’ai bidouillé un formulaire de saisie que j’ai trouvé sur le net. Mais maintenant je suis bloqué car je n’arrive pas à contrôler les saisies suivantes :

1) Pour les dates je voudrais que la personne qui saisit soit obliger de taper « jj/mm/aaaa » et que ce soit contrôler lors de l’enregistrement

2) Pour les saisies de montants soit bien enregistrer sur le tableau en tant que Nombres et non pas en texte

Je joins mon fichier

Y aurait-il une âme charitable qui puisse m’aider ?

Merci par avance.

Jean-Pierre

8demandes-test.xlsm (44.96 Ko)

Bonjour Huert, bonjour le forum,

Pour les dates, peut-être comme ça :

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.TextBox2.Value) = False Then
    Cancel = True
    MsgBox "Date non valide ! Vous devez utiliser le format jj/mm/aaa !"
    With TextBox2
        .SelStart = 0
        .SelLength = Len(.Value)
    End With
    GoTo fin
End If
If UBound(Split(Me.TextBox2.Value, "/")) <> 2 Or Len(Me.TextBox2.Value) <> 10 Then
    Cancel = True
    MsgBox "Date non valide ! Vous devez utiliser le format jj/mm/aaa !"
    With TextBox2
        .SelStart = 0
        .SelLength = Len(.Value)
    End With
End If
fin:
End Sub

pour les chiffres :

Sheets("DEMANDES").Range("ZZZ" & Maligne)=CDBL(TextBox___.Value)

Mais ça plante si tu rentres le point comme séparateur décimal... Il faut utilser pour chaque textboxes qui contient des données numériques non entières un code du type :

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Then Exit Sub 'permet l'appuie sur la touche "," (virgule)
If KeyAscii = 46 Then KeyAscii = 44: Exit Sub 'remplace le point "." par une virgule ","
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 8 'efface tout autre caractère que {0, 1, 2, 3, 4, 5, 6, 7, 8 et 9}
End Sub

Bonjour, ThauTheme

Merci pour ta réponse qui fonction très bien pour la partie date .

Mais pour la partie nombres sur le tableau j'ai un nombre stocker en texte est il possible d'y remédier ?

D'avance merci

Bonjour Huet, bonjour le forum,

Ben !... As-tu essayé la proposition à adapter que je t'ai faite pour les chiffres ?

oui j'ai bien essayé ta proposition

Jean-Pierre

Bonjour Jean-Pierre, bonjour le forum,

Tu as besoin d'aide et tu ne fais même pas l'effort d'indiquer où ce trouve le problème. C'est énorme !... Je passe la main...

J'ai appliqué ta 2émé solution et ça marche

Merci @+

ThauThème a écrit :

Bonjour Jean-Pierre, bonjour le forum,

Tu as besoin d'aide et tu ne fais même pas l'effort d'indiquer où ce trouve le problème. C'est énorme !... Je passe la main...

Désolé je n'avais pas compris ta question

Rechercher des sujets similaires à "controle date userforme"