[Résolu] [Calc] mise en couleur ligne impairs

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
le troubadour
Membre OOrganisé
Membre OOrganisé
Messages : 99
Inscription : 09 nov. 2013 14:07

[Résolu] [Calc] mise en couleur ligne impairs

Message par le troubadour »

bonjour

dans le fichier en PJ sur la macro "TRI" je voudrais mettre une couleur différente sur les lignes impairs une fois le tri effectué.
Je n'ai pas trouvé de sujet là-dessus

merci

Le troubadour

La modération vous a écrit: 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). [Calc] et non [calc]. Merci de corriger votre titre.

Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Dernière modification par le troubadour le 24 juin 2017 12:52, modifié 2 fois.
open office 4.1,2 , libre office 5.0.5.2 windows 7
Avatar de l’utilisateur
Michel JANZEF
ManitOOu
ManitOOu
Messages : 3453
Inscription : 12 janv. 2006 10:04

Re: [calc] mise en couleur ligne impairs

Message par Michel JANZEF »

Bonjour,
Une piste ici
AOo 4.1.15 et LibO 7.6.6.3 (x64) - Windows 10 Famille 22H2 (19045.3693) 64 bits
Piaf
GourOOu
GourOOu
Messages : 5622
Inscription : 25 nov. 2011 18:07
Localisation : Guyane

Re: [calc] mise en couleur ligne impairs

Message par Piaf »

Bonsoir
A tester

Code : Tout sélectionner

Sub TrierZone
Dim maFeuille as Object, maZone as Object
Dim oTriChamps(0) as New com.sun.star.util.SortField
Dim oTriDesc(0) as new com.sun.star.beans.PropertyValue
Dim oConFormat as Object
Dim oCondition(2) As New com.sun.star.beans.PropertyValue
	maFeuille = ThisComponent.Sheets.getByName("Distancier 1")
	maZone = maFeuille.getCellRangeByName("B9:AG200")
	oTriChamps(0).Field = 0
	oTriChamps(0).SortAscending = True
	oTriDesc(0).Name = "SortFields"
	oTriDesc(0).Value = oTriChamps()
	maZone.Sort(oTriDesc())
	oConFormat = maZone.ConditionalFormat
	oCondition(0).Name = "Operator"
	oCondition(0).Value = com.sun.star.sheet.ConditionOperator.FORMULA
	oCondition(1).Name = "Formula1"
	oCondition(1).Value = "MOD(ROW();2)"
	oCondition(2).Name = "StyleName"
	oCondition(2).Value = "Couleur"
	oConFormat.addNew(oCondition())
	maZone.ConditionalFormat = oConFormat
End Sub

Sub RetourMenu
	thisComponent.CurrentController.ActiveSheet = thisComponent.Sheets(0)
End Sub
Dans ton cas de figure, le formatage conditionnel par macro est juste pour le fun, il est tout aussi simple de le mettre en place par l'interface.
A+
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
le troubadour
Membre OOrganisé
Membre OOrganisé
Messages : 99
Inscription : 09 nov. 2013 14:07

Re: [calc] mise en couleur ligne impairs

Message par le troubadour »

bonjour à tous

merci pour vos réponse, c'est nickel

la macro retour menu a été modifiée également, merci mais comment faire pour associer les deux sur un même macro ?
quel est le terme pour faire le liaison entre les deux ?

lors de l'appuie "retour menu " je voudrais que le tri s'effectue et ensuite retour page " menu "

merci
La modération vous a écrit: On vous a demandé de corriger la balise [Calc] dans le titre de votre premier message.

open office 4.1,2 , libre office 5.0.5.2 windows 7
Piaf
GourOOu
GourOOu
Messages : 5622
Inscription : 25 nov. 2011 18:07
Localisation : Guyane

Re: [calc] mise en couleur ligne impairs

Message par Piaf »

Bonjour
Merci d'appliquer les consignes de la modération.

Code : Tout sélectionner

Sub RetourMenu
	TrierZone
	thisComponent.CurrentController.ActiveSheet = thisComponent.Sheets(0)
End Sub
A+
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
le troubadour
Membre OOrganisé
Membre OOrganisé
Messages : 99
Inscription : 09 nov. 2013 14:07

Re: [calc] mise en couleur ligne impairs

Message par le troubadour »

merci PIAF pour ta réponse et également à Michel

le troubadour
open office 4.1,2 , libre office 5.0.5.2 windows 7