[Résolu][Calc] Trier valeurs dans une zone

[bordelaplage]

Bonjour,
Sur le fichier joint " aide pour TRIER_Noonours.ods " créer par Piaf
Le N° 0 sort en premier des N° quand je tape bouton ?
Qui peut me corriger ce bug , afin que le N° 0 ne sorte pas ,svp
Merci

https://forum.openoffice.org/fr/forum/v ... 91#p251987

[micmac]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : https://forum.openoffice.org/fr/forum/s ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doivent pas être employés car il sont implicites. Il en est de même pour le terme "bogue" qui ne doit être utilisé que pour les dysfonctionnements avérés. Essayez de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.
Merci de votre collaboration.

[bordelaplage]

Bonjour,
Encore désolé mais j'ai 57 ans et je ne comprends pas grand chose en informatique
J'ai lut vos liens .........pour les forums , pas évident pour moi !
Je veux nullement vous être génant
J'espére juste que le fichier sera corrigé par une personne qui pourra m'aider
Bonne journée

[Piaf]

Bonjour

J'espére juste que le fichier sera corrigé

Comme dis dans le fil précédent, je ne reproduis pas.

TriNum.png

Donc corriger quoi ?
Teste avec le fichier joint.
A+

[bordelaplage]

Bonjour ,

Il y a un quiproquo le fichier fonctionne parfaitement bien MAIS avec les 70 cases remplies dans le 1er tableau comme sur " exemple à trier " joint

En haut > 1er tableau toutes les 70 cases > 2 éme tableau fontionne parfaitement

En dessous > 1er tableau 40 cases remplies > 2 éme tableau le N° O APPARAIT au début

Peux tu avoir la gentillesse de corriger cette erreur stp

Merci

[Piaf]

Bonjour

J'ai crée un tableau de 70 N°

En dessous > 1er tableau 40 cases remplies

Une cellule vide correspond à 0.
Si dans ta liste de numéros, il n'y a pas de 0, il suffit de faire partir l'index du tableau à 1 au lieu de 0.

Code : Tout sélectionner

Sub TriValeur(maZone,maZoneTriee)
Dim Cellules as Object, enumCellules as Object, listeCell as Object, uneCellule as Object
Dim monTableau(69) as Integer, X as Integer
Dim nCol As Long, nRow As Long
Dim oCols as Object, oRows as Object
	Cellules = maZone.queryContentCells(com.sun.star.sheet.CellFlags.VALUE)
	enumCellules = Cellules.Cells
	listeCell = enumCellules.createEnumeration
	X = 0
	Do While listeCell.hasMoreElements
		uneCellule = listeCell.nextElement
		monTableau(X) = uneCellule.Value
		X = x + 1
	Loop
	monTableau = SortedList(monTableau,True)
	If monTableau(0) = 0 Then
		x = 1
	Else
		x = 0
	End If	
	oCols = maZoneTriee.Columns : oRows = maZoneTriee.Rows
	For nCol = 0 To oCols.getCount() - 1
		For nRow = 0 To oRows.getCount() - 1
			maZoneTriee.getCellByPosition(nCol, nRow).Value = monTableau(x)
			X = x + 1
			If X > Ubound(monTableau) Then Exit Sub
		Next
	Next
End Sub

A+

[bordelaplage]

Bonjour,
Désolé ,je n'y comprends rien dans tes données ,lol
Mais j'ai trouvé : en mettant tout simplement à la fin un chiffre supérieur 80 plusieurs fois
Puis il sort en dernier numéro et je l'efface , cool non ! je me débrouille de bric en brac !


Par contre sans abuser peux tu si tu en as le temps et l'envie m'aider encore un petit peu et c'est finit aprés !
De plus il pleut il pleut , et ça occupe lol

Je veux séparer les numéros du " 1 er tableau " en CROIX comme l'exemple donné en 2 tableaux A & B
Sur une feuille nouvelle " TRIER EN CROIX 1 "
ou sur la même feuille " TRIER EN CROIX 2 "

Peux tu m'aider stp
Merci

[Piaf]

Bonjour
A tester
A+

[bordelaplage]

Bonjour,

Merci pour l'aide , la conviabilité et votre indulgence à mon ignorance que j'ai eut sur le site

Et en particulier à Piaf qui m'a consacré du temps à concrétiser ce que je voulais

[Piaf]

Bonjour
Et si tu veux que tes tableaux triés ressemblent plus à ton modèle :
A tester.
A+
N'oublie pas le [Résolu] avec la coche qui va bien dans le premier message de ton fil.
Et le Résolu dans ta question sur l'autre Forum

[bordelaplage]

Bonjour
Aprés quelques temps de probléme de santé passé à l'hopital , je reviens vers vous
Auriez vous l'amabilité de me corriger le tableaux précédent
Je veux que les N° sortent en CROIX ou en BIAIS comme l'exemple ci joint TRIER EN CROIX .3 svp
Merci pour votre aide

[Piaf]

Bonjour
Malgré le [Résolu] et suite aux MP
Un dernier exemple, je ne suis pas matheux et le jonglage avec avec les valeurs de cellules, ça va un peu....
je suis parti de la dernière situation des tableaux de ton fichier.

Code : Tout sélectionner

Sub DernierTri(maZoneTriee,maZoneTriee2)
Dim monTab(34) as integer, monTab2(34) as Integer
	i = 0
	For x = 0 to 6
		For y = 0 To 4
		'https://forum.openoffice.org/fr/forum/viewtopic.php?f=8&t=18891#p103516 par bm92
			If x and 1 Then
        		monTab(i) = maZoneTriee2.getCellByPosition(x,y).Value
        		monTab2(i) = maZoneTriee.getCellByPosition(x,y).Value
			Else
				monTab(i) = maZoneTriee.getCellByPosition(x,y).Value
				monTab2(i) = maZoneTriee2.getCellByPosition(x,y).Value
			End If
			i = i + 1
		Next Y
	Next X
	gomme = com.sun.star.sheet.CellFlags.VALUE
	maZoneTriee.clearContents(gomme)
	maZoneTriee2.clearContents(gomme)
	X = 0		
	oCols = maZoneTriee.Columns : oRows = maZoneTriee.Rows
	For nCol = 0 To oCols.getCount() - 1
		For nRow = 0 To oRows.getCount() - 1
			maZoneTriee.getCellByPosition(nCol, nRow).Value = monTab(x)
			maZoneTriee2.getCellByPosition(nCol, nRow).Value = monTab2(x)
			X = x + 1
			If X > Ubound(monTab2) Then Exit sub
		Next nRow
	Next nCol		 
End Sub

Tableaux désirés.png

A+

[bordelaplage]

Bonjour

Merci encore pour ta gentillesse

Et pardonne moi si je suis novice sur le site

Bonne journée

[bordelaplage]

Pardon encore Piaf

Mais je viens de m'apercevoir d'un disfonctionnement

J'ai tester et les N° ne sortent pas en croix ( exemple donné N° en vert )

Et j'ai crée un fichier " TRIER EN CROIX à corriger (explications ) " avec le explications

J'ai mis 2 tableaux DESIRES en exemple 70 & 35 N en 2 fichier ( copier coller )

Qui peut me le corriger stp

Merci

[bordelaplage]

Bonjour ,

Mon petit fichier avance pas à pas , j'ai une modification à apporter

Sur ce fichier c'est parfait quand le tableaux est rempli entiérement de 70 N°( SUR 70 N° tableaux rempli BON )

Sinon sur celui ci ( si MOINS 70 N° tableaux rempli PAS BON ) le résultat est différent > les N° ne sortent pas en croix

Merci encore à l'avance pour votre aide

Bonne journée

[DLE]

Bonjour,

Ci-joint une nouvelle version à valider.

A+

[bordelaplage]

Bonjour,

Merci à DLE pour votre aide bien précieuse sur ce site

Si un jour je peux vous aider en quoi que ce soit , n'hésitez pas à me le demander

Bonne journée