jeanba
XLDnaute Occasionnel
Bonjour le Forum,
J'ai vu que ce sujet avait fait l'objet d'une discussion en 2008, mais à quelque chose près, les données ne sont pas les mêmes avec mon cas.
En effet, j'ai un bout de code qui actualise les données dont j'ai besoin pour un graphe dynamique dans une feuille appelée Graph (nom vba).
BalanceSheet est la source de ces données.
Voici le code dans un module:
Mais il génère l'erreur suivante:
1) Comment écrire la ligne qui pose problème avec Cells, à moins que le problème soit ailleurs?
2) Je ne souhaite pas que la feuille Graph s'affiche à l'écran lors de l'exec.. mais, en même temps, j'ai l'impression que l'erreur vient de ce que j'ai mis visible à Fase...
Merci par avance,
Jeanba
J'ai vu que ce sujet avait fait l'objet d'une discussion en 2008, mais à quelque chose près, les données ne sont pas les mêmes avec mon cas.
En effet, j'ai un bout de code qui actualise les données dont j'ai besoin pour un graphe dynamique dans une feuille appelée Graph (nom vba).
BalanceSheet est la source de ces données.
Voici le code dans un module:
VB:
Sub MAJGraph()
Set plageCal = BalanceSheets.Range("O1:R12")
Set plageGr = Graph.Range("A2:D13")
plageCal.Copy
plageGr.PasteSpecial Paste:=xlPasteValues
With Graph
.Activate
DeverrouillerFeuille
.Visible = False
Graph.Range([A:A].Find("", , xlValues), Range("D" & Rows.Count)) = ""
Graph.Cells(1.1).Activate
.Visible = xlSheetVeryHidden
End With
Set plageCal = Nothing
Set plageGr = Nothing
End Sub
Mais il génère l'erreur suivante:
1) Comment écrire la ligne qui pose problème avec Cells, à moins que le problème soit ailleurs?
2) Je ne souhaite pas que la feuille Graph s'affiche à l'écran lors de l'exec.. mais, en même temps, j'ai l'impression que l'erreur vient de ce que j'ai mis visible à Fase...
Merci par avance,
Jeanba