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 word - Guide
- Macro recorder - Télécharger - Divers Utilitaires
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