Tester si un graphique est sélectionné

[spitfire378]

Bonjour a tous, voila mon probleme, je cherche a créer un bouton pour imprimer le graphique sélectionné dans un ensemble de graphique. Seulement quand aucun graphique n'est sélectionné et qu'on appuie sur le bouton d'impression, tout le fichier est imprimé.

Ce que j'aimerai avoir c'est un code du genre

IF un graphique est sélectionné THEN
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True
ELSE
MsgBox "Aucun graphique n'est sélectionné"
END IF

Mais je ne sais pas comment tester si un graphique est sélectionné. Merci pour votre aide

 

[pierrejean]

Re : Tester si un graphique est sélectionné

bonjour spifire

A tester:

.....
On Error Resume Next
 If Selection.Name = "Graphique" Then
  If Err.Number = 0 Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True
 ELSE
    MsgBox "Aucun graphique n'est sélectionné"
 End If
 On Error GoTo 0
......

 

[Catrice]

Re : Tester si un graphique est sélectionné

Bonsoir,

Tu peux egalement tester ceci :

Sub Test()
If TypeName(Selection) = "ChartArea" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True
Else
MsgBox "Aucun graphique n'est sélectionné"
End If
End Sub