Discussion :

[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" (un 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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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

[niavlys26]

Bonsoir, je me permets de mettre ton code entre les balises parceque là j'arrive pas à lire.
Il manquait quelques déclarations
Pour la boucle j'ai un doute je vais voir..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim displaystring As String
Dim wrksheet As Worksheet
Dim Tableau()
Dim i%, j%
' Dim Cellule ???

displaystring = "Entrez le mois de référence"
Set wrksheet = ActiveWorkbook.Worksheets.Add
wrksheet.Name = "data"

nbdays = InputBox(displaystring)

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 i

[jeremac]

merci pour ta réponse
en fait je voudrais surtout 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

[casefayere]

Bonjour,

Je ne comprends pas exactement ce que tu veux mais j’ai fait une simulation avec une feuille « pivot solutions »

De « a2 » à « a13 » j’ai entré le mois (janvier, février….)

Et j’ai crée ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub TEST()
Dim displaystring As String, nbdays As String
Dim wrksheet As Worksheet
Dim i%
Dim cellule As Range, lg As Integer
 
displaystring = "Entrez le mois de référence"
Set wrksheet = ActiveWorkbook.Worksheets.Add
wrksheet.Name = "data"
 
nbdays = InputBox(displaystring)
 
Set cellule = ActiveWorkbook.Sheets("Pivot Solutions").Range("a2:a13")
lg = cellule.Find(nbdays).Row
 
For i = 2 To lg
 
      ActiveWorkbook.Sheets("data").Cells(i, 1) = Sheets("pivot solutions").Range("a" & i)
      ActiveWorkbook.Sheets("data").Cells(i, 2) = Sheets("pivot solutions").Range("b" & i)
Next i
End Sub

Que j’ai imputé à un bouton de commande

si tutiens à ce que la colonne "a" soit MOIS01, MOIS02...

change la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lg = cellule.Find(nbdays).Row

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lg = cellule.Find(Left(nbdays, 2)).Row

Regardes ce que donne le résultat

Attention, tu aura une erreur si la feuille »data » est déjà créée mais c’est un début si c’est ce que tu cherches

[jeremac]

Ton exemple est très intéréssant mais comment ça se passe, pour un tableau, tu peux voir mon premier post ou j'ai un tableau(j) qui contient des valeurs tels :
Total 03/2008 Total 04/2008 Total 05/2008 Total 06/2008 Total 07/2008 etc
et moi ce que je voudrais, c'est si le user tape : 06 (correspond à Total 06/2008)
qu'il me garde dans le tableau seulement les 3 derniers mois donc Total 05... , Total 04... , Total 03...
merci encore

je tiens juste à préciser une chose , quand je dis tableau, je ne parle pas d'un tableau sur une feuille excel
mais avec la fonction tableau () qui stocke les données