pb avec Shapes("ZoneDeTexte").Characters.Text

[sony]

bonjour forum,

Je dois lancer une macro qui remplit une zone de texte:

LeContenuDeLaZone = "Le commentaire : azertyuiop."
Worksheets("reporting").Shapes("ZoneDeTexte").Select
'Worksheets("reporting").Shapes("ZoneDeTexte").Characters.Text =
LeContenuDeLaZone
Selection.Characters.Text = LeContenuDeLaZone

Cependant cette macro me renvoie un bug qui surligne en jaune la
dernière ligne : Selection.Characters.Text = LeContenuDeLaZone

et même la formule : Selection.Characters.Text = "" ne marche


merci d'avance

 

[omicron]

Bonsoir Sony,

Si tu as retranscrit exactement dans ton message, la séquence que tu as codée, il est normal que tu bloques sur :

'Worksheets("reporting").Shapes("ZoneDeTexte").Characters.Text =
LeContenuDeLaZone

'WoskSheet .... est un commentaire
LeContenuDeLaZone n'a pas été mis en commentair (pas de quote) et ne correspond pas à une instruction exécutable -> plantage

Si tu écris
'Le contenuDe La Zone
cette ligne sera considérée comme un commentaire et ne provoquera plus d'erreur

Tu peux aussi écrire directement :
=====================================================
LeContenuDeLaZone = "Le commentaire : azertyuiop."
Worksheets("reporting").Shapes("ZoneDeTexte").Select
Selection.Characters.Text = LeContenuDeLaZone
=====================================================

Celà marchera...

Cordialement.

Omicron