[Résolu] [Calc] Copier texte et mise en forme par bouton.

[Tilou]

Bonjour,
pour faire suite à la question posée dans la section calc (viewtopic.php?p=387275#p387275), où il m'est conseillé de passer par la création d'une macro et notamment par l'enregistreur de macro :

Comment copier la mise en forme et la valeur (numérique ou texte) d'une cellule, à l'aide d'un bouton ?
Si dans mon fichier exemple, la destination de la copie est la cellule G5, l'idéal serait de pouvoir le faire dans plusieurs cellules, lesquelles sont sélectionnées en amont de l'utilisation du bouton.
Merci beaucoup.

Copier texte et mise en forme par bouton.ods

[Oukcha]

Bonjour,

Merci de tenir compte du bandeau rouge en haut de page, et de baliser correctement votre question.

Cordialement

[jeanmi2403]

Bonjour,
Voilà un code simple pour Copier/Coller une zone. il suffit de le brancher sur l'événement "Exécuter l'action" du bouton.

Code : Tout sélectionner

Sub CopieCellule

	oDoc = ThisComponent
	oFeuille = oDoc.CurrentController.ActiveSheet
	
	oCelluleSource = oFeuille.getCellRangeByName("B5")
	oCelluleDestination = oFeuille.getCellRangeByName("G5")
	
	oDoc.CurrentController.Select( oCelluleSource )
	oCopie = oDoc.CurrentController.GetTransferable
	
	oDoc.CurrentController.Select( oCelluleDestination )
	oDoc.CurrentController.InsertTransferable(oCopie)
	
End Sub

Ceci fonctionne pour un des boutons.
Il est possible d'utiliser la même procédure pour plusieurs boutons, en testant de quel bouton vient l'événement.
Cordialement,
PS : Simple curiosité, quel est le but final de l'opération ?

[Tilou]

Excellent. C'est exactement ce que je voulais.
Merci beaucoup.

[yclik]

Bonjjour
en m'inspirant de la macro de Jeanmi2403 que je salue au passage
une proposition avec une seule macro pour les 3 boutons

macro Copier texte et mise en forme par boutons.ods

Code : Tout sélectionner

Sub copier(Event as variant)

	oDoc = ThisComponent
	oFeuille = oDoc.CurrentController.activeSheet
	Dim NomBouton as string

NomBouton  = Event.Source.Model.Name rem récupère le nom du bouton déclenché

If NomBouton="B1" then 	oCelluleSource = oFeuille.getCellRangeByName("B2")
If NomBouton="B2" then oCelluleSource = oFeuille.getCellRangeByName("B5")
If NomBouton="B3" then oCelluleSource = oFeuille.getCellRangeByName("B8")

	

	oCelluleDestination = oFeuille.getCellRangeByName("G5")
	
	oDoc.CurrentController.Select( oCelluleSource )
	oCopie = oDoc.CurrentController.GetTransferable
	
	oDoc.CurrentController.Select( oCelluleDestination )
	oDoc.CurrentController.InsertTransferable(oCopie)
	
End Sub

avec le nom du bouton

propBouton.jpg

[jeanmi2403]

Re-bonjour à tous,
yclik (que je salue également) m'a coupé l'herbe sous le pied.
Mais, pour le fun, je vais rajouter une simplification supplémentaire.
J'inscris l'adresse de la cellule source dans la propriété "Complément d'information" de chaque bouton.

ComprementInfoBouton.png

On récupère cette valeur avec la propriété "Tag" de l'objet bouton.

Du coup on a :

Code : Tout sélectionner

sZoneSource  = Event.Source.Model.Tag rem récupère l'adresse de la cellule à copier
oCelluleSource = oFeuille.getCellRangeByName(sZoneSource)

à la place de la cascade de If. Ca marche quel que soit le bouton.
On peut mettre autant de boutons qu'on veut...

Encore plus fun !!!
On peut mettre l'adresse de la source ET celle de la destination dans le complément d'information.
Il suffira ensuite de les séparer. Par exemple, on met "B8,G5" dans le Complément d'information d'un bouton, "B5,G6" dans un autre, etc ...

Code : Tout sélectionner

	Dim aAdresses() as String
 	sZones  = Event.Source.Model.Tag rem récupère dans une chaîne les adresses source et destination
 	aAdresses = Split (sZones,",") rem on récupère un tableau (arrayde chaînes
 	
 	oCelluleSource = oFeuille.getCellRangeByName(sZonesAdresses(0)) rem B8
	oCelluleDestination = oFeuille.getCellRangeByName(sZonesAdresses(1)) rem G5

Les instructions de copie sont les mêmes que précédemment.
Et chaque bouton copie dans des cellules différentes.
Bonne soirée,