[Résolu][Calc] Insérer zone de tri

[lesampaud]

Bonjour

J'ai vu pas mal de sujets là dessus mais comme je sais qu'il ne faut pas déterrer de vieux topics, j'ouvre celui là
J'ai mis une partie de ma cave dans un tableau, j'ai voulu m'amuser à faire 3 boutons et les associer à 3 macros de tri que j'ai enregistrées.

Mais voilà, j'ai des erreurs.

Lors de l'enregistrement j'ai sélectionné ma zone de tri A3:N100, or quand je clique sur le bouton pour trier, ce dernier fonctionne mais mon tri s'effectue sur tout le tableau et pas uniquement dans ma zone de tri. Zone que je ne vois pas dans la macro, mais je ne sais pas comment la rajouter.

Mon tableau concerne la gestion de ma cave à vins, ma petite cave à vins

Merci

Cyril

[micmac]

Bonjour,

<probleme zone de tri sur macro dédiée>
Le titre de votre question n'est pas assez explicite :
Nous l'avons donc modifié. En effet, lors d'une recherche, ce sujet risquait de passer inaperçu et donc de ne pas aider d'autres personnes ayant le même problème que vous.

Ce titre doit synthétiser votre question et donner envie d'y répondre. Un titre clair et précis augmente vos chances d'obtenir des réponses plus rapidement. Des termes comme, aide, bogue, problème ou OpenOffice étant implicites, n'ont pas besoin d'être mentionnés, de même que macro en section éponyme.

Merci de votre collaboration

[lesampaud]

Bonjour,

<probleme zone de tri sur macro dédiée>
Le titre de votre question n'est pas assez explicite :

et dire que j'ai réfléchi à mon titre. Merci

Ne citez pas l'ensemble des messages, cela rend la lecture difficile. Nous avons raccourci la citation.

[jeanmimi]

Bonjour,
Dans ton fichier joint,je n'ai pas trouvé de Macro, apparemment elle est restée dans ton PC.

[lesampaud]

Désolé, j'apprends tout doucement et à mon age, il faudrait que j'active la manoeuvre.
J'ai refait mes macros

Merci

[jeanmimi]

Je ne sais ps si tu l'as consulté, mais tu as ici un fil de messages avec sélection d'une Zone de cellules, définie dans le code de la Macro, et tri de la Zone :
https://forum.openoffice.org/fr/forum/v ... es#p186883

[lesampaud]

Je ne sais ps si tu l'as consulté, mais tu as ici un fil de massage avec sélection d'une Zone de cellules, définie dans le code de la Macro, et tri de la Zone :
https://forum.openoffice.org/fr/forum/v ... es#p186883

Bonjour
Je pensais, qu'en sélectionnant la zone, ceci incrémenterait la macro à l'instar de Excel dans le développeur
Je vais me pencher sur la question et te tiens au courant


Merci

[lesampaud]

bonjour

Je ne vais pas mettre résolu car ce n'est pas vrai, je n'y suis pas arrivé. Il y a un langage que je ne maîtrise pas

Pas grave, ma femme m'a dit qu'elle me le ferai au taf sous xls

Bonne journée.

[Piaf]

Bonjour

Pas grave, ma femme m'a dit qu'elle me le ferai au taf sous xls

A tester pour mettre le [Résolu] avant de passer à Excel.

Code : Tout sélectionner

Sub Main(oEv as Object)
Dim maFeuille as Object, maZone as Object
Dim oSortFields(2) as new com.sun.star.util.SortField
Dim oSortDesc(0) as new com.sun.star.beans.PropertyValue
	maFeuille = ThisComponent.Sheets.getByName("Ma cave")
	maZone = maFeuille.getCellRangeByName("A3:A1003")
	zonesVides = maZone.queryEmptyCells.RangeAddresses
	y = zonesVides(0).StartRow
	maZone = maFeuille.getCellRangeByName("A3:N" & y)
	Select Case oEv.Source.Model.Label
		Case "Tri vins"
			oSortFields(0).Field = 0
			oSortFields(0).SortAscending = True
			oSortFields(0).FieldType = com.sun.star.util.SortFieldType.ALPHANUMERIC
			oSortFields(1).Field = 5
			oSortFields(1).SortAscending = True
			oSortFields(1).FieldType = com.sun.star.util.SortFieldType.NUMERIC
			oSortFields(2).Field = 6
			oSortFields(2).SortAscending = True
			oSortFields(2).FieldType = com.sun.star.util.SortFieldType.NUMERIC						
		Case "conso_mini"	
			oSortFields(0).Field = 5
			oSortFields(0).SortAscending = True
			oSortFields(0).FieldType = com.sun.star.util.SortFieldType.NUMERIC
		Case "conso_max"
			oSortFields(0).Field = 6
			oSortFields(0).SortAscending = True
			oSortFields(0).FieldType = com.sun.star.util.SortFieldType.NUMERIC
	End Select		

	oSortDesc(0).Name = "SortFields"
	oSortDesc(0).Value = oSortFields()
	maZone.Sort(oSortDesc())
End Sub

Et tant qu'à changer, pourquoi ne pas utiliser un module dédié à la gestion de données ?
A+