Discussion :

[veve591]

Bonjour à Tous et d'avance merci pour votre aide,

J'ai trouvé comment accéder au menu du style de graphique mais impossible de faire la même chose avec le menu ==> Accueil ==> Mettre Sous forme de tableau.

Existe-t-il un xldialog pour ce menu ?
Comment puis-je y arriver autrement ?

Merci

A titre d'exemple voici mon code pour le menu des graphique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TypeGraphique()
 Dim test As Byte
 ' un graphique vide et créé sur la feuille basse ligne 105
 
 'selection du graphique
  ActiveSheet.ChartObjects("Graphique 1").Activate
 'boite de dialogue de selection
  test = Application.Dialogs(xlDialogChartType).Show
 'si choix réalisé affiché le numéro
  If test Then MsgBox (ActiveChart.ChartType)
End Sub

[veve591]

Merci de ta réponse mais malheureusement je n'obtient pas le "FormatAsTableGallery"(accueil==>mettre sous forme de tableau)

Je continue à chercher merci de votre aide.