VBA, Objet requis

Résolu

zanzib Messages postés 27 Date d'inscription Statut Membre Dernière intervention -
zanzib Messages postés 27 Date d'inscription Statut Membre Dernière intervention - 25 août 2015 à 11:24

Bonjour,
Je cherche a faire une macro me créant deux graphique cote a cote sur la même page,
Mais avant de pouvoir vraiment testé ma macro j'ai une erreur Objet requis pointant sur le Sub,
Voici mon code:

Sub patate()
Dim plage As Range
Set plage = Application.InputBox(prompt:="Sample", Type:=8)
Setnouv = Workbooks.Add
Set gr = nouv.Charts.Add
Set Z = 0

While Z <> 2
Z = Z + 1
With gr
.SetSourceData Source:=plage
.ChartType = xl3DLine
.Location where:=xlLocationAsNewSheet
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "TEMPS"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Delta_d"
.PlotArea.Interior.ColorIndex = 2
.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
.ChartArea.Font.Size = 14
.Deselect
End With
Wend

With Sheets(1)
.Shapes("Chart 1").Left = 0
.Shapes("Chart 1").Top = 0
.Shapes("Chart 2").Top = 0
.Shapes("Chart 2").Left = .Shapes("Chart 1").Width + 5
End With

End Sub

Si vous avez une idée de resolution.
Cordialement Nicolas

A voir également:

Vba objet requis
Vente objet occasion entre particulier - Guide
Objet interdit en cabine ryanair - Guide
Vous ne pouvez pas créer de compte google car vous n'avez pas l'âge minimal requis ✓ - Forum Réseaux sociaux
Identifiant correct requis connexion - Forum Laposte
Excel compter cellule couleur sans vba - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Set Z = 0

et non,

Z=0

Setnouv = Workbooks.Add

pas bon

Set nouv = Workbooks.Add

zanzib Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Merci beaucoup, dois-je aussi mettre un set devant mon incrémentation, set z = z + 1?
Cependant, cela ne résout pas mon problème d'objet requis sur mon Sub. Auriez vous une solution?
Cordialement

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > zanzib Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Bonjour,

set z = z + 1? Je vous ai ecrit que ce n'est pas bon, vous devez ecrire:

Z=0 et pour l'incrementation Z=Z+1 c'est tout

le Set definit une variable en tant qu'objet

zanzib Messages postés 27 Date d'inscription Statut Membre Dernière intervention

J'avais trouvé, Merci quand même bonne journée

Discussions similaires

Problème d'app Gmail : "Identifiants requis"

Identifiant requis

Identifiants corrects requis

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Votre réponse

Discussions similaires