Erreur 400

[Jum_o]

Bonjour,

j'ai un petit souci concernant mon code vba. Dés que j'éxécute une macro un message d'erreur 400 s'affiche. Le code en question permet de mettre à jour des échelles de graphique. Pourriez-vous m'aider?

Merci bcp.

Voila mon code:

Sub graphique_mois()

' monodomaine
' ___________

nbr_colonne = 12
max_numero = 3

For l = 3 To nbr_colonne

'travail sur la feuille
'______________________

feuille = ThisWorkbook.Sheets("Donnees_mono").Cells(l, 1).Value

Sheets(feuille).Select

'graphique de chaque ss domaine

If (feuille = "C1") Then
max_numero = 4
End If

If (feuille = "C5") Then
max_numero = 5
End If

If (feuille = "C9") Then
max_numero = 2
End If

For numero = 1 To max_numero

nom_graph = "Graphique" & " " & numero
ActiveSheet.ChartObjects(nom_graph).Activate

With ActiveChart.Axes(xlCategory)
.MinimumScale = ThisWorkbook.Sheets("Donnees_mono").Range("E1").Value
.MaximumScale = ThisWorkbook.Sheets("Donnees_mono").Range("F1").Value
.MajorUnit = 62
End With

Next
max_numero = 3

Next

MsgBox ("les échelles des graphiques sont à jour")

End Sub

 

[PascalXLD]

Re : Erreur 400

Bonjour

Il serait interessant de savoir où cela bug et un morceau du fichier serait bienvenue

 

[Dolichotis]

Re : Erreur 400

Bonjour Jum_o,

est-ce que tu as fait un debug pas à pas pour savoir où se situe l'erreur ?

 

[Roland_M]

Re : Erreur 400

bonjour

ton erreur vient d'ici For l = 3 To nbr_colonne
peut être veux tu mettre For I (i)
idem ici
feuille = ThisWorkbook.Sheets("Donnees_mono").Cells(l, 1).Value <<<<

 

[Jum_o]

Re : Erreur 400

Merci de vos réponses,

Rolland M je ne pense pas que l'erreur vienne de la, quand j'execute pas a pas il marche correctement jusqu'au dernier next, j' effectue la boucle 5 fois (donc pour l=8) et la un message apparait:

Erreur d'exécution '1004':
Erreur définie par l'application ou l'objet

Merci de vos aides

 

[PascalXLD]

Re : Erreur 400

Re

et bien il se peut que ta cellule te donne le nom d'une feuille qui n'existe pas
Attention aux espaces etc

 

[Jum_o]

Re : Erreur 400

Il reconnait bien le nom de la cellule... C'est vraiment à ce niveau que ca flenche:

For numero = 1 To max_numero

nom_graph = "Graphique" & " " & numero
ActiveSheet.ChartObjects(nom_graph).Activate

With ActiveChart.Axes(xlCategory)
.MinimumScale = ThisWorkbook.Sheets("Donnees_mono").Range("E1").Value
.MaximumScale = ThisWorkbook.Sheets("Donnees_mono").Range("F1").Value
.MajorUnit = 62
End With

Next

Merci de votre aide

 

[Roland_M]

Re : Erreur 400

re:

est tu bien sûr que la feuille en question est activée !?
car ici ActiveSheet suppose que tu as activée cette feuille avec les graph !?
sinon plantage !

ActiveSheet.ChartObjects(nom_graph).Activate

 

[Jum_o]

Re : Erreur 400

Roland M,

qu'entends-tu par activé? je sais qu'avant il n'y avait pas de problème avec cette macro, j'ai rajouté un graphe et depuis... il y a 3 graphes (max-numero=3) dans cette feuille.

 

[Roland_M]

Re : Erreur 400

re:

exemple: Sheets(NomFeuille).Activate: Sheets(NomFeuille).Select

 

[Jum_o]

Re : Erreur 400

Bonjour,

je ne pense pas que cela vienne de la vu que cette macro est appliquée sur plusieurs onglets et qu'elle marche sur les premiers onglets. La feuille est à priori bien activée. Le probleme vient vraiment du fait que j'ai rajouter un graphe sur la feuille et j'ai ce message d'erreur.
Par contre de part ce bout de code:
nom_graph = "Graphique" & " " & numero
ActiveSheet.ChartObjects(nom_graph).Activate

ne faut-il pas que je nomme les nvx graphes par nom-graph etc...

Merci de vos retours

 

[PascalXLD]

Re : Erreur 400

Re

Là je pense qu'il faudrait voir le fichier

Tu peux le transmettre sans données confidentielles STP

 

[Jum_o]

Re : Erreur 400

Je suis dsl mais le fichier est vraiment trop gros et ca prendrait trop de temps de retirer tout ce qui est confidentiel.