Je suis en train d'améliorer mon code afin de le simplifié, cependant je bloque à un endroits.
Voici ce que je souhaite faire, j'ai 10 fois le code ci dessous pour 10 listes différents.
Je ne souhaite pas faire une fonction mais plutot mettre ce code dans un for each et faire un tableau de liste.
J'ai tenté avec des array, ... mais je n'y arrive pas j'ai des type incompatible et d'autre erreurs.
Do If ((tmp_date txt_date_fin.Value) Or (resultat_tests True)) Then Exit Do
tmp_date = DateAdd("d", 1, tmp_date)
For i = 0 To liste_congés.ListCount - 1
If (Len(liste_congés.Column(1, i)) = 10) Then If (liste_congés.Column(1, i) tmp_date) Then resultat_tests True
ElseIf (DateInclu(tmp_date, Left(liste_congés.Column(1, i), 10), Right(liste_congés.Column(1, i), 10)) = True) Then
resultat_tests = True
End If
Next
Loop
Merci d'avance de m'aiguiller sur une solution efficace.
"Je ne souhaite pas faire une fonction mais plutot mettre ce code dans un for each et faire un tableau de liste."
- Pourquoi ne pas passer par une fonction , c'est a mon avis ce qu il y a de mieux.
- For each ?.... elle est ou ta boucle for each.
"J'ai tenté avec des array, ... mais je n'y arrive pas j'ai des type incompatible et d'autre erreurs."
-a quelles lignes tu as des type incompatible???
Do If ((tmp_date txt_date_fin.Value) Or (resultat_tests True)) Then Exit Do
tmp_date = DateAdd("d", 1, tmp_date)
For i = 0 To liste_congés.ListCount - 1
If (Len(liste_congés.Column(1, i)) = 10) Then If (liste_congés.Column(1, i) tmp_date) Then resultat_tests True
ElseIf (DateInclu(tmp_date, Left(liste_congés.Column(1, i), 10), Right(liste_congés.Column(1, i), 10)) = True) Then
resultat_tests = True
End If
Next
Loop
.."Je fais des fonctions uniquement quand j'ai besoin du code a plusieurs endroit différent"...
..." j'ai 10 fois le code ci dessous pour 10 listes différents"... => Ceci n'est pas suffisant pour toi pour faire une fonction. enfin bref, le plus important est que tu es résolu ton problème et que cela fonctionne.
@+, Ju£i?n