Boucle sur fonction ISDATE

Bonsoir,

Je voudrais réaliser un formulaire contenant plusieurs textbox de dates, et contrôler la conversion des dates avant validation.

Pour cela, j'ai écrit la formule suivante pour la textbox1, qui fonctionne correctement :

Private Sub CommandButton1_Click()

If IsDate(TextBox1) Then

TextBox1 = CDate(TextBox1)

Else

TextBox1 = "Entrez une date " + mettre en rouge + compteur erreurs +1

End If

End Sub

Mais, je voudrais écrire une boucle pour l'ensemble de mes textbox que j'ai écrit comme ça, mais ça ne marche pas

Private Sub CommandButton1_Click()

Dim I As Integer

For I = 1 To 2

If IsDate("TextBox & I) Then

Me.Controls("TextBox" & I) = CDate("TextBox" & I)

Else

Me.Controls("TextBox" & I) = "Entrez une date + mettre en rouge + compteur erreurs +1"

End If

Next I

End Sub

Voici à titre d'exemple le fichier contenant ma macro (la feuille excel n'est qu'à titre de support, pour le moment je n'ai besoin que de la macro)

Merci par avance,

Pascale

Bonjour

Pascale31 a écrit :

Voici à titre d'exemple le fichier contenant ma macro

Raté !!!!!

A tester

Private Sub CommandButton1_Click()
Dim I As Integer
  For I = 1 To 2
    If IsDate(Me.Controls("TextBox" & I)) Then
      Me.Controls("TextBox" & I) = CDate(Me.Controls("TextBox" & I))
    Else
      Me.Controls("TextBox" & I) = "Entrez une date + mettre en rouge + compteur erreurs +1"
    End If
  Next I
End Sub

Trop fort !!

quand on est pro on est pro ! rien à dire de plus !

encore un grand merci !

je vais pouvoir dormir, sans boucler sans fin

Pascale

Rechercher des sujets similaires à "boucle fonction isdate"