parcourir tableau en vba

[jeremac]

Bonjour,

J'ai le code suivant :
Ou je cree un tableau qui me recherche dans une sheet puis stocke des champs type ( MOIS x - TOTAL)
extrait tableau : mois01 - total , mois02 - total , mois03 - total , mois04 - total , mois05 - total , mois06 - total
je fais demander à l'utilisateur " le mois de référence" (mois choisi arbitrairement)
et c'est la ou je bloque, je voudrais récréer un tableau ou autre solution proposée qui parcoure ce tableau (j) en me trouvant le mois de référence ((ex = 05) en sachant que le champ se nomme mois05 - total) et les mois précedents qui sont contenus dans le tableau (si c'est 05 , j'aimerais avoir 04,03,02,....) , le mois 06 ne m'interesse pas.
j'espere avoir été assez clair
n'hésitez pas si vous avez des questions
merci d'avance de votre aide


displaystring = "Entrez le mois de référence"
nbdays = InputBox(displaystring)

Set wrksheet = ActiveWorkbook.Worksheets.Add
wrksheet.Name = "data"

Dim Tableau()

i = 1
j = 0

For Each Cellule In Rows(8).Cells

If InStr(UCase(ActiveWorkbook.Sheets("Pivot Solutions").Cells(8, i).Value), "TOTAL") Then
ReDim Preserve Tableau(j)

Tableau(j) = i

j = j + 1

End If

i = i + 1
Next

 

[RENAUDER]

Re : parcourir tableau en vba

Bonjour,
Voici un exemple qui peut t'aider au maniement d'un tableau

Sub TestTableau()
    Dim Tbl(1 To 2, 1 To 10)
    Tbl(1, 1) = "Mois01"
    Tbl(1, 2) = "Mois02"
    Tbl(1, 3) = "Mois03"
    Tbl(1, 4) = "Mois04"
    Tbl(1, 5) = "Mois05"
    Tbl(2, 1) = "Total01"
    Tbl(2, 2) = "Total02"
    Tbl(2, 3) = "Total03"
    Tbl(2, 4) = "Total04"
    Tbl(2, 5) = "Total05"
    MoisCherche = InputBox("Tapez le mois cherché (Mois01, Mois02,...)", "Recherche du mois", "Mois01")
    MsgBox RechercheVTab(Tbl, MoisCherche)
End Sub
Function RechercheVTab(Tbl, MoisCherche)
    RechercheVTab = Tbl(2, Application.Match(MoisCherche, Application.Index(Tbl, 1), 0))
End Function

 

[jeremac]

Re : parcourir tableau en vba

merci pour ta réponse
je comprends bien ta macro mais ça ne m'aide pas beaucoup pour la mienne
en fait je voudrais parcourir mon tableau qui est composé de tous les mois
(Janv , Fev, Mars, ...., )
Si tu l'utilisateur choisit Avril comme mois
j'aimerais reconstruire le tableau ou en faire un nouveau qui me stocke seulement les mois suivants
Janv , Fev, Mars, Avril (donc les mois precedents avril)
et ça je n'arrive pas à le faire
merci pour ton aide