Discussion :

[Uranne-jimmy]

Bonjour,

Je pense que déterrer un post non résolu sur le sujet n'était pas la solution. Je crée donc le miens et j'apporte du détail.
Contexte : J'ai un document avec beaucoup de feuilles, dans chaque feuille, je copie un graphique et le colle en dessous, puis je retravail les series qui sont dedans.
Soucis : de manière périodique, sans que je vois de différence entre les moments où ça marche et les moments où ça ne marche pas, la méthode past échoue :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim gra As ChartObject
        For Each gra In ws.ChartObjects
            If Left(gra.Chart.ChartTitle.Caption, 3) = "Cin" Then
                gra.Copy
                Exit For
            End If
        Next
        'ws.Cells(Placement_resultat, 8)
        ws.Paste (ws.Cells(Placement_resultat, 8))
        Set gra = Nothing

Pour tester, je tape débogage puis je relance direct, la copie du graphique se fait. (Donc potentiellement et même si c'est ça, je pourrais juste gérer l'erreur en lui demandant de réessayer)
Le soucis, c'est qu'un peu plus tard, sans sortir de la boucle "pour chaque feuille" (donc dans le traitement de la dite feuille qui a déjà eu une erreur), lors que je travail sur les series de mon graphique copié, l'objet est null.

J'ai lancé la macro sur plusieurs classeurs différents, et plusieurs fois sur chaque classeur, le bug n'apparait pas sur des feuilles spécifiques.

... Que faire ?

[patricktoulon]

Bonjour
j'avoue que les graphique c'estv pas ma tasse de thé
mais je viens essayé il semblerait que chartTitle ne soit pas valable pour tous
donc est tu sur d'avoir un chart de cet acabit

ensuite si je comprends bien tu copie ce chart a volonté pour en modifier les serie c'est donc toujours le même
dans ce cas la tu pourrais simplement copier le 1 a chaque fois comme ca on fait sauter ta boucle sur "Cin"

[Uranne-jimmy]

Merci de t'y intéresser

En fait, le charttitle fonctionne dans ce cas, même quand le paste ne fonctionne pas, si je regarde les variables que j'espionne, le graphique a bien été trouvé par ma boucle.
Pour ce qui est de ce que j'en fais, j'ai un seul graphique par feuille à sélectionner, je le colle en dessous et je modifie les séries en lui demandant de présenter x=ln(f(x)).

Code :

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

1
2
3
4
5
6
7
8
With Logchart.SeriesCollection(Logchart.SeriesCollection.Count)
            For iii = résultat(6) + 1 To résultat(7) + 1
                xval(iii - résultat(6) - 1) = serT.XValues(iii)
                yval(iii - résultat(6) - 1) = serT.Values(iii)
            Next
            .XValues = xval
            .Values = yval
        End With

Mais à chaque feuille (je n'ai pas affiché l'architecture de mon programme autour de mon extrait, mais dans l'idée, il y a une boucle générale "pour chaque feuille du classeur"), je prend un nouveau graphique. Et ma petite boucle n'est là que pour sélectionner le graphique ayant le titre souhaité.

Je suis assez mauvais pour exprimer mon idée, dis moi si tu me comprends ><

[nouveauvba]

Bonjour,

je débute et novice hein donc j'essaie juste.

Si je comprends bien c'est quand tu colles le graphique que ça plante.

As tu essayé de te créer un modèle de graphique (vu que tu fais un copier/coller ça doit toujours être le même) et de l'appeler pour le mettre dans ta feuille correspondante....

Code :

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

1
2
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _
        "nom du graphique personnel"

Truc bête : le plantage ne vient il pas d'une feuille où tu n'aurais pas de données ou non positionnées de la même façon? Je pense que tu l'as déjà vérifié plein de fois...

[78chris]

Bonjour

Tu colles ce qui est dans le presse papier pas le graphique : quand il ne trouve pas un graphique, il continue à coller le presse papier.

Modifie la ligne ainsi :

Code :

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

        If Not gra Is Nothing Then Ws.Paste (Ws.Cells(Placement_resultat, 8))

[Uranne-jimmy]

@nouveauVBA
Ce qui m'intéresse n'est pas uniquement le modèle de graphique mais également les données des series qu'il comprend, si je prend un modèle enregistré, je n'aurais pas ces données. C'est une macro de post traitement qui apporte une analyse supplémentaire à un modèle excel déjà existant.
Et comme je l'ai dit, en effet j'ai déjà fait quelques tests et ça ne vient pas ni d'une feuille ni d'un classeur spécifique, ça ne semble pas contextuel.

@78chris
J'ai ajouter cette vérification qui sera toujours intéressante mais après un nouveau test, ça ne règle pas le problème malgré tout.
Par contre je peux essayer de vider le presse papier après cette étape. Je tente ça et si je répond pas dans les minutes suivants, c'est que ça n'a pas aidé !

Merci en tout cas pour votre aide, c'est cool

[Uranne-jimmy]

Alors !
Ca fonctionne !

Code :

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

1
2
3
4
5
6
7
Dim Cible As dataObject
 
Set Cible = New dataObject
Cible.setText ""
Cible.putInClipboard
 
Set Cible = Nothing

Mais !
Après une dizaine de feuilles :

Et ça n'arrive pas à chaque fois, et pas sur la même feuille quand ça arrive.