Boucle for

[GillesC]

Bonjour à tous.

Mon Userform contient des dates à renseigner, Je veux donc tester le format date saisi.

Pour cela, j'utilise :

If Frm_Date1 <> "" Then
While Not IsDate(Frm_Date1)
Frm_Date1 = InputBox("Format de date non valide. Veuillez saisir la date sous format JJ/MM/AAAA")
If Frm_Date1 = "" Then Exit Sub
Wend
End If

Seulement, j'ai 5 cases dates à enrichir (Date1 à Date5), et je voudrais faire une boucle for plutôt que d'écrire 5 fois la même chose.

For i to 5
if Frm_Date&i etc...


Quelle est SVP la bonne syntaxe pour que Frm_Date & i soit considéré comme étant Frm_Date1 ?


Merci d'avance et bonne journée!

 

[Pierrot93]

Re : Boucle for

Bonjour Gilles

regarde le code ci-dessous si il peut t'aider :

Dim i As Byte
For i = 1 To 5
    If Me.Controls("Frm_Date" & i) <> "" Then
        'ton code
    End If
Next i

bonne journée
@+

 

[GillesC]

Re : Boucle for

Tout à fait ce qu'il me fallait!
Merci beaucoup Pierrot!