Boucle While avec nombre variable de conditions

Bonjour,

Je voudrais faire une boucle while avec un nombre variable de conditions. Je m'explique :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim Nom As String
Dim Enfants() As String
 
If Nom = Patrick Then
<div style="margin-left:40px">ReDim Enfants(3)
Enfants(1) = Jacques
Enfants(2) = Jean
Enfants(3) = Pierre</div>ElseIf Nom = Corinne Then
<div style="margin-left:40px">ReDim Enfants(1)
Enfants(1) = Charlotte</div>End If
' Maintenant j' ai une liste de prenoms tres tres longue et je voudrais savoir quand apparait pour la premiere fois le nom d un des enfants
Do While InStr(ListeEnfant, Enfants(1)) = 0 And InStr(ListeEnfant, Enfants(2))=0 ' ... etc 
' est ce que la au lieu d ecrire toutes les conditions du while je ne peux pas dire a mon programme si le parent a 10 enfants alors fais une boucle while a 10 conditions ?

Ma question est donc : ne peut on pas faire une boucle while avec un nombre de conditions dynamiques ? Si la personne a 50 enfants je ne vais pas ecrire une boucle while avec 50 conditions a la main ! Non ?

Bonjour,

Code:

1
2
3
4
5
    For i = LBound(Enfants) To UBound(Enfants) - 1
        If InStr(ListeEnfant, Enfants(i)) = 0 And InStr(ListeEnfant, Enfants(i + 1)) = 0 Then
            'ce que tu veux faire
        End If
    Next i

Merci pour cette solution. C'est ce que j avais fini par faire en un peu différent mais sur le même principe ( for et if)

Cordialement