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 Access automation, objet shape

automation, objet shape

1 réponse
Avatar
bonjour a tous,

est ce que qq saurait comment on peut lire et écrire le contenu d'une zone
de texte dans Excel ?
attention je parle de la forme "zone de texte" dans les formes, pas du
controle zone de texte.
(Debug.Print Shape.Type ' renvoie 17)
je vois bien comment créer la zone et écrire dedans lors de sa création mais
une fois qu'elle existe je ne sais plus y accéder...

voila un exp de code :

Sub rrrr()

Set mydocument = Worksheets(1)
mydocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
100, 100, 200, 50) _
.TextFrame.Characters.Text = "Test Box"

For Each Shape In mydocument.Shapes
Debug.Print Shape.Name
Debug.Print Shape.Type 'renvoie 17
Debug.Print Shape.ID
'que mettre ici pour récuperer le contenu de la zone ?
Next Shape

'et que mettre ici pour écrire dans" ZoneText1" ???
End Sub

Merci beaucoup d'avance pour votre aide indéféctible ;-)
Signaler un problème avec ce contenu

1 réponse

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
écrire dans la zone de texte :

ActiveSheet.Shapes("Text Box 8").Select
Selection.Characters.Text = "test rééecriture zone de texte" & Chr(10) &
"comment ça" & Chr(10) & "marche"

lire le contenu de la zone de texte :

ActiveSheet.Shapes("Text Box 8").Select
MsgBox Selection.Characters.Text

'et que mettre ici pour écrire dans" ZoneText1" ???
End Sub

Merci beaucoup d'avance pour votre aide indéféctible ;-)