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.

 

[simrobert21]

Re : Validation de date / Userform

Il semble y avoir une erreur, lorsque je veut quitter, excel m'indique document non enregistré, tu as une idée ?

 

[jp14]

Re : Validation de date / Userform

Bonsoir

Il semble y avoir une erreur, lorsque je veut quitter, excel m'indique document non enregistré, tu as une idée ?

Bizarre,
Je n'ai pas de problème.

JP

 

[simrobert21]

Re : Validation de date / Userform

J'ai fait des tests et finalement à l'ouverture du fichier j'ai le messages "Erreur de chargement de la DLL". Par la suite le fichier fonctionne normalement jusqu'a ce que je le sauvegarde, il inscrit alors "document non enregistré" J'ai aucune piste pour le moment.

 

[jp14]

Re : Validation de date / Userform

Bonjour

Il faudrait essayer en supprimant DTPicker.

JP

 

[simrobert21]

Re : Validation de date / Userform

Bonjour JP14 et les autres

J'ai finalement réussi à faire fonctionner le userform sans avoir de messages d'erreur. Par contre il resterait une dernière modification à faire pour qu'il réponde à 100% à mes besoins. Si possible de m'aider, j'aimerais que le données entrées dans soit insèrer dans la bonne colonne.

DTPicker1 / Colonne A
ComboBox5 / Colonne B
ComboBox4 / Colonne C
TextBox2 / Colonne D
ComboBox3 / Colonne E

J'ai tenter de modifier le code mais je suis assez débutant en VBA et dès que je modifie, elle ne fonctionne plus. Je joint le fichier pour référence.

Merci beaucoup

 

[jp14]

Re : Validation de date / Userform

Bonjour

Il suffit de supprimer

For y = 1 To 5 'boucle sur les  Textboxes
    Select Case y
        Case 1
            If Me.Controls("DTPicker" & y).Value <> "" Then
 .........................
            End If
        
    End Select
next y

de la procédure CommandButton1_Click
et écrire à la place ( à terminer)

donnee.Offset(0, 0).Value = DTPicker1.Value 'placement de la donnée colonne a
donnee.Offset(0, 1).Value = ComboBox5.Value ' colonne B

JP

 

[simrobert21]

Re : Validation de date / Userform

Super, ça fonctionne parfaitement, merci JP et les autres.