Hic!! Hic!! sur macro graphique

[Mytå]

Bonjour , Bonsoir le Forum

Je devrais pas mais 2 question dans une

La macro suivante :

Sub Graphique()
Sheets("Graph1").Select
ActiveWindow.SelectedSheets.Delete
A = Range("c65535").End(xlUp).Row
B = Range("c65535").End(xlUp).Column
C = Range("bt65535").End(xlUp).Row
D = Range("bt65535").End(xlUp).Column
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graph1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

i) Comment empecher la fenetre suivante : Les feuilles sélectionnées seront supprimées définitivement [OK] [ANNULER] au lancement de la macro.

ii) Et comment modifier la ligne suivante de la macro
ActiveChart.SetSourceData Source:=Sheets("Triage").Range("C19:BT19"), PlotBy _
:=xlRows
avec les valeurs données par A, B, C et D soit la ligne pour le graphique qui peut-etre a "C40:BT40"

Merci a l'avance

Un newbies en VBA
Salutations et meilleurs voeux pour le nouvel An [En retard ouin )]

Mytå º¿º

 

[Mytå]

Chut! Bonne nuit au Forum

Oups vu l'heure j'espère ne pas avoir réveiller personne

Les PROS dorment

Demain matin surement une réponse de : @+Thierry le pro du VBA

Mytå º¿º

Fait dodo! Fait dodo! lalalala..lalalala (bis)

 

[@+Thierry]

Bonjour Myta

Euh là je bois mon café et je file au bureau... Peut-être à plus tard dans la journée... si personne ne t'a donnée de réponse...

Pour 1 c'est simple = Application.displayalert = 0
(à remettre à True en fin de procédure)

Pour les Charts, çà demande plus de temps, coz testing...

BOnne JOurnée
@+Thierry

 

[Ti]

tu remplaces :
ActiveChart.SetSourceData Source:=Sheets("Triage").Range("C19:BT19"), PlotBy _
:=xlRows

par :

with worksheets("Triage")
ActiveChart.SetSourceData Source:=.Range(.Cells(A,B),.Cells(C,D)), PlotBy _
:=xlRows
end with

voilà, pas testé, mais ça devrait marcher du premier coup (normalement)

 

[Mytå]

Re le Forum,

Merci a vous deux

@+Thierry et TI, tout fonctionne a la perfection

Encore merci Mytå º¿º

 

[Mytå]

Re le Forum,

Autre petit "bugs"

Sub Graphique()
Application.DisplayAlerts = False
Sheets("Graph1").Select
ActiveWindow.SelectedSheets.Delete
A = Range("c65535").End(xlUp).Row
B = Range("c65535").End(xlUp).Column
C = Range("bt65535").End(xlUp).Row
D = Range("bt65535").End(xlUp).Column
Charts.Add
ActiveChart.ChartType = xlColumnClustered
With Worksheets("Triage")
ActiveChart.SetSourceData Source:=.Range(.Cells(A, B), .Cells(C, D)), PlotBy _
:=xlRows
End With

With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Application.DisplayAlerts = True
End Sub

Au premier lancement de la macro j'obtiens

Erreur d'execution '1004'
La methopde 'Location' de l'objet '_Chart' a echoue

sur la ligne suivante :

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graph1"

Par la suite l'erreur ne revient pas prk ????????

Mytå º¿º