J'ai une macro qui me crée un "graphe" (copié collé d'une plage de
cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser
facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range
Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33))
Application.ScreenUpdating = False
Worksheets("Chart").Select
Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
poy-poy
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer.
Charts("Pouic").select pour retravailer dessus.
Cordialement
Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de
cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser
facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range
Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33))
Application.ScreenUpdating = False
Worksheets("Chart").Select
Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
End With
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
Christophe B.
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer.
Charts("Pouic").select pour retravailer dessus.
Cordialement
Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de
cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser
facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range
Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33))
Application.ScreenUpdating = False
Worksheets("Chart").Select
Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
End With
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
poy-poy
Re Christophe,
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement : sub () dim pouic as chartobject
ta macro... end with set pouic = activesheet.chartobjects(1) (attention si tu as déjà créer d'autre object graphiques se sera pas (1) mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la fin
set pouic = nothing end sub
Cordialement Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
Re Christophe,
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un
chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement :
sub ()
dim pouic as chartobject
ta macro...
end with
set pouic = activesheet.chartobjects(1)
(attention si tu as déjà créer d'autre object graphiques se sera pas (1)
mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la
fin
set pouic = nothing
end sub
Cordialement
Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer.
Charts("Pouic").select pour retravailer dessus.
Cordialement
Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de
cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser
facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range
Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33))
Application.ScreenUpdating = False
Worksheets("Chart").Select
Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
End With
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement : sub () dim pouic as chartobject
ta macro... end with set pouic = activesheet.chartobjects(1) (attention si tu as déjà créer d'autre object graphiques se sera pas (1) mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la fin
set pouic = nothing end sub
Cordialement Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
Christophe B.
Ok!!! Et juste un dernier petit truc... Vous ne sauriez pas comment insérer un chart dans le corps d'un mail? (mail.body=???)
En tout cas, merci,
Christophe.B
"poy-poy" wrote:
Re Christophe,
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement : sub () dim pouic as chartobject
ta macro... end with set pouic = activesheet.chartobjects(1) (attention si tu as déjà créer d'autre object graphiques se sera pas (1) mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la fin
set pouic = nothing end sub
Cordialement Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
Ok!!! Et juste un dernier petit truc... Vous ne sauriez pas comment insérer
un chart dans le corps d'un mail?
(mail.body=???)
En tout cas, merci,
Christophe.B
"poy-poy" wrote:
Re Christophe,
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un
chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement :
sub ()
dim pouic as chartobject
ta macro...
end with
set pouic = activesheet.chartobjects(1)
(attention si tu as déjà créer d'autre object graphiques se sera pas (1)
mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la
fin
set pouic = nothing
end sub
Cordialement
Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer.
Charts("Pouic").select pour retravailer dessus.
Cordialement
Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de
cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser
facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range
Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33))
Application.ScreenUpdating = False
Worksheets("Chart").Select
Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
End With
Ok!!! Et juste un dernier petit truc... Vous ne sauriez pas comment insérer un chart dans le corps d'un mail? (mail.body=???)
En tout cas, merci,
Christophe.B
"poy-poy" wrote:
Re Christophe,
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement : sub () dim pouic as chartobject
ta macro... end with set pouic = activesheet.chartobjects(1) (attention si tu as déjà créer d'autre object graphiques se sera pas (1) mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la fin
set pouic = nothing end sub
Cordialement Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
poy-poy
Christophe,
Desole je n'en ai aucune idée. Relance un post pour que quelqu'un d'autre t'aide.
A plus Benjamin
Ok!!! Et juste un dernier petit truc... Vous ne sauriez pas comment insérer un chart dans le corps d'un mail? (mail.body=???)
En tout cas, merci,
Christophe.B
"poy-poy" wrote:
Re Christophe,
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement : sub () dim pouic as chartobject
ta macro... end with set pouic = activesheet.chartobjects(1) (attention si tu as déjà créer d'autre object graphiques se sera pas (1) mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la fin
set pouic = nothing end sub
Cordialement Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
Merci,
Christophe.B
Christophe,
Desole je n'en ai aucune idée.
Relance un post pour que quelqu'un d'autre t'aide.
A plus
Benjamin
Ok!!! Et juste un dernier petit truc... Vous ne sauriez pas comment insérer
un chart dans le corps d'un mail?
(mail.body=???)
En tout cas, merci,
Christophe.B
"poy-poy" wrote:
Re Christophe,
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un
chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement :
sub ()
dim pouic as chartobject
ta macro...
end with
set pouic = activesheet.chartobjects(1)
(attention si tu as déjà créer d'autre object graphiques se sera pas (1)
mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la
fin
set pouic = nothing
end sub
Cordialement
Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer.
Charts("Pouic").select pour retravailer dessus.
Cordialement
Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de
cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser
facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range
Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33))
Application.ScreenUpdating = False
Worksheets("Chart").Select
Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
End With
Desole je n'en ai aucune idée. Relance un post pour que quelqu'un d'autre t'aide.
A plus Benjamin
Ok!!! Et juste un dernier petit truc... Vous ne sauriez pas comment insérer un chart dans le corps d'un mail? (mail.body=???)
En tout cas, merci,
Christophe.B
"poy-poy" wrote:
Re Christophe,
Désolé je n'avais pas testé ta macro et je n'avais pas vu que tu crée un chartobject et non un chart directement.
Je te conseille alors de créer un objet juste pour l'appeller facilement : sub () dim pouic as chartobject
ta macro... end with set pouic = activesheet.chartobjects(1) (attention si tu as déjà créer d'autre object graphiques se sera pas (1) mais (2), (3),.. tu travailles sur pouic comme tu veux, puis tu remets à la fin
set pouic = nothing end sub
Cordialement Benjamin
Ca me donne error 91
Object variable or with block variable not set...
"poy-poy" wrote:
Bonjour Christophe,
Pour renommer un objet, selectionner celui-ci faire objet.name = nouveau nom
donc ici activechart.name = "Pouic" aprés l'avoir créer. Charts("Pouic").select pour retravailer dessus.
Cordialement Benjamin
Bonjour,
J'ai une macro qui me crée un "graphe" (copié collé d'une plage de cellules) automatiquement. Je voudrais le renommer de suite pour l'utiliser facilement. Mais comment traduire ça en code vba?
Voici mon code:
Dim Plage As Range Set Plage = ActiveSheet.Range(Cells(1, 1), Cells(k + 21, 33)) Application.ScreenUpdating = False Worksheets("Chart").Select Plage.CopyPicture: ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste End With
