[Résolu][Writer]Dupliquer ou recopier une cellule de tableau

[vito971]

Bonjour,
j'ai essayé le code suivant :

Code : Tout sélectionner

Dim oDoc as Object, oRange as Object, aCopier as Object
   oDoc = thisComponent
   oRange = oDoc.TextTables.getByName("Tableau1").getCellByPosition(1,0) ' la zone à copier
   oDoc.CurrentController.select(oRange) 'Sélection de la zone
   aCopier = oDoc.CurrentController.getTransferable() 'Copie
   oRange = oDoc.TextTables.getByName("Tableau1").getCellByPosition(0,0) 'Première cellule pour recopie de la zone
   oDoc.CurrentController.select(oRange) 'Selection de la cellule
   oDoc.CurrentController.insertTransferable(aCopier) 'Transfert des données

le controle à copié est placé dans un tableau dans la colonne 2 ligne 1 je voudrais le copier sans utiliser son nom (voir post: https://forum.openoffice.org/fr/forum/v ... =8&t=50730 ) mais par sa position.
Pourquoi je ne copie rien.

Merci.
PS: aucune des macro ne me donne ce que je veux(copier les boutons radios de la case 2,1 dans la case 1,1 en utilisant leur position dans le tableau et non pas avec leur nom)

[Dude]

Salut,

j'ai essayé le code suivant

A priori, tu oublies de citer l'auteur : https://forum.openoffice.org/fr/forum/v ... =8&t=50730

Dupliquer des contrôles me semble hasardeux.
Il est plus simple de les créer à la volée (voir le suprême sur le sujet).
Autre solution : créer tous les contrôles depuis l'IHM et les masquer.

[vito971]

Bonjour
Merci pour cette réponse,mais elle ne convient pas car je dois utiliser des caractères de types images ou généré avec DMATHS par exemple il s’agit en fait de dupliquer par macro le contrôle choisi au hasard dans le tableau de la partie prof pour le mettre dans la partie élève.
Voici le fichier "définitif"
quelqu'un a-t-il une idée?
La macro que j'ai cité provient d'une macro de classeur qui fonctionne très bien pour les objets différents du type texte(images ou bouton...) et c'est ce que je veux ,alors pourquoi pas avec writer?
La voici

Code : Tout sélectionner

Option Explicit

Sub CopyZoneMemeClasseur()
Dim oDoc as Object, oRange as Object, aCopier as Object
	oDoc = thisComponent
	oRange = oDoc.Sheets(0).getCellByPosition(1,0) ' la zone à copier
	oDoc.CurrentController.select(oRange) 'Sélection de la zone
	aCopier = oDoc.CurrentController.getTransferable() 'Copie
	oRange = oDoc.Sheets(1).getCellByPosition(1,0) 'cellule pour recopie de la zone
	oDoc.CurrentController.select(oRange) 'Selection de la cellule
	oDoc.CurrentController.insertTransferable(aCopier) 'Transfert des données
End Sub

Cordialement

[joel275]

Bonjour,

Essaie:

Code : Tout sélectionner

Dim oDoc as Object, MaCellule as Object, aCopier as Object, MonCurseur as Object
       oDoc = thisComponent
       MaCellule = oDoc.TextTables.getByName("Tableau1").getCellByPosition(2,0) ' la zone à copier
       MonCurseur = MaCellule.createTextCursor
       MonCurseur.GotoEnd(True)
       oDoc.CurrentController.select(MonCurseur) 'Sélection de la zone
       aCopier = oDoc.CurrentController.getTransferable() 'Copie
       MaCellule = oDoc.TextTables.getByName("Tableau3").getCellByPosition(1,0) 'Première cellule pour recopie de la zone
       oDoc.CurrentController.select(MaCellule) 'Selection de la cellule
       oDoc.CurrentController.insertTransferable(aCopier) 'Transfert des données

Il faut de plus que tous les objets soient ancrés au paragraphe (et non à la page) pour que le code ci-dessus les transfère.

A plus.

[Piaf]

Bonjour
Tu devrais changer le titre de ton fil avec quelque chose du genre : Recopier le contenu d'une cellule.
A+

[vito971]

C'est fait
Merci pour l'aide de tous