Forum du club des d�veloppeurs et IT Pro - OpenOffice & LibreOffice

[LibreOffice] [Tableur] [Tableur Calc] Copier cellules non contigues d'une feuille � une autre feuille

delium55 — Fri, 20 Feb 2026 02:34:26 GMT

Bonjour,

J�ai quelques probl�mes avec la pr�sente macro.
1) La copie ne se fait pas sur la premi�re ligne libre "GoDownToEndOfData" et et lors d'un enregistrement subs�quent ne va pas � la ligne suivante..
2) La cellule A1 est copi� sur la colonne A mais avec une couleur d'arri�re plan et inclus l'image du bouton.
3) Le titre de la cellule B3 est copi� sur 2 cellules (C & D) et avec couleur d'arri�re plan, au lieu de seulement la cellule D sans arri�re plan.
4) La copie des cellules A4, A5, A7 et A8 sont copi�es sur les cellules N, O, P et Q mais sans les donn�es (valeurs) des cellules d'origines.
5) La cellule L55 est copi�e sur 2 cellules (R & S) avec couleur d'arri�re plan au lieu de la cellule R seulement avec donn�e (Valeur) de la cellule d'origine.

Votre aide serait grandement appr�ci�e.

Citation:

Sub Inscription_Registre_des_Brassins
MonDocument = ThisComponent
MesFeuilles = MonDocument.Sheets
Dim MonDoc As Object, MaFeuille As Object, MonCurseur As Object, aCopier as Object
Dim feuilleDepart As Object 'D�signe la feuille source
Dim feuilleArriv As Object 'D�signe la feuille destination
Dim celluleDepart As Object 'D�finit la cellule source
Dim celluleArriv As Object 'D�finit la cellule de destination
Dim derLigne as long

rem ----------------------------------------------------------------------
'dim args1(1) as new com.sun.star.beans.PropertyValue
'args1(0).Name = "By"
'args1(0).Value = 1
'args1(1).Name = "Sel"
'args1(1).Value = false
'dispatcher.executeDispatch(document, ".uno:GoToStart", "", 0, args1())
'dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args1())
'dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())

'''''''''''''''''TROUVER LA DERNIERE LIGNE DE DONN�E DE LA FEUILLE BRASSINS R�GISTRE'''''''''''''''''''''

MonDocument = ThisComponent
feuilleArriv = MonDocument.getSheets.getByName("Brassins r�gistre")
MonCurseur = feuilleArriv.createCursor
MonCurseur.gotoEndOfUsedArea( True )
derLigne = MonCurseur.RangeAddress.EndRow+1

feuilleDepart = MesFeuilles.getByName ("Brassage") ' definit la feuille source
celluleDepart = feuilleDepart.getCellRangeByName ("A1")
MonDocument.CurrentController.select(celluleDepart) 'S�lection de la cellule de d�part
aCopier = MonDocument.CurrentController.getTransferable() 'Copie
feuilleArriv = MesFeuilles.getByName ("Brassins r�gistre") ' definit la feuille de destination
celluleArriv = feuilleArriv.getCellRangeByName ("$A$" & derLigne)
MonDocument.CurrentController.select(celluleArriv) 'Selection de la cellule d'arriv�e
MonDocument.CurrentController.insertTransferable(aCopier) 'Transfert des donn�es
If celluleDepart.supportsService("com.sun.star.table.CellRange") Then
feuilleArriv.copyRange(celluleDepart.CellAddress, celluleArriv.RangeAddress)
Else Depart
Endif

feuilleDepart = MesFeuilles.getByName ("Brassage")
celluleDepart = feuilleDepart.getCellRangeByName ("B3")
feuilleArriv = MesFeuilles.getByName ("Brassins r�gistre")
celluleArriv = feuilleArriv.getCellRangeByName ("$C$" & derLigne)
MonDocument.CurrentController.select(celluleArriv) 'Selection de la cellule d'arriv�e
MonDocument.CurrentController.insertTransferable(aCopier) 'Transfert des donn�es
If celluleDepart.supportsService("com.sun.star.table.CellRange") Then
feuilleArriv.copyRange(celluleDepart.CellAddress, celluleArriv.RangeAddress)
Else Depart
Endif

feuilleDepart = MesFeuilles.getByName ("Brassage")
celluleDepart = feuilleDepart.getCellRangeByName ("E4")
MonDocument.CurrentController.select(celluleDepart) 'S�lection de la cellule de d�part
aCopier = MonDocument.CurrentController.getTransferable() 'Copie
feuilleArriv = MesFeuilles.getByName ("Brassins r�gistre")
celluleArriv = feuilleArriv.getCellRangeByName ("$N$" & derLigne)
MonDocument.CurrentController.select(celluleArriv) 'Selection de la cellule d'arriv�e
MonDocument.CurrentController.insertTransferable(aCopier) 'Transfert des donn�es
If celluleDepart.supportsService("com.sun.star.table.CellRange") Then
feuilleArriv.copyRange(celluleDepart.CellAddress, celluleArriv.RangeAddress)
Else Depart
Endif

feuilleDepart = MesFeuilles.getByName ("Brassage")
celluleDepart = feuilleDepart.getCellRangeByName ("E5")
MonDocument.CurrentController.select(celluleDepart) 'S�lection de la cellule de d�part
aCopier = MonDocument.CurrentController.getTransferable() 'Copie
feuilleArriv = MesFeuilles.getByName ("Brassins r�gistre")
celluleArriv = feuilleArriv.getCellRangeByName ("$O$" & derLigne)
MonDocument.CurrentController.select(celluleArriv) 'Selection de la cellule d'arriv�e
MonDocument.CurrentController.insertTransferable(aCopier) 'Transfert des donn�es
If celluleDepart.supportsService("com.sun.star.table.CellRange") Then
feuilleArriv.copyRange(celluleDepart.CellAddress, celluleArriv.RangeAddress)
Else Depart
Endif

feuilleDepart = MesFeuilles.getByName ("Brassage")
celluleDepart = feuilleDepart.getCellRangeByName ("E7")
MonDocument.CurrentController.select(celluleDepart) 'S�lection de la cellule de d�part
aCopier = MonDocument.CurrentController.getTransferable() 'Copie
feuilleArriv = MesFeuilles.getByName ("Brassins r�gistre")
celluleArriv = feuilleArriv.getCellRangeByName ("$P$" & derLigne)
MonDocument.CurrentController.select(celluleArriv) 'Selection de la cellule d'arriv�e
MonDocument.CurrentController.insertTransferable(aCopier) 'Transfert des donn�es
MonDocument.CurrentController.select(celluleArriv) 'Selection de la cellule d'arriv�e
MonDocument.CurrentController.insertTransferable(aCopier) 'Transfert des donn�es
If celluleDepart.supportsService("com.sun.star.table.CellRange") Then
feuilleArriv.copyRange(celluleDepart.CellAddress, celluleArriv.RangeAddress)
Else Depart
Endif

feuilleDepart = MesFeuilles.getByName ("Brassage")
celluleDepart = feuilleDepart.getCellRangeByName ("E8")
MonDocument.CurrentController.select(celluleDepart) 'S�lection de la cellule de d�part
aCopier = MonDocument.CurrentController.getTransferable() 'Copie
feuilleArriv = MesFeuilles.getByName ("Brassins r�gistre")
celluleArriv = feuilleArriv.getCellRangeByName ("$Q$" & derLigne)
MonDocument.CurrentController.select(celluleArriv) 'Selection de la cellule d'arriv�e
MonDocument.CurrentController.insertTransferable(aCopier) 'Transfert des donn�es
If celluleDepart.supportsService("com.sun.star.table.CellRange") Then
feuilleArriv.copyRange(celluleDepart.CellAddress, celluleArriv.RangeAddress)
Else Depart
Endif

feuilleDepart = MesFeuilles.getByName ("Brassage")
celluleDepart = feuilleDepart.getCellRangeByName ("L55")
MonDocument.CurrentController.select(celluleDepart) 'S�lection de la cellule de d�part
aCopier = MonDocument.CurrentController.getTransferable() 'Copie
feuilleArriv = MesFeuilles.getByName ("Brassins r�gistre")
celluleArriv = feuilleArriv.getCellRangeByName ("$R$" & derLigne )
MonDocument.CurrentController.select(celluleArriv) 'Selection de la cellule d'arriv�e
MonDocument.CurrentController.insertTransferable(aCopier) 'Transfert des donn�es
If celluleDepart.supportsService("com.sun.star.table.CellRange") Then
feuilleArriv.copyRange(celluleDepart.CellAddress, celluleArriv.RangeAddress)
Else Depart
Endif

'-----Message de confirmation-----
msgbox "L'inscription au r�gistre est r�ussie avec succ�s" ,0, "Bravo !"
End Sub

Pi�ce jointe 674409

[LibreOffice] [Texte] Macro pour remplacer ou modifier style de caract�re

julgau — Thu, 19 Feb 2026 12:31:24 GMT

Bonjour,

Je voudrais cr�er une macro permettant de rendre transparent le texte ayant le style de caract�re "r�ponse" en passant la transparence de la police de ce style de 0% � 100% (puis une deuxi�me macro permettant de faire l'inverse).

PB1 : si quelqu'un a la solution, je suis preneur MAIS comme je ne sais pas �crire de macro j'utilise l'enregistreur de macro.
PB2 : l'enregistreur de macro n'a pas l'air d'enregistrer les modif que je fait dans mon style de caract�re. La macro qui en ressort ne fait qu'ouvrir la fen�tre de modification du style de caract�re.

J'ai donc envisag� d'utiliser la fonction remplacer.
Bien que Remplacer permette de remplacer les styles de paragraphe, il ne permet pas de remplacer les styles de caract�res.

J'arrive donc � rechercher ce qui m'int�resse par attributs et format et le remplacer par format avec 100% de transparence.
J'enregistre ma macro "cacherer" et la teste, tout fonctionne...

PB3 : si je lance ma macro apr�s avoir r�-ouvert mon fichier, elle ne fonctionne plus.
J'ai l'impression que l'enregistreur de macro n'enregistre pas les param�tres de Remplacer, mais ne fait qu'ex�cuter la fonction Remplacer avec les derniers param�tres utilis�s.

Merci par avance

Images attach�es

Fichiers attach�s

Transparence texte.odt (28,6 Ko)

[OpenOffice] [Tableur] Formatage des cellules ne fonctionne pas

GILROST — Sun, 15 Feb 2026 15:38:14 GMT

Bonjour � vous tous,
Je viens de d�marrer avec Linux Mint, d�gout� par l'Am�rique, je d�sirerai me passer des services de Microsoft;
Je suis en train de tester les applications; J'ai enregistr� un fichier Excell de mon ordinateur au format .ods, lorsque j'ouvre le fichier avec LibreofficeCalc, mon tableur et toutes les formules fonctionnent parfaitement; Seul b�mol, les diff�rents chiffres �taient avec 2 d�cimales apr�s la virgule dans Excell, maintenant, il n'y a des d�cimales que si le chiffre est par exemple 15.1 j'aimerai que l'affichage soit de 15.10 ou si = � 15 il serait �gal � 15.00;
J'ai bon formater les cellules au format nombre ou mon�taire, il ne se passe rien.
Les additions des colonnes fonctionnent parfaitement.
Auriez-vous SVP une solution � me proposer?
En vous remerciant;
Cordialement,
Ghislain

[LibreOffice] [Tableur] Disparition zone impression sur feuille de travail

Aygues31 — Thu, 05 Feb 2026 10:27:14 GMT

Bonjour � tous,
A nouveau une modification que je n'ai pas souhait�e mais peut-�tre une mauvaise manip sans m'en rendre compte !!!!
Sur ma feuille de travail avec libre office calc, j'avais le contour en pointill� de la zone d'impression.
Bien pratique pour modifier les largeurs de colonnes afin d'avoir sa future impression sur une seule page ... OK
Ce contour pointill� de la zone d'impression a disparu de ma feuille de travail. !!!
Comment la r�tablir ?
Merci

[LibreOffice] [Tableur] Cl� indexation et relation entre feuilles de calcul

fafane84 — Mon, 19 Jan 2026 16:26:58 GMT

Bonjour � tous !

Je suis charg� d'un projet de tableur pour g�rer le pourcentage de participation � un jeu.

Vous trouverez en pi�ce jointe un brouillon de ce projet : Projet.ods

Je voudrai cr�er un index unique automatiquement (ID_Joueur) et le relier sur mes feuilles de calcul afin d'�viter des erreurs ou un m�lange de donn�es en cas de r�ordonnancement des joueurs ou d'insertion d'une nouvelle ligne.

Je ne trouve nul part comment faire.

Merci d'avance pour votre aide.

Fichiers attach�s

Projet.ods (17,5 Ko)

supprimer zero impression libre office.calc

Aygues31 — Sat, 03 Jan 2026 10:57:39 GMT

Bonjour,
Je ne suis peut-�tre pas sur le bon forum ?
Je suis avec libre office.calc et on m'imprime le zeros !!!
J'ai pourtant tout fait � savoir : outils/option/libreoffice.calc/ affichage / valeur zero d�coch�e
Et pourtant les zeros s'impriment dans toutes les cases vides !!!
Je ne comprends pas et ne sait quoi faire
Merci

Contenu cellule adjacente

Benini40 — Sat, 03 Jan 2026 09:54:51 GMT

Bonjour, je voudrais savoir comment faire pour afficher le contenu d'une cellule juste en dessous d'une autre.
Par exemple, j'aurais comme argument C27, et je veux afficher le contenu de C28 (qui contient un nombre)

Suis-je clair ?

Merci d'avance !

[LibreOffice] [Base de donn�es] Base de Donn�e Music

pepone33380 — Thu, 25 Dec 2025 21:24:06 GMT

bonjour

J'ai commencer une base de donn�e de music qui ce structure avec 3 tables: T_ Interpr�te - T_Titre - T_interprete Titre + 1 Formulaire Form_Titre Interpr�te

mon probl�me est que quand il y a 2 titres diff�rent avec le m�me interpr�te donc un seul n� ID pour l'interpr�te et 2 ID diff�rent pour les 2 titres j'ai une erreur par ce que je rentre sur les lignes des 2 titres le m�me n� ID de l'interpr�te quelqu'un aurait une id�e

[LibreOffice] [Tableur] Macro enregistrer sous

delium55 — Thu, 11 Dec 2025 22:29:00 GMT

Bonjour,

Le code de la macro suivante, enregistre le fichier dans un dossier du m�me r�pertoire que le classeur.
Pour le nouveau nom du fichier, cela correspond � ce que je veux.
Le probl�me est le nom du dossier, pr�sentement le dossier porte le m�me nom que le fichier; ce que je voudrais c'est qu'il porte le nom de la feuille "Brassage" du classeur.

J'ai fait plusieurs tentatives qui ne fonctionnent pas.

Votre aide serait grandement appr�ci�e.

Option Explicit
'***************************************************************************************************************
' Recherche le rep du fichier courant
'***************************************************************************************************************
Function DossierCourant(unDoc as Object) as String
Dim nomfich as String
Dim place as Integer, place1 as Integer
Dim MaFeuille as Object

nomfich = ConvertFromURL(unDoc.URL) 'ToUrl renvoit file:///..., FromUrl renvoit c:\...
place1 = 1
Do While place1 <> 0
place = place1 + 1
place1 = InStr(place, nomfich, getPathSeparator)
Loop
DossierCourant = nomfich
DossierCourant = Mid(nomfich, 1, place - 1)

End Function

Sub Enregistrer_sous
Dim monDoc as Object, MaFeuille as Object
Dim LeDossier as String, Nom as String, Url as String, MonFichier as String

MonDoc = ThisComponent
'------Si le fichier a �t� modifi� on enregistre-----
If MonDoc.IsModified Then MonDoc.Store
msgbox "Le fichier sera enregistr� pour inclure les derni�res modifications avant de poursuivre cette macro"
MaFeuille = MonDoc.sheets.getByName("Brassage")

LeDossier = DossierCourant(MonDoc)
Nom = MaFeuille.getCellRangeByName("A1").getString() & " - le " & Format (Now, "DD-MM-YYYY-HH-MM" )
Url = LeDossier & Nom & getPathSeparator

MonFichier = Nom & ".ods"
'------si le r�pertoire n'existe pas, on le cr�e-----
If Dir(Url,16) = "" Then
MkDir Url
End If

Url = ConvertToURL(Url & MonFichier)
'-----Soit on enregistre et travaille sous le nouveau fichier-----
'-----monDoc.storeAsUrl(Url, Array())
'-----Soit on enregistre et continue � travailler sur le fichier source
monDoc.storeToUrl(Url, Array())
msgBox "Le fichier de sauvegarde de la recette .ods a �t� cr�� avec succ�s."
End Sub

Fichiers attach�s

essai r�pertoire.ods (115,8 Ko)

[LibreOffice] [Tableur] reproduire une mise en forme en basic

papyxy — Tue, 25 Nov 2025 10:39:51 GMT

bonjour je souhaite reproduire les caract�ristique d'une plage sur une autre ligne

[LibreOffice] [Base de donn�es] Listes d�roulantes d�pendantes

FIFI33160 — Mon, 24 Nov 2025 21:06:38 GMT

Bonjour � toutes et � tous, merci � ceux qui me donneront un petit coup de main.
J'ai cherch� un peu partout mais...j'ai pas trouv� mon bonheur ! J'ai cr�� (pour apprendre !) une base de donn�ees Code Postal.
Mon but 2 listes d�roulantes 1 qui m'affiche le code postal et l'autre qui devra m'afficher la ville. Ca parait simple mais j'y arrive pas !
Merci � tous

Fichiers attach�s

CodesPostaux.zip (45,5 Ko)

[LibreOffice] [Tableur] Recherche sur des onglets multiples

evindi — Tue, 18 Nov 2025 17:02:34 GMT

Bonsoir:
Je recherche une aide sur une question de recherche pour constituer un tableau plat sur un onglet en prenant des �l�ments sur les autres onglets du classeur.
Voici comment est constitu� le classeur*:
db = pour stocker tous les �l�ments constants
00 = matrice vierge des onglets suivants � copier et coller � l�emplacement voulu
07 � 12 et de 01 � 06 = les onglets de chaque mois (l�ordre n�est pas logique, mais il, s�est fait ainsi au fur et � mesure) observation*: si je bouge cette ordre cela provoque des perturbations dans l�onglet �*R�clamations*�
et dernier onglet �*R�clamations*� intitul� pour l�instant �*essai de r�clamations*� essai est plus prudent*! R�clamations est un petit moteur qui a des rat�s*!

Cet onglet �*Essai*� est ainsi constitu�*:
A = reprise des onglets �*mois*�
B = nombre de lignes n�cessaires
C = recherche de l�onglet d�origine
D = num�ro dans l�onglet les lignes �tant divis�es par 31 pour �tre sur de faire un mois complet
E = v�rifie si une r�clamation a �t� n�cessaires
F&G = place de la ligne dans l�onglet
de H � O = constitution d�un tableau (pouvant �ventuellement servir ult�rieurement � des T crois�s dynamiques)
les colonnes P et Q destin�es � dispara�tre �tant des colonnes de travail/v�rification

Dans les colonnes M � N � O les formules ne fonctionnent pas bien. Les r�sultats bien que bons sont en d�calage. Par exemple pour les 3 premi�res occurrences c�est � dire sur le mois de JUILLET les r�sultat sont affich�s avec un d�calage correspondant exactement au nombre de cellules les separant du d�but du mois sur l�onglet de 07. Peut �tre que je n�exploite pas les bonnes colonnes�..

Je vous sollicite donc pour avoir une aide si cela vous est possible et je vous joins un fichier � cet effet.

Fichiers attach�s

Emploi du temps - Copie.ods (155,2 Ko)

[LibreOffice] [Base de donn�es] formulaire et champ date

FIFI33160 — Tue, 21 Oct 2025 17:15:37 GMT

Bonjour � tous et merci pour votre aide !

J'ai cr�� un formulaire � base d'une requ�te. L'affichage dans le formulaire d'un champ date me renvoie #####. La table affiche bien la date, la requ�te affiche elle aussi la date mais pas dans le formulaire.

Avez vous une piste ?

Encore merci.
Philippe

[LibreOffice] [Base de donn�es] mettre un texte en num�rique avec d�cimales

papyxy — Tue, 21 Oct 2025 08:07:22 GMT

J'ai essay� cette fonction, que j'ai r�cup�r� sur un site;
elle ne fonctionne pas ?....

Code:

1
2
3
4
testName = "Test 1: positive, 2 decimals"
str2 = "12.20"
str1 = FormatNumber("12.2", 2, vbFalse, vbFalse, vbFalse)
msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)

[LibreOffice] [Tableur] Faire une somme en fonction de diff�rentes valeurs

alexein15 — Fri, 17 Oct 2025 07:09:09 GMT

Bonjour,

Dans le tableau en PJ, je cherche � sommer dans les lignes 18 � 20 les valeurs de la colonne B en fonction des valeurs en D.

Exemple : pour la ligne 20 (trimestre 3), je veux la somme de toutes les valeurs en B pour les mois du 3�me trimestre (valeurs en D).

J'ai fait en B20 la fonction suivante qui ne pr�sente pas d'erreur mais qui ne donne pas le bon r�sultat :

=SOMME.SI(D2: D9;OU(7;8;9);B2:B9)

En C20, j'ai le bon r�sultat avec la fonction suivante :

=SOMME.SI(D2: D9;7;B2:B9)+SOMME.SI(D2: D9;8;B2:B9)+SOMME.SI(D2: D9;9;B2:B9)

Ce qui est quand m�me lourd.

(je mets artificiellement un espace entre : et D pour ne pas avoir un �motic�ne)

Je ne comprends pas pourquoi la fonction en B20 ne fonctionne pas, avez-vous une id�e ?

Ou pour pour une autre solution plus simple / l�g�re ?

Merci d'avance pour votre aide,

Fichiers attach�s

exemple.ods (17,9 Ko)