parcourir tableau en vba

jeremac

XLDnaute Nouveau
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

Nous a quitté
Repose en paix
Re : parcourir tableau en vba

Bonjour,
Voici un exemple qui peut t'aider au maniement d'un tableau
Code:
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

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
312 947
Messages
2 093 835
Membres
105 848
dernier inscrit
toooom