XL 2010 VBA - Inserer ou supprimer colonne sans modifier les macros

kaisermpt

XLDnaute Occasionnel
Bonjour,

Je me permets de vous solliciter pour un problème a priori plutôt simple.

Dans une macro me permettant de générer des graphiques automatiquement en fonction de ma table de données, je fais référence à des cellules.

Or lorsque je rajoute ou supprime des colonnes dans ma table de données, la référence de cellule n'évolue pas dans ma macro et par conséquent j'obtiens des données fausses

je vous mets ci-dessous une partie du code. Ma question porte sur les zones en rouge.

A aujourd'hui, par exemple, les données sont en colonnes BJ, BN, BR et BY..

mais si je rajoute une colonne, les infos seront en colonnes BK, BO,BS et BZ..

Comment faire pour "figer" ces données même si je rajoute ou supprime des colonnes.

ActiveChart.SeriesCollection(1).Values = _
"='GLOBAL'!bj" & j & ",'GLOBAL'!bn" & j & ",'GLOBAL'!br" & j & ",'GLOBAL'!bv" & j & ""

Merci d'avance

Sébastien
 

eriiic

XLDnaute Barbatruc
Il y avait du code également dans la feuille GLOBAL, tu en as tenu compte ?

Sinon en nommant ta cellule RJ1 CelRef :
VB:
Dim ref1 As String, ref2 As String, ref3 As String, ref4 As String
Dim j As Long
j = 5
ref1 = [CelRef].Offset(j - 1).Address
ref2 = [CelRef].Offset(j - 1, 4).Address
ref3 = [CelRef].Offset(j - 1, 8).Address
ref4 = [CelRef].Offset(j - 1, 12).Address
ActiveChart.SeriesCollection(1).Values = _
"='GLOBAL'!" & ref1 & ",'GLOBAL'!" & ref2 & ",'GLOBAL'!" & ref3 & ",'GLOBAL'!" & ref4 & ""
 

Si...

XLDnaute Barbatruc
Bonjour

Pierrejean, Eric, le problème risque de se reposer avec la gestion des lignes, non ?

Un seul graphique, évolutif en fonction du Tableau *de données, suffirait peut-être comme dans l'exemple ci-joint, non ?

* un de ses nombreux avantages est justement d'éviter de modifier les macros le concernant.
 

Pièces jointes

  • Graphique selon sélection ligne TABLEAU.xlsm
    20.2 KB · Affichages: 49

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG