XL 2016 liaison graphique et VBA

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2017

• #2

Bonjour le fil, le forum

@fabrice76800
Quelle est le nom de la macro où l'erreur survient?
Et quel est exactement le message d'erreur qui s'affiche?

 

Vote positif 0 Vote négatif

F

fabrice76800

XLDnaute Nouveau

• 11 Novembre 2017

• #3

Bonjour,

oui, désolé pour la dureté du code, je ne suis qu'un petit amateur dans ce domaine.
erreur code 400, erreur d’exécution (Dimension spécifié non valide pour le type de graphique en cours) qui me renvoi à ligne macro Sub (Autogroup) à la fin Charts(Courbes).activate
J'ai aussi, Variable ou objet de bloc With non définie et erreur d'execution 9.

Beaucoup d'erreurs que je n'arrive pas a résoudre.

Cordialement.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2017

• #4

Re

Si tu es un amateur un VBA, qui a écrit le code VBA de ta PJ?

Si tu n'arrives pas à résoudre, hop, tu prends le TEOR, direction L'ours Noir
Ensuite un petit tour de King ou de Sweety.

Une fois, tes neurones aérés, tu reviens devant ton clavier et tu testes par exemple cette modif
(partout ou cela se répète dans ton code)
Tu remplaces
Charts("Courbes").Activate
par
Sheets("Courbes").Activate

 

Vote positif 0 Vote négatif

F

fabrice76800

XLDnaute Nouveau

• 11 Novembre 2017

• #5

le code avait été écrit par un de mes collègues pour toutes les liaisons graphiques et moi pour toutes les formules mathématiques. Mais cela fait 10 ans.

Avec Sheets("Courbes").Activate sa fonctionne. Merci bien.

Par contre pour la feuille (courbes) quand je selectionne une courbe "x" et que j'active le bouton "selection", cela me met "erreur code 400".

J'ai regardé sur internet mais je ne suis arrivé à pas grand chose...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2017

• #6

Re

Sors la tête du guidon
Tu n'as rien lu dans mon message précédent qui évoque ta ville??

 

Vote positif 0 Vote négatif

F

fabrice76800

XLDnaute Nouveau

• 11 Novembre 2017

• #7

Tout a fait mais je croyais que ma fiche le stipulait, sinon, je suis de Rouen et il y a effectivement la Foire en ce moment .

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2017

• #8

Re

C'est parce que ton profil indique: Habite à ROUEN
(et que jadis je fus rouennais) que je me suis permis ce petit hors-sujet

Sinon de quel bouton Sélection tu parles?
Je n'ai vu qu'un bouton Pré-sélection! sur la feuille NetVde

 

Vote positif 0 Vote négatif

F

fabrice76800

XLDnaute Nouveau

• 11 Novembre 2017

• #9

J'espere que tu es allé plus au soleil..

C'est le bouton sélection de la feuille courbe sur le graphique.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2017

• #10

Re

J'ai déplacé cette macro dans un module standard
(au départ, elle est dans le code de la feuille Courbes)
et j'ai donc réaffecté cette macro au bouton sélection
et je n'ai plus le Message d'erreur 400

VB:

Sub SelGrpoup()
  Dim nm$, i
    If TypeName(Selection) = "Series" Then
       nm = Selection.Name
     Range("GrpFiltre").AutoFilter Field:=8, Criteria1:=nm
       For i = 1 To Range("NomGrp").Rows.Count
            If Range("NomGrp").Cells(i) = nm Then
                Range("SelGrp") = i
                Exit Sub
            End If
        Next
    End If
End Sub

 

Vote positif 0 Vote négatif

F

fabrice76800

XLDnaute Nouveau

• 11 Novembre 2017

• #11

Impeccable. Merci beaucoup.

Ça fonctionne. C'est bizarre que dans la feuille courbe ça bug alors que là non.

Et as tu une explication pour Variable ou objet de bloc With non définie pour les boutons de la feuille graphique an bas a droite. A tout zazard...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2017

• #12

Re

Là aussi, j'ai mis ces trois macros dans le module standard.
(et j'ai modifié un peu l'écriture)
Il faut aussi réattribuer les macros aux boutons

VB:

Sub QvAuto()
Dim ch As ChartObject
Set ch = Sheets("Courbes").ChartObjects(1)
ch.Chart.Axes(xlCategory).MaximumScaleIsAuto = True
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub QvPlus()
Dim ch As ChartObject
Set ch = Sheets("Courbes").ChartObjects(1)
ch.Chart.Axes(xlCategory).MaximumScale = ch.Chart.Axes(xlCategory).MaximumScale + 1000
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Qvmoins()
Dim ch As ChartObject
Set ch = Sheets("Courbes").ChartObjects(1)
ch.Chart.Axes(xlCategory).MaximumScale = ch.Chart.Axes(xlCategory).MaximumScale - 1000
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

Vote positif 0 Vote négatif

F

fabrice76800

XLDnaute Nouveau

• 11 Novembre 2017

• #13

impeccablement bien. Ca refonctionne comme avant.

Un grand, grand merci.

Fabrice

 

Vote positif 0 Vote négatif