[Résolu][Calc] Gérer les zones de texte

[troumad]

Pour la bonne tenue de ce forum, veillez à respecter la syntaxe des balises (première lettre en majuscule puis le reste en minuscules, le tout entre crochets). Merci de corriger [Calc] et non [calc]

Bonjour

Sous calc, on peut faire "Insertion" --> "zone de texte".
J'aimerai pouvoir parcourir ces zones. D'abord pour lire le contenu, ensuite pour le modifier. Je ne sais comment faire. J'ai essayé de chercher, mais, je ne trouve rien qui corresponde. L'expression "zone de texte" est trop vague.

[Jean-Louis Cadeillan]

Bonjour,
Nomme-les (clic droit > Nom), elles apparaîtront alors dans le navigateur (F5) comme Objets de dessin.
Cordialement,
Jean-Louis

[troumad]

Le nommage est fait. Mais, je fais comment pour trouver un objet de dessin et trvailler avec ?

Prière de modifier la balise dans le titre de votre premier message

[Jean-Louis Cadeillan]

Tu ouvres le navigateur (touche F5), tu double-cliques sur Objets de dessin, puis tu double-cliques sur le nom de ta zone de dessin que tu souhaites voir : celle-ci sera sélectionnée dans ta feuille (non seulement sélectionnée, mais tu la verras apparaître sur ton visuel de feuille, même si elle est positionnée très bas). Si tu veux effacer une zone de dessin, tu cliques un fois sur son nom dans le navigateur, puis Suppr.
Cordialement,
Jean-Louis

[troumad]

Je crois que je me suis mal exprimé...
Je veux qu'une macro en basic arrive à lire le contenu de la zone texte.
Comme j'arrive à parcourrir les boutons avec

Code : Tout sélectionner

ThisComponent.Sheets.getByName("verso").DrawPage.Forms.getByName("boutons").getControlModels
   For i = 0 To UBound(oControls)
      oControls(i)....

[Bidouille]

Je crois que je me suis mal exprimé...

Et pour éviter cela :

Comment joindre un fichier au format ODF
Penser également à dépersonnaliser le fichier joint.

Et profitez-en pour clôturer également votre précédente question :
https://forum.openoffice.org/fr/forum/v ... =8&t=60856

[troumad]

Je joins le fichier, mais vu la taille du code (c'est celui qui génère l'erreur de mon message précédent), je ne pense pas que ça serve à grand chose.
Et si on veut pouvoir l'utiliser, il faut récupérer en fait d'autres fichiers (.rcs) qui sont tous ici : h**p://troumad.org/OOo/Rolisteam.zip en gardant arborescence du zip.
Attention, le fichier joint utilise tout le temps CPU pour LibO 6.3. Il est conseillé d'utiliser LibO 6.2 (bug de LibO 6.3 ?) . Certaines parties sont prévues pour Linux, je n'ai pas encore étudié Windows.

J'aimerai bien par le biais de ce travail pousser des gens à tester LibreOffice ou OpenOffice.

[Dude]

Je joins le fichier, mais vu la taille du code (c'est celui qui génère l'erreur de mon message précédent), je ne pense pas que ça serve à grand chose.

Non effectivement, si c'est pour faire planter nos machines, cela ne sert à rien.
En plus, le document est imbitable et on ne comprend pas ce qu'il y a à voir.

capture.png

Il t'appartient donc de fournir un document exhaustif et limité à la seule problématique que tu décris.

[troumad]

Donc un exemple minimaliste...
Il n'a qu'une zone de texte. Je voulais savoir s'il est possible de lire le contenu avec une macro. Et puis, peut-être après d'écrire dedans aussi avec une macro.

[luky-luke]

Bonjour

J'aimerai pouvoir parcourir ces zones. D'abord pour lire le contenu, ensuite pour le modifier

Dans ton fichier, ce n'est pas une zone de texte mais une forme (rectangle). Elle offre l'avantage de pouvoir lui affecter une macro. Dans le fichier joint, j'ai nommé la forme "Texte1" et assigné la macro ZoneDeTexte.

Sous calc, on peut faire "Insertion" --> "zone de texte"

Au premier clic sur la forme, la macro se déclenche et sélectionne la forme, un deuxième clic pour placer le curseur.

Code : Tout sélectionner

sub ZoneDeTexte
Dim oDoc   as object, dispatcher as object
Dim oForms as object, Forme As Object, NomForme As String
Dim i As Integer
oDoc = ThisComponent
oDocF = oDoc.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oForms = oDoc.DrawPages.GetByIndex(0)
Nb = oForms.Count
	For i = 0 To Nb-1
		Forme = oDoc.DrawPages.GetByIndex(0).GetByIndex(i)
MsgBox("Et si je clic dedans je vais pouvoir écrire",16,Forme.String)
		NomForme = Forme.Name
			If NomForme = "Texte1" Then
				oDoc.CurrentController.Select(Forme)
				dispatcher.executeDispatch(oDocF, ".uno:DrawText", "", 0, Array())
			End if
	Next i
End sub

Ajout : Même jour mais 1 heures plus tard. Changement de fichier et quelques explication dans le fil suivant à propos de protection des feuilles et donc des formes. Protection feuille et forme Dispatcher VS API

Cordialement
Luke

[troumad]

Voici un retour efficace, mais qui m'a fait travailler et découvrir des choses sur msgbox ( https://wiki.openoffice.org/wiki/FR/Doc ... e_Library) )
Suite à ton message, j'ai cru avoir fait une fausse manipulation. Mais, non, c'est juste que les noms des menus ne sont pas adaptés à l'utilisation des macros. En effet, générer une forme (rectangle) en faisant "Insertion-> zone de texte", c'est assez déroutant... Je n'avais pas fait des recherches dans "frame" à l'aide de Xray, je cherchais désespérément un nom avec "text" dedans...

[troumad]

Bonjour

J'ai trouvé mieux qu'une zone de texte : une zone de texte ! C'est con non ?
Un autre élément qui s'appelle aussi zone de texte, celle qu'on trouve dans les formulaires. On peut la lier à une case, il est alors facile de trouver le contenu de la zone de texte : le contenu de la case.

J'ai un peu rusé en mettant ma zone de texte sur la case en imposant un fond blanc à la zone de texte et tout est bon.
Les intérêts de la manipulation :
- plus facile d'écrire un texte que dans une case de writer
- la première zone de texte (Insertion->zone de texte) devient protégée quand on protège la page, mais pas celle-là.
- j'ai trouvé une astuce pour changer la taille du texte avec un bouton.

Une autre différence entre les deux zones de texte :
- les images ne peuvent passer sur la seconde (formulaire) qui cachera toujours l'image alors qu'avec la première, l'image est toujours dessus.

C'est sur la seconde page de la PJ. La fonction pour changer la taille de la police de caractères est la fonction taille dans le module "Module1"

Pour information le fait d'avoir deux noms semblables pour deux noms différents a déjà gêné quelqu'un : https://bugs.documentfoundation.org/sho ... ?id=128227