[Macro OOo] Macro pour tri de valeurs
Fermé
Belar
Messages postés
18
Date d'inscription
mercredi 22 novembre 2006
Statut
Membre
Dernière intervention
12 mai 2007
-
12 avril 2007 à 16:15
Belar Messages postés 18 Date d'inscription mercredi 22 novembre 2006 Statut Membre Dernière intervention 12 mai 2007 - 17 avril 2007 à 20:24
Belar Messages postés 18 Date d'inscription mercredi 22 novembre 2006 Statut Membre Dernière intervention 12 mai 2007 - 17 avril 2007 à 20:24
A voir également:
- [Macro OOo] Macro pour tri de valeurs
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Tri excel - Guide
2 réponses
Belar
Messages postés
18
Date d'inscription
mercredi 22 novembre 2006
Statut
Membre
Dernière intervention
12 mai 2007
17 avril 2007 à 08:29
17 avril 2007 à 08:29
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
Belar
Messages postés
18
Date d'inscription
mercredi 22 novembre 2006
Statut
Membre
Dernière intervention
12 mai 2007
17 avril 2007 à 20:24
17 avril 2007 à 20:24
Merci de t'interessé a mon cas^^
Il me met un message d'erreur pour la 1ere ligne:
"Sous procédure ou procédure de fonction non définie"...
Sinon est ce qu'il permet de les trier dans la colonne d'a coté (c'est ce que je voudrais)
Il me met un message d'erreur pour la 1ere ligne:
"Sous procédure ou procédure de fonction non définie"...
Sinon est ce qu'il permet de les trier dans la colonne d'a coté (c'est ce que je voudrais)
17 avril 2007 à 11:47
Range("A1:A9").Sort Key1:=Range("A1"), _ Order1:=xlAscending,Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal