Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel DrawingObject ?

DrawingObject ?

8 réponses
Avatar
Michel.Girard
Bonjour,
j'essaie sans succès de placer ce type de syntaxe dans ma proc et cela ne
fonctionne pas
Comment dois-je m'y prendre ?
Merci
Michel

ActiveSheet.DrawingObject("Rectangle 7").Text = "toto"
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonjour Michel,
Essai comme ceci :

Sub rectext()
ActiveSheet.Shapes("Rectangle 7").Select
Selection.Characters.Text = "toto"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Michel.Girard" a écrit dans le message de news:

Bonjour,
j'essaie sans succès de placer ce type de syntaxe dans ma proc et cela ne fonctionne pas
Comment dois-je m'y prendre ?
Merci
Michel

ActiveSheet.DrawingObject("Rectangle 7").Text = "toto"





Avatar
papou
Bonjour
Il te manque un "s" car il s'agit d'une collection (donc plusieurs objets) :
ActiveSheet.DrawingObjects("Rectangle 7").Text = "toto"
Cordialement
Pascal

"Michel.Girard" a écrit dans le message de
news:
Bonjour,
j'essaie sans succès de placer ce type de syntaxe dans ma proc et cela ne
fonctionne pas
Comment dois-je m'y prendre ?
Merci
Michel

ActiveSheet.DrawingObject("Rectangle 7").Text = "toto"





Avatar
Michel.Girard
merci beaucoup Philippe et Papou
Mais le pb est qu'il me renvoi erreur 424 ?
Michel


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
u$
Bonjour
Il te manque un "s" car il s'agit d'une collection (donc plusieurs objets)
:
ActiveSheet.DrawingObjects("Rectangle 7").Text = "toto"
Cordialement
Pascal

"Michel.Girard" a écrit dans le message
de news:
Bonjour,
j'essaie sans succès de placer ce type de syntaxe dans ma proc et cela ne
fonctionne pas
Comment dois-je m'y prendre ?
Merci
Michel

ActiveSheet.DrawingObject("Rectangle 7").Text = "toto"









Avatar
MsNews
Bonjour Michel,

ActiveSheet.Shapes("Rectangle 7").OLEFormat.Object.Text = "Bonjour"

Il y a aussi ceci qui devrait être acceptable :

ActiveSheet.DrawingObjects("Rectangle 7").TextFrame.Characters.Text = "KKKKKKK"


DrawingObject appartient à la version 97 d'excel. Elle n'est plus supportée par excel. Tu peux cependant continuer de
l'utiliser !


Salutations!


"Michel.Girard" a écrit dans le message de news:

Bonjour,
j'essaie sans succès de placer ce type de syntaxe dans ma proc et cela ne
fonctionne pas
Comment dois-je m'y prendre ?
Merci
Michel

ActiveSheet.DrawingObject("Rectangle 7").Text = "toto"
Avatar
Philippe.R
Re,
Cette version fonctionne bien chez moi sous 2002 :

Sub rec_text()
ActiveSheet.DrawingObjects("Rectangle 7").Select
If Len(Selection.Characters.Text) > 246 Then Selection.Characters.Text = ""
Selection.Characters.Text = Selection.Characters.Text & "Toto "
[a1].Select
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Michel.Girard" a écrit dans le message de news:
%23zs%
merci beaucoup Philippe et Papou
Mais le pb est qu'il me renvoi erreur 424 ?
Michel


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
u$
Bonjour
Il te manque un "s" car il s'agit d'une collection (donc plusieurs objets) :
ActiveSheet.DrawingObjects("Rectangle 7").Text = "toto"
Cordialement
Pascal

"Michel.Girard" a écrit dans le message de news:

Bonjour,
j'essaie sans succès de placer ce type de syntaxe dans ma proc et cela ne fonctionne pas
Comment dois-je m'y prendre ?
Merci
Michel

ActiveSheet.DrawingObject("Rectangle 7").Text = "toto"













Avatar
papou
Re
Idem que pour Philippe, la syntaxe suivante fonctionne sans problème sous
Excel 2003 :
ActiveSheet.DrawingObjects("Rectangle 7").Text = "toto"
Cordialement
Pascal

"Michel.Girard" a écrit dans le message de
news: %23zs%
merci beaucoup Philippe et Papou
Mais le pb est qu'il me renvoi erreur 424 ?
Michel


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
u$
Bonjour
Il te manque un "s" car il s'agit d'une collection (donc plusieurs
objets) :
ActiveSheet.DrawingObjects("Rectangle 7").Text = "toto"
Cordialement
Pascal

"Michel.Girard" a écrit dans le message
de news:
Bonjour,
j'essaie sans succès de placer ce type de syntaxe dans ma proc et cela
ne fonctionne pas
Comment dois-je m'y prendre ?
Merci
Michel

ActiveSheet.DrawingObject("Rectangle 7").Text = "toto"













Avatar
Francois
merci beaucoup Philippe et Papou
Mais le pb est qu'il me renvoi erreur 424 ?
Michel


Bonjour,

Comme Philippe et papou, fonctionne parfaitement avec XL2000

Cordialement,

Avatar
Michel.Girard
Ok cela fonctionne
Je vous remercie tous
Michel

"MsNews" a écrit dans le message de news:

Bonjour Michel,

ActiveSheet.Shapes("Rectangle 7").OLEFormat.Object.Text = "Bonjour"

Il y a aussi ceci qui devrait être acceptable :

ActiveSheet.DrawingObjects("Rectangle 7").TextFrame.Characters.Text =
"KKKKKKK"


DrawingObject appartient à la version 97 d'excel. Elle n'est plus
supportée par excel. Tu peux cependant continuer de
l'utiliser !


Salutations!


"Michel.Girard" a écrit dans le message
de news:

Bonjour,
j'essaie sans succès de placer ce type de syntaxe dans ma proc et cela ne
fonctionne pas
Comment dois-je m'y prendre ?
Merci
Michel

ActiveSheet.DrawingObject("Rectangle 7").Text = "toto"