Macro titre Erreur d'execution 91

Bonjour à tous, débutant complet en VBA, à l’exécution de cette Macro "titre" dont le but est l'insertion de chaines de caractères dans le titre de 2 GRAPH sur 2 onglet sépares j'ai une erreur exécution 91 :variable d'objet ou variable de bloc With non définie en ligne 12

Sub titre()

1 Dim date1 As String

2 Dim site As String

3 date1 = InputBox("ENTREZ LA DATE", "DATE", Date)

4 site = InputBox("Entrez le Site de plongée", "Site", "Roussay")

5 Sheets("Graph").Activate

6 With ActiveChart

7 .HasTitle = True

8 .ChartTitle.Characters.Text = "Plongée du " & date1 & " Site:" & site

9 End With

10 Sheets("Conso").Activate

11 With ActiveChart

12 .HasTitle = True

13 .ChartTitle.Characters.Text = "Ananlyse de la conso pongée de " & date1 & " à" & site

14 End With

Le même code fonctionne bien pour les ligne précédentes et je n'ai pas assez de connaissance pour trouver une solution

Merci de vos Lumières

PS Désolé pour la mise en page je n'ai pas trouvé comment afficher le code dans un belle petite fenêtre...

lolo79, le forum,

Graph est une feuille pour les graphiques dont le format est différent d'une feuille de calcul "ordinaire".

En sélectionnant le feuille "Graph" le graphique est automatiquement sélectionné. C'est pour cela que .HasTitle s'applique.

La feuille "Conso" est une feuille de calcul où les lignes des cellules ont été masquées.

En sélectionnant cette feuille, le graphique n'est pas automatiquement sélectionné.

Il faut le faire du genre :

10  Sheets("Conso").Activate
    ActiveSheet.ChartObjects("Graphique 2").Activate
11  With ActiveChart
12     .HasTitle = True
13     .ChartTitle.Characters.Text = "Ananlyse de la conso pongée de " & date1 & "    à " & site
14  End With

LaCéline

Bonjour Laceline,

Un grand merci pour cette résolution j'ai passé un temps fou a chercher une solution et la votre est parfaite !!