For Each objControl In UserForm1.Controls
If TypeOf objControl Is MSForms.TextBox Then
objControl.Text = ""
ElseIf TypeOf objControl Is MSForms.ComboBox Then
objControl.ListIndex = -1
End If
Next objControl
Bonjour SylvanuBonjour Guy,
Un essai en PJ.
Votre colonne A contenait plein de date en blanc sur fond blanc. Petit piège , donc évidemment la Derlig était fausse. J'ai tout éffacé.
J'ai rajouté à la fin de l'enregistrement l'effacement de toutes les textbox pour la saisie suivante, avec :
VB:For Each objControl In UserForm1.Controls If TypeOf objControl Is MSForms.TextBox Then objControl.Text = "" ElseIf TypeOf objControl Is MSForms.ComboBox Then objControl.ListIndex = -1 End If Next objControl
Pourrais tu mettre dans ta Base de Données des éléments différents et représentatifs ?questions:
Pourquoi les dates ont elles des (1) à leur extrémité ?
Comment traites tu la recherche si un même Jour tu as Plusieurs incidents qui concerne le même type de Materiel .
exemple : 10 Incidents de Courrois sur différents Matériels le même Jour?