Effacer une zone de texte par VBA

AV

30/09/2003 à 11:56

Effacer le contenu ?
ActiveSheet.DrawingObjects("Text Box 1").Text = ""

La supprimer ?
ActiveSheet.DrawingObjects("Text Box 1").Delete

AV

"François" a écrit dans le message news:

Bonjour,
Je voudrais par macro effacer une zone de texte mais

ActiveSheet.Shapes("Text Box 1").clear ne fonctionne pas

Auriez vous une idée ?

XL97-SR 2

Merci par avance,
bonne journée
François

ru-th

30/09/2003 à 12:04

Salut François

ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ""

a+
rural thierry

"François" a écrit dans le message de news:

Bonjour,
Je voudrais par macro effacer une zone de texte mais

ActiveSheet.Shapes("Text Box 1").clear ne fonctionne pas

Auriez vous une idée ?

XL97-SR 2

Merci par avance,
bonne journée
François

François

30/09/2003 à 14:13

Bonjour AV, bonjour Thierry,

Je voulais effectivement supprimer le contenu.
Curieusement, je dois répeter plusieurs fois l'instruction
quand j'ai beaucoup de caractères ( plus de 255 ??)
En tout cas une nouvelle fois merci de votre aide.
François
-----------------------

"ru-th" a écrit dans le message news:
#fW$

Salut François

ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ""

a+
rural thierry

"François" a écrit dans le message de news:

Bonjour,
Je voudrais par macro effacer une zone de texte mais

ActiveSheet.Shapes("Text Box 1").clear ne fonctionne pas

Auriez vous une idée ?

XL97-SR 2

Merci par avance,
bonne journée
François

Denis Michon

30/09/2003 à 16:39

Bonjour François,

Ceci efface tout le contenu de la zone de texte nonobstant la longueur de ce dernier.

'------------------
Sub EffacerContenuZoneDeTexte()

With Worksheets("Feuil1")
.Shapes("Zone de texte 1").OLEFormat.Object.Text = ""
End With

End Sub
'------------------

Salutations!

"François" a écrit dans le message de news:
Bonjour AV, bonjour Thierry,

Je voulais effectivement supprimer le contenu.
Curieusement, je dois répeter plusieurs fois l'instruction
quand j'ai beaucoup de caractères ( plus de 255 ??)
En tout cas une nouvelle fois merci de votre aide.
François
-----------------------

"ru-th" a écrit dans le message news:
#fW$

Salut François

ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ""

a+
rural thierry

"François" a écrit dans le message de news:

Bonjour,
Je voudrais par macro effacer une zone de texte mais

ActiveSheet.Shapes("Text Box 1").clear ne fonctionne pas

Auriez vous une idée ?

XL97-SR 2

Merci par avance,
bonne journée
François

AV

30/09/2003 à 18:21

Hé Denis arrête (au moins momentanémeny) d'utiliser msnews.microsoft.com et
utilise (si tu le peux ?) news.wanadoo.fr !
Ca marche impec !

AV

Misange

01/10/2003 à 09:00

Pour cela il faut avoir un compte chez wanadoo...

--
Misange migrateuse http://www.excelabo.net
==Disciplus a migré chez excelabo !======= mail : http://cerbermail.com/?k5Q8Dh2mta

"AV" a écrit dans le message de news:
blcaj9$rff$

Hé Denis arrête (au moins momentanémeny) d'utiliser msnews.microsoft.com
et

utilise (si tu le peux ?) news.wanadoo.fr !
Ca marche impec !

AV

AV

01/10/2003 à 14:22

Pour cela il faut avoir un compte chez wanadoo...

Ben té bien sur zoziau, mais je suppose que chacun a un FAI qui dispose lui-même
de serveur de news ?
Mais j'ai ouie dire que d'autres serveurs de news marchaient nickel (lu qque
part : Sympatico ??)

AV

Misange

01/10/2003 à 15:51

J'ai un compte chez wanadoo mais j'en ai oublié les paramètres ici (au
boulot). Alors je me connecte par le serveur de free. C'est mieux que
microsoft mais c'est pas parfait du tout : j'ai plein de réponses sans les
questions. Si je regarde sur microsoft, un coup ça télécharge un paquet, un
coup rien du tout mais les messages ne matchent pas exactement avec ceux de
free... Au lieu d'aller tchater ce soir chez crosoft, ils feraient mieux de
faire en sorte que le serveur fonctionne ! (j'imagine bien que ce ne sont
pas les mêmes qui ont les mains dans le camboui.ini et ceux qui bavardent en
ligne mais ça défoule de le dire)

--
Misange migrateuse http://www.excelabo.net
==Disciplus a migré chez excelabo !======= mail : http://cerbermail.com/?k5Q8Dh2mta

"AV" a écrit dans le message de news:
blegv7$q5a$

Pour cela il faut avoir un compte chez wanadoo...

Ben té bien sur zoziau, mais je suppose que chacun a un FAI qui dispose
lui-même

de serveur de news ?
Mais j'ai ouie dire que d'autres serveurs de news marchaient nickel (lu
qque

part : Sympatico ??)

AV

AV

01/10/2003 à 17:28

Ben si t'as un compte sur wanamou pourquoi ne pas utiliser (momentanément)
news.wanadoo.fr et MPFE ?

AV

François

03/10/2003 à 08:31

Bonjour Denis,

Avec beaucoup de retard .... merci !
Mon code s'en trouve amélioré et sécurisé.
Bonne journée
François
--------------------------------------------------------
"Denis Michon" a écrit dans le message news:
jAgeb.82212$

Bonjour François,

Ceci efface tout le contenu de la zone de texte nonobstant la longueur de
ce dernier.

'------------------
Sub EffacerContenuZoneDeTexte()

With Worksheets("Feuil1")
.Shapes("Zone de texte 1").OLEFormat.Object.Text = ""
End With

End Sub
'------------------

Salutations!

"François" a écrit dans le message de
news:

Bonjour AV, bonjour Thierry,

Je voulais effectivement supprimer le contenu.
Curieusement, je dois répeter plusieurs fois l'instruction
quand j'ai beaucoup de caractères ( plus de 255 ??)
En tout cas une nouvelle fois merci de votre aide.
François
-----------------------

"ru-th" a écrit dans le message news:
#fW$
Salut François

ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ""

a+
rural thierry

"François" a écrit dans le message de news:

Bonjour,
Je voudrais par macro effacer une zone de texte mais

ActiveSheet.Shapes("Text Box 1").clear ne fonctionne pas

Auriez vous une idée ?

XL97-SR 2

Merci par avance,
bonne journée
François

Effacer une zone de texte par VBA

10 réponses

Veuillez sélectionner un problème