Boucle while dans tableau

Version imprimable

Bonjour,

je me permets de poster ce sujet car je me trouve face à un problème

J'ai construit un tableau "virtuel", uniquement avec du code VBA.

ce tableau contient une ligne faite de "oui" et de "non".

La ligne se présente de la sorte:

oui oui oui oui non non non non

je voudrait un code qui, pour la colonne j, me donne la longueur de la dernière plage de "oui".

Pour être plus clair, cette boucle doit me donner:
3 pour j=3
0 pour j = 5

j'ai tenté le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 sub creationtableau() dim tableau(1,1 to 8) as variant tableau(1,1)="oui" tableau(1,2)="oui" tableau(1,3)="oui" tableau(1,4)="oui" tableau(1,5)="non" tableau(1,6)="non" tableau(1,7)="non" tableau(1,8)="non" end sub sub test for j=1 to 8 duree=0 While tableau(1, j -duree - 1) = "oui" duree= duree+ 1 Wend next j end sub
Le problème c'est qu'il y a dépassement d'indice au bon d'un moment. J'ai essayer d'ajouter des conditions , mais rien n'y fait...

Pouvez-vous m'aider?

Merci d'avance.

TRM

Salut,

Première remarque : tu n'as pas besoin d'un tableau à 2 dimensions, une suffit amplement.

Deuxièmement, pourquoi un tableau de variant et non de String ?

Ensuite as-tu tenté quelque chose comme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 sub creationtableau() dim tableau(8) as String tableau(1)="oui" tableau(2)="oui" tableau(3)="oui" tableau(4)="oui" tableau(5)="non" tableau(6)="non" tableau(7)="non" tableau(8)="non" end sub sub test creationtableau 'Faut bien l'appeler ta première procédure dim cpt as integer cpt = 0 for i = 1 to 8 If tableau(i)="Oui" Then cpt = cpt + 1 End if next MsgBox cpt end sub
Je l'ai fait à main levée mais ça devrait être dans ce goût là !

Bonne nuit :zoubi:

Bonjour,
Pas bien clair !! ta duree c'est le nombre total de oui dans le tableau ? au quel cas le code de Dead est d'application, mais si ta durée c'est la plus grande série de oui il faut passer par une variable intermédiaire.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub creationtableau() Dim tableau(1, 1 To 8) As String Dim Duree As Integer Dim MemoDuree As Integer tableau(1, 1) = "oui" tableau(1, 2) = "oui" tableau(1, 3) = "oui" tableau(1, 4) = "oui" tableau(1, 5) = "non" tableau(1, 6) = "non" tableau(1, 7) = "non" tableau(1, 8) = "non" For j = 1 To 8 If tableau(1, j) = "oui" Then Duree = Duree + 1 Else If Duree > MemoDuree Then MemoDuree = Duree Duree = 0 End If Next j msgbox MemoDuree 'qui donne 4 End Sub
Et ce qui n'est pas clair aussi c'est..

Citation:

Pour être plus clair, cette boucle doit me donner:
3 pour j=3
0 pour j = 5

j = 3 ? alors que tu a 4 oui et 4 non ?

A+

01/06/2009, 11h14
TheRealMike

bonjour,

Merci pour vos réponses.

Effectivement je n'ai pas été très clair du tout, je m'en excuse.
Je réexplique le problème correctement.

A la place des "oui" je vais mettre "malade" et à la place des "non" je vais mettre "ok", comme ceci le but à atteindre sera plus clair.

Chaque colonne du tableau représente une année.

Le but est de déterminer, quelquesoit l'année, et donc quelquesoit j, si l'individu est malade à cet instant, depuis combien de temps il est malade.

En d'autres termes :
-si à l'instant j (donc colonne j) l'individu est "ok", il faut que la durée soit égale à 0.
- si à l'instant j l'individu est malade, je veux savoir depuis combien de temps dure sa dernière période de maladie.

ainsi, si mon tableau se compose de la manière suivante:

malade malade ok ok ok malade malade malade ok ok malade ok

Par exemple, pour j=7, l'individu est malade depuis 2 ans. Il faudrait donc que le code me sorte une durée de 2.
Pour j=4, l'individu n'est pas malade, sa duree est donc nulle.
Pour j=8, on a une durée de 3.

C'est pour ca que j'ai utilisé un "while", car il faut aller en arrière tant qu'il y a écrit "malade".
mais seulement cela pose un problème pour j=1 et j=2 (dans ce cas) car il y a dépassement d'indice à un moment donné, et je n'arrive pas à "stopper" l'indice.

Pourriez-vous m'aider dans ce sens.

Je m'excuse encore pour mes mauvaises explications...

TRM
01/06/2009, 15h31
DeaD78
Re,

Tu peux reprendre mon code et remplacer
Code:

1 2 3 If tableau(i)="Oui" Then cpt = cpt + 1 End if
par
Code:

1 2 3 4 5 If tableau(i)="Oui" Then cpt = cpt + 1 Else cpt = 0 End if
Tu as un compteur qui commence à 0 donc. A chaque malade (ici "Oui") trouvé, il s'incrémente de 1 et donc tu sais à tout moment où tu en es dans ton compteur. Si jamais tu trouves "Non" (pour ton Ok), alors le cpt repassera à 0 et tout recommencera.

Bonne chance pour la suite :mouarf:

Re,
Je pense que j'ai compris ce que tu veux...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub DonneNBannee()
Dim i As Integer, R As Integer
Dim tableau(1, 2000 To 2008) As String
Dim M As Integer
    tableau(1, 2000) = "Malade"
    tableau(1, 2001) = "Malade"
    tableau(1, 2002) = "OK"
    tableau(1, 2003) = "OK"
    tableau(1, 2004) = "Malade"
    tableau(1, 2005) = "Malade"
    tableau(1, 2006) = "Malade"
    tableau(1, 2007) = "OK"
    tableau(1, 2008) = "OK"
Reco:
    R = InputBox("Quelle année voulez-vous contrôllez ?", "Contrôle", Year(Now) - 1)
    If R < 2001 Or R > 2008 Then
        MsgBox "contrôle disponnible entre 2001 et 2008"
        GoTo Reco
    End If
    For i = R To 2000 Step -1
        If tableau(1, i) = "Malade" Then
            M = M + 1
        Else
Controler:
            If M <> 0 Then
                MsgBox "La personne est malade depuis " & M & " an(s)"
            Else
                MsgBox "La personne est active"
            End If
            Exit Sub
        End If
    Next i
    If i < 2000 Then GoTo Controler
End Sub

Avec l'exemple que je met si tu tape 2006 tu auras 3ans ,2001..2 ans
A+