Identifier une erreur de syntaxe (boucle)

Bonjour à tous

Je suis nouvelle sur ce forum (et nouvelle "en" VBA).

Je vous expose mon problème :

J'ai un très grand nombre (plusieurs centaines) de graphiques à créer sur un schéma identique dans excel.

J'ai réussi (grâce à des infos glanées sur différents fora) à piger comment créer une macro qui génère les graphique en utilisant la fonction "décaler". Ca fonctionne bien, mais je dois exécuter la macro pour chaque graphique. Ca représente déjà un gain de temps considérable mais j'aimerais maintenant ajouter une boucle pour incrémenter automatiquement la valeur de ma fonction "décaler" et donc créer tous les graphiques avec une seule exécution de la macro.

Voici ce que j'ai pondu :

Sub copiergraphique()

'

' copiergraphique Macro

'

' Touche de raccourci du clavier: Ctrl+t

Dim valeur As Integer

boucle_do_while()

Do While valeur <= 395 'adapter cette valeur en fonction du nombre total de graphiques à générer

valeur = Worksheets("Feuil3").Cells(2, 23).Value 'initie la valeur sur la cellule $W$2 (encoder 0 dans cette cellule pour générer l'ensemble des graphiques)

Worksheets("Feuil3").Cells(2, 23).Value = valeur + 1

Sheets("Feuil3").Select

ActiveSheet.ChartObjects("timeline1").Activate

ActiveSheet.ChartObjects("timeline1").Activate

ActiveChart.ChartArea.Copy

Sheets("graphiques timeline").Select

ActiveSheet.Pictures.Paste.Select

Loop

End Sub

mais le débogueur me signale une erreur de syntaxe à : boucle_do_while()

J'ai beau chercher dans les différents exemples de boucle trouvés sur le net, je ne vois pas mon erreur.

Pouvez-vous m'aider?

D'avance merci

Françoise

Bonjour,

mets cette ligne en commentaire "mettre le caractère ' en début de ligne" ou supprime-la.

merci acide sulfurique

(c'est ce qu'on appelle vraiment une bête erreur )