appel ou argument de procédure incorrect

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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.

15/05/2008, 18h03
ouskel'n'or

Selon les versions, les arguments ont changé de nom. Teste en mettant

Code:

ActiveChart.Location where:=2, Name:=f.Name

A tout hasard mais des fois il fait bien les choses ;)
16/05/2008, 09h15
papimcha

Bonjour ouskel'n'or,
merci de te pencher sur mon problème.
J'ai modifié le programme mais cela met toujours la même erreur. :cry:

Mon programme fait appel à plusieurs sous-programme, et dans l'un de ses sous-programmes,

Code:

ActiveChart.Location where:=xlLocationAsObject, Name:=f.Name

ne bug pas du tout. Il réalise ce que je veux faire. ;)
Je ne comprend vraiment pas d'où le problème peut venir. :(

Merci encore.
16/05/2008, 10h05
papimcha

Re,
En cherchant, j'ai trouvé un sujet qui dit qu'il ne faudrait pas que mon fichier à traiter soit dans C: Documents and settings, or je l'ai fait à partir de E: (disque amovible) et j'obtiens toujours la même erreur :
Erreur d'execution '5'
Argument ou appel de procédure incorrect

Si quelqu'un a déjà eu le même problème,
merci de votre aide.
papimcha

Bon je pense avoir trouver d'où vient le problème mais je n'arrive pas à le résoudre. :cry:

Avant de me lancer dans le sous-programme evolution, je rentre dans un sous-programme condition_evolution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub condition_evolution(f As Worksheet, rSource As Range, _
                            ligne_date_init, nb_periode, col, nb_col As Integer)
Dim i As Integer
 
Set rSource = f.Range(f.Cells(ligne_date_init, 1), _
        f.Cells(ligne_date_init + nb_periode, 1))    'prend la première colonne (colonne de référence)
 
    For i = 2 To nb_col
 
        If f.Cells(ligne_date_init, i).Value = "a" Then
            Set rSource = Union(rSource, f.Range(f.Cells(ligne_date_init, i), f.Cells(ligne_date_init + nb_periode, i)))
 
        ElseIf f.Cells(ligne_date_init, i).Value = "b" Then
            Set rSource = Union(rSource, f.Range(f.Cells(ligne_date_init, i), f.Cells(ligne_date_init + nb_periode, i)))
 
        ElseIf f.Cells(ligne_date_init, i).Value = "c" Then
            Set rSource = Union(rSource, f.Range(f.Cells(ligne_date_init, i), f.Cells(ligne_date_init + nb_periode, i)))
 
        'à adapter si d'autre jalons nous intéressent
        End If
    Next i
 
End Sub

Mais en changeant ce programme par sa :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub condition_evolution(f As Worksheet, rSource As Range, _
                            ligne_date_init, nb_periode, col, nb_col As Integer)
Dim i As Integer
 
Set rSource = nothing
 
    For i = 1 To nb_col
 
        If f.Cells(ligne_date_init, i).Value = "a" Then
            Set rSource = Union(rSource, f.Range(f.Cells(ligne_date_init, i), f.Cells(ligne_date_init + nb_periode, i)))
 
        ElseIf f.Cells(ligne_date_init, i).Value = "b" Then
            Set rSource = Union(rSource, f.Range(f.Cells(ligne_date_init, i), f.Cells(ligne_date_init + nb_periode, i)))
 
        ElseIf f.Cells(ligne_date_init, i).Value = "c" Then
            Set rSource = Union(rSource, f.Range(f.Cells(ligne_date_init, i), f.Cells(ligne_date_init + nb_periode, i)))
 
        'à adapter si d'autre jalons nous intéressent
        End If
    Next i
 
End Sub

J'obtient mon erreur sur cette partie de programme. (à la première union)
J'espère que je ne fais pas fausse route et que mon problème se situe bien la . :?

Plus ca va, et moins je vois où est le problème. Déjà qu'au début je ne voyais pas grand chose, alors maintenant pfiou. :aie:
Merci de votre aide.
papimcha

16/05/2008, 12h32
ouskel'n'or

Et si tu supprimes R_Source des paramètres et le déclares dans la procédure elle-même ?
Une autre chose, ajoute Application.union(...
Je testerais déjà ça.
Après quoi, je ne vois pas. :(
16/05/2008, 13h19
papimcha

Re,
j'ai bien ajouté application. mais toujours le même problème.

Si je déclare R_Source dans la procédure elle-même, je ne pourrais pas renvoyé R_Source qui me sert après pour faire mes graphiques, non?

Enfin, je retombe sur le problème du début, :? c'est

Code:

ActiveChart.location Where:=xlLocationAsObject, Name:=f.Name

qui pose le problème. erreur d'exécution '5'. :cry:
Après, lors du debug, je fais manuellement la manip en enregistrant la macro et il me donne bien cette partie du code. Mais dès que je l'insère dans le programme, cela bug. J'y comprend plus rien. :(

En tout cas, merci de ton aide ouskel'n'or.
papimcha
16/05/2008, 13h52
ouskel'n'or

As-tu testé en remplaçant Where:=xlLocationAsObject par Where:=2. J'ai eu le cas pour plusieurs arguments entre les versions 1997 et 2003. Le remplacement par leurs valeurs a toujours réglé le pb.
Tu dis.
16/05/2008, 14h03
fring

Je sais que j'étais parti sur une mauvaise piste mais chui tiestu :mouarf:

Par quelle ligne de code est appelée la procédure ?
N'y aurait-il pas un problème de déclaration des paramètres ?

bonjour,
alors pour répondre aux questions :

ouskel'n'or > oui j'ai remplacé par 2 mais toujours le même problème :cry:

fring > ma procédure est appelé par :
Code:

1 2 3 4 'graphique pour l'évolution du respect des engagements selon les périodes Call condition_evolution(f9, rSource, ligne_date_init - 2, nb_period, col, nb_col) Call evolution(f9, rSource, livreur_ext)
Il y a peut-être un souci de déclaration de paramètres mais je ne vois pas.
Mon graphique est très bien réalisé, il fait bien tout sauf le transfert vers la feuille déjà existante.
(sur excel 2007 aucun souci, sur excel 2002 SP3 ben, c'est sa le problème) ;)

Merci.

Dernière suggestion (après je vois bien aut' chose mais je veux vérifier)
Teste tes paramètres dans
Code:

1 2 3 4 5 Sub condition_evolution(f As Worksheet, rSource As Range, _ ligne_date_init, nb_periode, col, nb_col As Integer) Msgbox f.name Msgbox rSource.address Msgbox EtKoiTéRat
Si c'est tout bon, alors je ferai mon test. ;)

16/05/2008, 14h29
papimcha

Aie tout vérifié, et c'est tout bon ! ;)

désolé que tu dois faire ton test. ;)
16/05/2008, 16h14
ouskel'n'or

Testé, c'est pas ça.
Tes données sont confidentielles ? Sinon, un petit bout de fichier...

Juste un mot sur mon test. Ces derniers temps j'ai eu un pb similaire au tien. Quand je voulais, manuellement, ajouter un graphe, par défaut il me créait une nouvelle feuille graphique. Pas moyen de l'avoir dans la feuille voulue.
Le phénomène a disparu comme il était venu. Entre temps, j'ai fais une nouvelle mise à jour d'Office. Or, le phénomène était apparu après une précédente mise à jour sans que je puisse vraiment établir une relation de cause à effet. Je ne fais pas des graphes tous les jours.
Une explication ? Je n'en sais rien. Toujours est-il que tout est redevenu normal.
Désolé mais je n'ai plus d'autre hypothèse. :(
16/05/2008, 16h17
papimcha

Alors, oui mon fichier est confidentiel, je vais essayer de te passer un extrait de mon fichier pour voir.
Je ne peux pas mettre à jour office car c'est le PC de la boite.

Je vais également essayer de tester le fichier sur un autre PC qui à la même version et je te tiens au courant de tout sa.

Merci beaucoup pour ton aide, ;)
papimcha.
16/05/2008, 16h41
papimcha

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

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. :oops: comment faire ?$

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

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:

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

16/05/2008, 17h04
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. :evilred:
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 ? :roll:
16/05/2008, 17h11
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

Citation:

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

Citation:

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 ? :aie:
19/05/2008, 09h12
papimcha

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

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. ?
19/05/2008, 10h52
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. 8-)
Donc voila, c'est résolu. :yaisse2:
Par contre je veux bien savoir comment on vérifie qu'une feuille est protégée, Merci. ;)
Papimcha.

Voir 40 message(s) de cette discussion en une page