A voir également:
- [Macro OOo] Macro pour tri de valeurs
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Comment faire un tri personnalisé sur excel - Guide
- Logiciel tri photo - 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