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 choisit 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

en fait je voudrais principalement 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 votre aide