[Macro OOo] Macro pour tri de valeurs
Belar
Messages postés
18
Statut
Membre
-
Belar Messages postés 18 Statut Membre -
Belar Messages postés 18 Statut Membre -
Bonjour,
Quelqu'un aurait il une macro qui permets de trier par ordre décroissant une liste de 9 chiffres placés dans une colonne....
Cordialement
Quelqu'un aurait il une macro qui permets de trier par ordre décroissant une liste de 9 chiffres placés dans une colonne....
Cordialement
Configuration: Windows XP Firefox 1.5.0.11
A voir également:
- [Macro OOo] Macro pour tri de valeurs
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Tri sur excel - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
2 réponses
Personne ne peut m'aider alors?
Voila ce que j'ai deja obtenu, mais ca ne fonctionne pas tout a fait... (J'ai des valeurs qui sont changées...
Merci d'avance
REM ***** BASIC *****
Sub SortRange
Dim oSheetDSC,oDSCRange As Object
Dim aSortFields(0) as new com.sun.star.util.SortField
Dim aSortDesc(0) as new.sun.star.bearns.PropertyValue
oSheetDSC = ThisComponent.Sheets.getByName("Vue générale")
oDSCRange = oSheetDSC.getCellRangeByName("Y86:Y94")
ThisComponent.getCurrentController.select(oDSCRange)
aSortFields(0).Field = 0
aSortFields(0).SortAscending = FALSE
aSortDesc(0).Name = "SortFields"
aSortDesc(0).Value = aSortFields()
oDSCRange.Sort(aSortDesc())
End Sub
Voila ce que j'ai deja obtenu, mais ca ne fonctionne pas tout a fait... (J'ai des valeurs qui sont changées...
Merci d'avance
REM ***** BASIC *****
Sub SortRange
Dim oSheetDSC,oDSCRange As Object
Dim aSortFields(0) as new com.sun.star.util.SortField
Dim aSortDesc(0) as new.sun.star.bearns.PropertyValue
oSheetDSC = ThisComponent.Sheets.getByName("Vue générale")
oDSCRange = oSheetDSC.getCellRangeByName("Y86:Y94")
ThisComponent.getCurrentController.select(oDSCRange)
aSortFields(0).Field = 0
aSortFields(0).SortAscending = FALSE
aSortDesc(0).Name = "SortFields"
aSortDesc(0).Value = aSortFields()
oDSCRange.Sort(aSortDesc())
End Sub
Range("A1:A9").Sort Key1:=Range("A1"), _ Order1:=xlAscending,Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal