L
lulu
Guest
Bonjour,
j'ai un problème avec un fichier sur lequel je souhaiterais créer des cellules graphiques actives.
J'essaye de recycler un fichier mais aparemment il ya des erreurs dans le code
Un graphique est fixé sur une feuille et se met à jour si une case est cochée et celà en fonction de l'emplacement de la cellule sélectionnée
Sur une feuille excel, j'ai défini une procédure évenementielle dont le code dans la feuille est le suivant :
Private Sub CheckBox1_Click()
If CheckBox1 Then
Call UpdateChart
ActiveCell.Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Call UpdateChart
End Sub
Logiquement, lorsque je clique la macro UpdateChart est appelée :
Option Explicit
Sub UpdateChart()
Dim TheChartObj As ChartObject
Dim TheChart As Chart
Dim UserRow As Long
Dim CatTitles As Range
Dim SrcRange As Range
Dim SourceData As Range
If Sheets("Feuil1").CheckBox1 Then
Set TheChartObj = ActiveSheet.ChartObjects(1)
Set TheChart = TheChartObj.Chart
UserRow = ActiveCell.Row
If UserRow < 3 Or IsEmpty(Cells(UserRow, 1)) Then
TheChartObj.Visible = False
Else
Set CatTitles = Range("A2:F2")
Set SrcRange = Range(Cells(UserRow, 1), Cells(UserRow, 6))
Set SourceData = Union(CatTitles, SrcRange)
TheChart.SetSourceData _
Source:=SourceData, PlotBy:=xlRows
TheChartObj.Visible = True
End If
End If
End Sub
Le tableau de référence s'étale sur les cellules B9 à M25.
J'ai relié le graphique à la macro et ... ça ne marche pas
le message : erreur d’exécution 9 indice en dehors de la plage et
If Sheets("Feuil2").CheckBox2 Then est souligné en jaune
merci beaucoup de votre précieuse aide
j'ai un problème avec un fichier sur lequel je souhaiterais créer des cellules graphiques actives.
J'essaye de recycler un fichier mais aparemment il ya des erreurs dans le code
Un graphique est fixé sur une feuille et se met à jour si une case est cochée et celà en fonction de l'emplacement de la cellule sélectionnée
Sur une feuille excel, j'ai défini une procédure évenementielle dont le code dans la feuille est le suivant :
Private Sub CheckBox1_Click()
If CheckBox1 Then
Call UpdateChart
ActiveCell.Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Call UpdateChart
End Sub
Logiquement, lorsque je clique la macro UpdateChart est appelée :
Option Explicit
Sub UpdateChart()
Dim TheChartObj As ChartObject
Dim TheChart As Chart
Dim UserRow As Long
Dim CatTitles As Range
Dim SrcRange As Range
Dim SourceData As Range
If Sheets("Feuil1").CheckBox1 Then
Set TheChartObj = ActiveSheet.ChartObjects(1)
Set TheChart = TheChartObj.Chart
UserRow = ActiveCell.Row
If UserRow < 3 Or IsEmpty(Cells(UserRow, 1)) Then
TheChartObj.Visible = False
Else
Set CatTitles = Range("A2:F2")
Set SrcRange = Range(Cells(UserRow, 1), Cells(UserRow, 6))
Set SourceData = Union(CatTitles, SrcRange)
TheChart.SetSourceData _
Source:=SourceData, PlotBy:=xlRows
TheChartObj.Visible = True
End If
End If
End Sub
Le tableau de référence s'étale sur les cellules B9 à M25.
J'ai relié le graphique à la macro et ... ça ne marche pas
le message : erreur d’exécution 9 indice en dehors de la plage et
If Sheets("Feuil2").CheckBox2 Then est souligné en jaune
merci beaucoup de votre précieuse aide