Répétition de procédure sur groupe de contrôles

Bonjour,

Je doit répéter plusieurs fois un test sur des textbox après leur saisie ( entre date avant et date après et heure avant et heure après pour détecter des anomalies) j'ai écris le code pour les premiers contrôles faut-il obligatoirement créer un module de classe? Je ne suis pas très à l'aise avec ça bien que j'en ai utilisé deux dans mon programme.

Quelqu'un pourrait m'aider a écrire ça proprement SVP ou y a-t-il une autre solution à mon sujet?

Merci!

Private Sub DateApres1_AfterUpdate()
Dim i As Integer
Dim X As String
Dim Y As String

For i = 1 To 16
X = (Delais.Controls("DateAvant" & i).Text)
Y = (Delais.Controls("DateApres" & i).Text)
If X > Y Then
MsgBox ("La date Avant doit être antérieure à la date après!")
Delais.Controls("DateApres" & i).Text = ""
End If
Next
End Sub

Private Sub HeureApres1_AfterUpdate()
Dim z As String, X As String, w As String, Y As String, i As Integer

For i = 1 To 16

w = (Delais.Controls("DateAvant" & i).Text)
X = (Delais.Controls("DateApres" & i).Text)
Y = (Delais.Controls("HeureAvant" & i).Text)
z = (Delais.Controls("HeureApres" & i).Text)

If w = X Then
If Y > z Then
MsgBox ("L'heure Avant doit être antérieure à l'heure d'après!")
Delais.Controls("HeureApres" & i).Text = ""
End If
End If
Next
End Sub

Bonjour Phenolate

Pourquoi ne pas avoir pris l'option d'une simple ligne de TextBox
et d'une ListView dans laquelle viennent s'ajouter les données saisies

Comme ça une seule ligne de contrôle

A+

Bonjour

Parce que j’ai besoin de x fois heures et dates différentes…

Re,

Oui et alors

Une ligne de TextBox dans laquelle on saisi ces détails, un bouton ajouter qui ajoute à la ListView,
un bouton valider qui enregistre les données de la Listview dans la feuille

C'est plus esthétique et tout aussi efficace

A+

Est-ce que je comprend bien? tu veux dire saisir dans mes 4 textboxs, heure avant heure après puis ajouter au fur et à mesure dans une listview avec un bouton pour ajouter mes entrées? c'est peut-être une bonne idée, mais sur ce coup ce n'est pas ma question même si ton approche semble intéressante.

Comment faire ce que je demande exactement ? Même si cela ne te paraît pas le choix le plus judicieux, en fait ça m'intéresse.

A+

Re,

Phenolate a écrit :

Comment faire ce que je demande exactement ?

C'est bien là le problème

Il suffit de faire une boucle avec tous les Contrôles de la ligne

Bon courage

Si une âme charitable et surtout compétente peut me montrer comment faire avec des modules de classe je suis preneur merci !!