Discussion :

[Heathkleff]

Bonjour,

Ca fait quelques jours que je cherche la solution à mon problème et j'espère la trouver sur ce forum grâce à votre aide.

On travaille avec un fichier de reporting ancien et j'essaie de l'améliorer. En effet, le fichier est alimenté chaque semaine par des nouvelles données venues d'un autre fichier. Ces données sont stockées dans les tableaux de l'onglet "Evolution" et alimentent à leur tour les graphes dynamiques pour n'afficher finalement que les données des 11 dernières semaines grâce aux boutons "Décaler S+1" et "Décaler S-1".

De ma part, j'ai rajouté un nouvel onglet que j'ai nommé "Zero Trafic" et je veux faire la même chose avec les données de cet onglet (graphe qui se met à jour chaque semaine), sachant que les données venues de l'autre fichier contient la matière brut pour alimenter cet onglet et c'est pas ça le problème. Mon problème c'est que j'ai essayé des créer un plage dynamique dans cet onglet avec Excel avec les fonctione Décaler et NBVAL sans passer par le VBA, mais la tache s'avère compliquée car à chaque fois que je nomme une plage sur cet onglet et je finis le travail, quand je clique sur le bouton "Décaler S+1", un message d'erreur s'affiche "La méthode Select de la classe Range a échoué". J'ai beau cherché mais jusqu'à l'heure je n'ai pas trouvé de solution. Finalement je me demande si c'est pas possible d'utiliser les macro DecalerPlageBAS et DecalerPlageHAUT et les adapter aux données de mon nouvel onglet mais je ne sais pas comment faire car j'ai pas compris le code de ces macros.

L'onglet "Zero trafic" est vide vu que les données sont confidentielles mais elles sont du format que les autres données à savoir les semaines sur les abscisses et les pourcentages sur les ordonnées.

Pourriez-vous SVP me filer un coup de main pour résoudre ce problème?


Cdt;

[Heathkleff]

Je vous joints un fichier contenant un échantillon de données dans l'onglet "Zero Trafic". Pour rappel l'idée c'est de créer un graphe qui n'affiche que les 11 dernière semaines et qui se décale avec les bouton "Décaler S+1" et "Décaler S-1".

Merci pour votre assistance.

[Heathkleff]

Personne pour l"'aide ?

[Menhir]

Si tu avais lu les règles du forum, tu saurais que beaucoup de participants se refusent à ouvrir les fichiers joints, surtout s'ils peuvent contenir des macros.
https://www.developpez.net/forums/d8...s-discussions/
Et tes explications ne permettent pas de comprendre ton problème sans ouvrir ton fichier. Ca limite donc les chances de réponse.

Tu devrais plutôt revoir ta demande en y incorporant le code qui pose problème, une copie d'écran des données, la ligne de code signalée par le débugeur quand l'exécution plante et toutes autres informations qui peuvent te sembler utiles à la résolution de ton problème.

[Heathkleff]

En gros je veux créer un graphe qui se mettent à jour chaque semaine après avoir cliquer sur le bouton "Décaler S+1" affecté à la macro ci-dessous:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub DecalerPlageBAS()
 
'Dim Plage As Range
Dim Nm As Name
 
Application.ScreenUpdating = False
 
'On Error Resume Next
 
'Sheets.Add After:=ActiveSheet
'Range("A1").Select
 
'Boucle sur les noms du classeur
For Each Nm In ThisWorkbook.Names
    If Nm <> "=#NAME?" Then
        NOMPLAGE = Nm.Name
        Range(Nm).Select
        premierecellule = ActiveCell.Offset(Selection.Columns.Count - 1).Address
        dernierecellule = ActiveCell.Offset(Selection.Rows.Count - 1).Address
 
 
        premierecelluleV2 = Range(premierecellule).Offset(1, 0).Address
        dernierecelluleV2 = Range(dernierecellule).Offset(1, 0).Address
 
 
        'définition de ma plage
        MaPlage = premierecelluleV2 & ":" & dernierecelluleV2
 
        'Modification de la plage
        With ActiveWorkbook.Names(NOMPLAGE)
                .Name = NOMPLAGE
                .RefersTo = "=Evolution!" & MaPlage
        End With
 
       ' ActiveCell = Nm
        'ActiveCell.Offset(1, 0).Select
    End If
Next Nm
 
Range("A1").Select
ActiveSheet.Calculate
 
 
End Sub

Le graphe doit afficher uniquement les données des onze dernières semaines d'où l'utilité de la plage dynamique.

Y a aussi un bouton "Décaler S-1" qui fait un retour en arrière et voici la macro:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub DecalerPlageHAUT()
 
'Dim Plage As Range
Dim Nm As Name
 
 
Application.ScreenUpdating = False
 
'On Error Resume Next
 
'Sheets.Add After:=ActiveSheet
'Range("A1").Select
 
'Boucle sur les noms du classeur
For Each Nm In ThisWorkbook.Names
    If Nm <> "=#NAME?" Then
        NOMPLAGE = Nm.Name
        Range(Nm).Select
        premierecellule = ActiveCell.Offset(Selection.Columns.Count - 1).Address
        dernierecellule = ActiveCell.Offset(Selection.Rows.Count - 1).Address
 
 
        premierecelluleV2 = Range(premierecellule).Offset(-1, 0).Address
        dernierecelluleV2 = Range(dernierecellule).Offset(-1, 0).Address
 
 
        'définition de ma plage
        MaPlage = premierecelluleV2 & ":" & dernierecelluleV2
 
        'Modification de la plage
        With ActiveWorkbook.Names(NOMPLAGE)
                .Name = NOMPLAGE
                .RefersTo = "=Evolution!" & MaPlage
        End With
 
       ' ActiveCell = Nm
        'ActiveCell.Offset(1, 0).Select
    End If
Next Nm
 
Range("A1").Select
ActiveSheet.Calculate
 
End Sub

Et dans la pièce jointe vous trouverez un échantillon de données qui je veux transformer en graphe.

Merci

[Qwazerty]

Salut

[Edit]
Je me suis peut-être enflammer un peu
Bon je ne suis pas très doué avec les TCD mais le fait d'avoir plusieurs semaines en tri à partir des dates...
[/Edit]

Avant de passer par VBA, pourquoi ne pas utiliser des Graphiques liés à des TCD? En utilisant Année et semaine en filtre ça permettrait de trier tes données, les graphiques liés au TCD se mettraient alors à jour.
Par la suite très peu de code serait probablement nécessaire pour modifier l'année et le mois dans les filtres du TCD.

Je n'ai pas plus étudier le truc que ça mais du coup avec les TCD, tes tableaux intermédiaires remplis de formule ne seraient probablement plus utiles, tu pourrais aller chercher tes info pour nourrir les TCD directement dans l'onglet Global.

++
Qwaz