Validation de date / Userform

[simrobert21]

Liste / Userform

Bonjour

J'ai récupéré un fichier que j'ai adapté à mon besoin, par contre j'aimerais si possible m'assurer que la données entrée dans le champs date du userform soit une date valide. Je joint le fichier pour vous aidez.

 

[jp14]

Re : Validation de date / Userform

Bonjour

Pour vérifier si la valeur est une date il faut utiliser la fonction Isdate, cette fonction est à mettre à la sortie du contrôle

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "" Then Exit Sub
If Not IsDate(TextBox1.Value) Then
Call MsgBox("Vous devez entrer une date sous la forme" _
            & vbCrLf & "        jj/mm/aaaa" _
            , vbInformation, Application.Name)

End If
End Sub

a tester

JP

 

[Hulk]

Re : Validation de date / Userform

Hello le Forum, Simrobert21, Jp14,

Si non, pourquoi ne pas utiliser un DTPicker ?

Voir l'exemple.

Cdt, Hulk.

 

[simrobert21]

Re : Validation de date / Userform

C'est parfait ça, y aurait-il une façon de choisir plusieurs date qui créarait une ligne par date ? (Avec une copie des autres champs)

 

[jp14]

Re : Validation de date / Userform

Bonsoir simrobert21,Hulk

Une solution
modifier la macro pour enregistrer.

Private Sub CommandButton1_Click() 'bouton "Valider"
Dim donnee As Range
Dim y As Byte 'déclare la variable y
If TextBox1.Value= ""  Then Exit Sub
If Not IsDate(TextBox1.Value) Then Exit Sub



Set donnee = Sheets("Base").Range("A65536").End(xlUp).Offset(1, 0)

'placement des données

For y = 1 To 5 'boucle sur les  Textboxes
    If Me.Controls("TextBox" & y).Value <> "" Then
    
        donnee.Offset(0, y - 1).Value = CStr(Me.Controls("TextBox" & y).Value) 'placement de la donnée
        
                  
           End If
Next y
TextBox1.Value = ""

End Sub

Principe
Enregistrement
Mettre à blanc la zone pour la date sans effacer les données

A tester

JP

 

[simrobert21]

Re : Validation de date / Userform

Avec DTPicker, est-il possible de selectionner plusieurs date ?

 

[Hulk]

Re : Validation de date / Userform

Hello,

Tu peux faire comme dans le fichier joint, mais pas sûr que ça te vaille.

Au fait c'est juste enlever le Unload Me du CommandButton1 et ajouter un petit code à la place pour effacer les TextBox et remettre le DTPicker1 à jour.

Cdt, Hulk.

 

[simrobert21]

Re : Validation de date / Userform

Merci beaucoup Hulk et JP14

Je suis débutant et votre aide est très précieuse.

 

[simrobert21]

Liste dans Userform

Bonjour J'ai une autre question, je me demandais s'il étais possible de faire une liste (Sans possibilité d'ajout) avec le textbox"Type" qui prendrait sa source dans la colonne A de la feuille "Liste" et aussi une liste (avec possibilités d'ajout) avec le textbox "Compagnie" qui prendrait sa source dans la colonne D (Sans doublons) de la feuille "données"

J'espère que mes explications sont compréhensible

Merci de votre aide

 

[Hulk]

Re : Validation de date / Userform

Hello

Je te suggère de mettre déjà en place les TextBox et autres que tu veux rajouter et de joindre le fichier avec des notes.

Cdt, Hulk.

 

[jp14]

Re : Validation de date / Userform

Bonsoir

Ci joint le fichier avec deux combobox.

A tester

JP

 

[simrobert21]

Re : Validation de date / Userform

Merci JP14 et les autres, c'est exactement ce que j'avais besoin. J'aimerais ajouter une liste dans le champ hôte qui irait puiser les données dans la colone E, j'ai regardé le code et j'ai tenté quelque expérience sans succès. Est-il possible pour vous de m'aider à compléter le projet.

 

[jp14]

Re : Validation de date / Userform

Bonjour

Il suffit de rajouter le code ci dessous
Call IniCombobox1("base", "e", 2, 3, True) dans la procédure Private Sub UserForm_Initialize()
après avoir crée le combobox3
Call IniCombobox1("base" nom de la feuille qui contient les données , "e" colonne , 2 ligne de départ , 3 numéro du combobox, True tri des données )

A tester

Ps il faudra peut être modifier la procédure d'enregistrement des données

JP

 

[simrobert21]

Re : Validation de date / Userform

Bonjour JP14

Merci pour l'ecplication, en effet la procédure d'enregistrement ne fonctionne plus, tu as une piste pour que je puisse faire la modification?

Merci

 

[jp14]

Re : Validation de date / Userform

Bonjour (re)

Ci joint le fichier avec les modifications demandées.
J'ai renommé les contrôles.

A tester

JP