Plage dynamique VBA

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;

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.

Personne pour l"'aide ?

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.

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:

---

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:

---

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

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