Bonjour à tous et à toutes,
 
Etant novice en VBA, je sollicite votre aide pour ma question :
J'ai créé un graph sur une "feuille1" et je voudrais ,à l'aide d'un bouton("CommandButton1" ) qui se trouve en "feuille2", donner un "titre1" à mon graph et lui donner un "titre2" lorsque j'appuis sur un deuxième bouton ("CommandButton2" ) qui se trouve en "feuille2" aussi.
 
J'espère avoir été assez.  
 
Cordialement
 
Hugo

Ha j'ai trouvé  !!!!!!!
Cétait tout bête.
 
 Sheets("feuille1" ).Activate
    ActiveSheet.ChartObjects("Graphique 1" ).Activate
    ActiveChart.ChartArea.Select
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "titre1"
    End With

J'ai encore une autre question :S
 
Jusqu'à présent, j'utilisais le code suivant pour que quand j'appuis sur un "bouton1" situé en "feuille1" une copie d'une liste se trouvant en "feuille2" se fasse sur la "feuille1":
 
Sheets("feuil2" ).Activate
Sheets("feuil2" ).Range("C1:C25" ).Select
Selection.Copy
Sheets("Feuil1" ).Select
Range("F1" ).Select
ActiveSheet.Paste
 
Or Maintenat cela ne fonctionne plus, j'ai cette ligne qui est surlignée:
Sheets("feuil2" ).Range("C1:C25" ).Select
 
Auriez vous une idée ?

Pour information mes posts pécédant sont des exemples basiques de ma maccro
En fait, ma macro est plus compliquée, elle fait 8Mo.
 
Tout marche comme je le voulais puis à parti d'un moment j'ai un message d'erreur ("Nombre maximum de polices de caractères autorisées atteint pour ce classeur" ) qui apparait et alors tous mes codes beugs.
 
Pensez vous que cela est dû à la taille de mon classeur ?
 

Salut, voir sur http://support.microsoft.com/kb/215573/fr

Merci Beaucoup
J'ai trouvé la solution en supprimant l'échelle automatique