[Macro OOo] Macro pour tri de valeurs

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
Configuration: Windows XP
Firefox 1.5.0.11

2 réponses

  1.
    Belar Messages postés 18 Statut Membre
     
    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
    0
    1. masterseb
       
      bonjour Belar, essaie ce petit code, il tiens compte du fait que les données vont de la cellule A1 à la cellule A9 :

      Range("A1:A9").Sort Key1:=Range("A1"), _ Order1:=xlAscending,Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, _
      Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
      0
  2. Belar Messages postés 18 Statut Membre
     
    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)
    0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses