J
jeremac
Guest
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
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