Discussion :

[papimcha]

Bonjour,
Voila, j'ai un petit souci pour placer mon graphique sur une feuille spécifique.
Sa me met (cf intitulé) et sa me surligne la partie en vert du programme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub evolution(f As Worksheet, rSource As Range, livreur As String)
    
    Charts.Add      'ajout d'un graphique
    ActiveChart.ChartType = xlLine  'type du graphique : courbe
    ActiveChart.SetSourceData _
       Source:=rSource, PlotBy:=xlColumns
       
    With ActiveChart
        .HasTitle = True     'ajoute un titre dans le graphique
        .ChartTitle.Characters.Text = "" & f.Name & " " & livreur & ""   'titre du graphique
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "retard en jours"  'unité de l'axe Y
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "periode"       'unité de l'axe X
        
    End With
    
    ActiveChart.Location where:=xlLocationAsObject, Name:=f.Name
     
End Sub

J'ai déjà utilisé cette instruction dans un autre sous-programme et la il n'y a pas eu de souci.

Merci pour votre aide,
papimcha.

[papimcha]

Bon, alors voila, j'ai testé sur un autre PC (via le serveur) et toujours le même problème. je suis poursuivi par ce bug

Sinon voila deux fichiers exemples pour exécuter le programme.
Le fichier_a_lancer.xls qui demande d'ouvrir un fichier et choisir le fichier fichier_a_traite pour l'analyse.

Cordialement,
papimcha.

EDIT: Euh... Le fichier_a_lance est trop gros et je ne peux pas l'envoyer. comment faire ?$

RE-EDIT : bon je l'ai zippé, j'espère que ca va marcher.

[ouskel'n'or]

Alors donc, j'ai simplement remplacé "feuil1" par le vrai nom de la feuille dansla macro, j'ai ajouté une feuil3 afin que ton graphe sache où aller se cacher, j'ai lancé la macro et j'ai eu ton graphe en feuil3.
Tu es certain du nom de tes feuilles ? La feuille f.... existe vraiment ? Essaie d'ajouter une feuille (sheets.add) de récupérer son nom (Nom = activeSheet.name) et de coller le graphe dans Nom
A tout hasard mais je n'ai pas eu de pb.
A+
Le code "modifié"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
    Sheets("planning jalons").Select
    Range("C8:D17").Select
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("planning jalons").Range("C8:D17"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil3"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

[papimcha]

Oui, oui, la feuille existe vraiment! elle est bel et et bien créee.
J'arrive à regarder les résultats sur cette feuille mais le graphique veut pas aller dessus.
Même lors des msgbox, la feuille f avait le bon nom.
Mais sinon, t'as essayé directement sans changé ou tu as changé directement ?

[ouskel'n'or]

Avant de modifier, dans ton code la feuille s'appelait feuil1 (ou feuil3). Ni l'une ni l'autre n'existant, ça a planté sur la ligne

Sheets("feuil1").Select

J'ai relancé en mettant "planning jalons" (nom vrai de la feuille concernée) à la place de feuil1, ça a planté sur la ligne

ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil3"

Normal, la feuil3 n'existait pas.
J'ai ajouté une feuil3 et j'ai relancé. Et là je n'ai plus eu de pb "normal" pour avoir le graphe en feuil3.
C'était ta question ?

EDIT
Tu n'aurais pas une feuille protégée, par hasard ?

[papimcha]

Bonjour,
Comment je fait pour savoir si une feuille est protégée ?

Ensuite, je voulais que le graphe se place dans une feuille existante. Donc normalement, il ne devrait pas y avoir de problème. Bon je vérifie la création de la feuille et je te tiens au courant.
Merci beaucoup,
papimcha.

EDIT : Bon, en créant une nouvelle feuille, et en plaçant le graphique dessus, il n'y a plus aucun souci.
Donc je vais bidouiller pour la mettre dans la feuille que je veux.
RE-Edit: j'ai pensé à quelquechose mais se peut-il que sa soit sa : le nom de la feuille est trop long et donc génère un bug. ?

[papimcha]

Bon finalement, c'était tout bête, c'était bien le nom de la feuille qui était trop long.
J'ai modifié le nom de la feuille et la plus de problème.
Merci pour ta précieuse aide.
Donc voila, c'est résolu.
Par contre je veux bien savoir comment on vérifie qu'une feuille est protégée, Merci.
Papimcha.

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("feuil1").ProtectContents Then MsgBox "La feuil1 est protégée"

Regarde dans l'aide à ProtectContents, à "Voir aussi", tu as d'autres possibilités ex. Locked, ProtectWindow...