Discussion :

[bordelaplage]

Bonjour,

Avec OPEN OFFICE

J'ai crée un tableau de 70 N°

de 10 cases vertical 1 à 10

sur 7 cases horizontal de B à H

Comment TRIER par ordre croissant dans le sens vertical ,svp

les N° du 1er tableau en retirant les N° doubles ou triples si il y en a ?

Merci pour votre aide

PS j'ai fait comme sur une vidéo

" TUTO OPENOFFICE CALC : Trier et filtrer un tableau "

1) clic sur tout le tableau

2) données > trier > option > clic sur la plage contient des étiquettes de colonne

MAIS il ne m'a trié que les 10 N° de la 1ére colonne ?? pourquoi svp ?

De plus il ne me retire pas les doubles , ce que je cherche à faire

Merci encore pour votre aide

[zoom61]

Bonjour,

Vous ne pourrez pas faire un tel tri avec l'IHM, il vous faudra passer par du code. Voici un tuto Utiliser oBasic dans le Tableur (Calc) où vous trouverez tous les éléments pour y arriver.

[jurassic pork]

hello,
zoom61, je me suis un peu penché sur le problème, histoire de faire un peu de code, je récupère les valeurs de la plage du tableau dans un tableau comme ceci en macro basic:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim a, ada, aRow,aCol, x, y,valeur,plage,ligne,tableau(100)
' on sélectionne la zone à trier de la première feuille
a = ThisComponent.Sheets(0).getCellRangeByName("A1:G10")
' on récupère les données en une seule fois
plage = a.DataArray   ' This is synonymous to a.getDataArray()
' on balaie l'ensemble de la plage pour mettre les valeurs dans un tableau
x=0
For Each ligne in plage
  For Each valeur in ligne
  tableau(x) = valeur
  x = x + 1 
  Next valeur
Next ligne

mais après je coince : comment trier le tableau ? est-ce faisable facilement en basic ? Ne faut-il pas mieux utiliser une macro en python ?


Ami calmant, J.P

[zoom61]

Voici ce que j'ai pu faire rapidement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub Tableau1()
    Dim a, ada, aRow,aCol, x, y,valeur,plage,ligne,tableau(100)
 
    ' on sélectionne la zone à trier de la première feuille
    a = ThisComponent.Sheets(0).getCellRangeByName("A1:G10")
    ' on récupère les données en une seule fois
    plage = a.DataArray   ' This is synonymous to a.getDataArray()
    ' on balaie l'ensemble de la plage pour mettre les valeurs dans un tableau
    x=0
    For Each ligne in plage
      For Each valeur in ligne
      tableau(x) = valeur
      x = x + 1 
      Next valeur
    Next ligne
 
    Dim I%, J%, K%, tmp
 
    For I = LBound(tableau) To UBound(tableau)
        J = I
        For K = J + 1 To UBound(tableau)
            If tableau(K) >= tableau(J) Then J = K
        Next K
        If I <> J Then
            tmp = tableau(J): tableau(J) = tableau(I): tableau(I) = tmp
        End If
    Next I
 
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("Feuille1")
 
    ValRef = 0
    Cmpt = 1
 
    For i = 1 to x
        if ValRef <> tableau(i) then 
            Cmpt = Cmpt + 1 
            ValRef = tableau(i)
        end if
    Next
 
    ValRef = 0
    j = Cmpt  +20
    For i = 0 to x-1
        maCellule = maFeuille.getCellByPosition(1,j)
        if ValRef <> tableau(i) then
            maCellule.Value = tableau(i)
            ValRef =  tableau(i)
            j = j-1
        end if
    Next
 
    msgbox "Fin"
 
End Sub

[jurassic pork]

Ok merci zoom61, j'ai eu un peu de mal à comprendre ce que tu avais fait , en final je vois bien qu'on arrive à une liste ordonnée des nombres sans doublon. Cela me conforte dans l'idée que par basic ce n'est pas très facile de trier un tableau. Je vais essayer de voir du côté de python qui offre plus de possibilité dans le tri de tableau. Ou alors en réalisant les fonctions de tris dans la feuille.

Ami calmant, J.P

[zoom61]

L'inconvénient de Python est que la fonctionnalité "Macro/Python" n'est pas active sur tous les postes qui sont LibreOffice ou OpenOffice, il est parfois nécessaire d'installer la commande avant. Donc, il faut bien vérifier que cela est possible.

[jurassic pork]

hello,
bon ben finalement j'y suis arrivé avec une macro LibreOffice en Python dont voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
def test_tableau():
    desktop = XSCRIPTCONTEXT.getDesktop()
    calc = desktop.getCurrentComponent()
    sheet = calc.getSheets().getByIndex(0)
    a = sheet.getCellRangeByName("A1:G10")
	# on récupere les data en une seule fois
    plage = a.getDataArray()
	# on crée une liste à une dimension à partir de la plage
    listeNombre = [item for sublist in plage for item in sublist]
	# on classe par ordre croissant les nombres et on enlève les doublons
    matrice = sorted(set(listeNombre))
	# on recrée la plage à partir de la liste triée sans doublon
	# en inversant les lignes et les colonnes
    totallist = []
    for i in range(0,10,1):
        rowlist = []
        for j in range(0,7,1):
            try:
                rowlist.append(matrice[j*7 +i])
	# si matrice[x] n'existe pas on met un élément vide
            except:
                rowlist.append('')
        totallist.append(tuple(rowlist) )  
    # on définit la plage ou on va écrire
    b = sheet.getCellRangeByName("I1:O10")
    # on écrit en une fois la plage résultat
    b.setDataArray(tuple(totallist))
 
g_exportedScripts = test_tableau,

et voici le résultat :


Ami calmant, J.P

[jurassic pork]

Arf ! je viens de constater qu'il y a une erreur dans le résultat certainement due au fait qu'il n'y a pas le même nombre de lignes que de colonnes dans la plage de départ . Donc code à revoir !

Bon , j'ai trouvé l'erreur voici le bout de code corrigé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   totallist = []
    for i in range(0,10,1):
        rowlist = []
        for j in range(0,7,1):
            try:
                rowlist.append(matrice[j*10 +i])
	# si matrice[x] n'existe pas on met un élément vide
            except:
                rowlist.append('')
        totallist.append(tuple(rowlist) )

et voici le résultat :

[CBresso]

Voici une petite fonction pour supprimer les doublons d'un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function unique(maliste()) 
  Dim arr As New Collection, a 
  Dim Tableau() As Variant 
  Dim i As Long 
 
  On Error Resume Next 'Les clés d'une collection doivent être unique
  For Each a In maListe 
     arr.Add a, a 
  Next 
 
  For i = 1 To arr.Count 'les collections commencent à 1
     Tableau(i-1) = arr(i) 'les tableau à 0
     redim preserve Tableau(i) 
  Next 
 unique=Tableau
End function