Discussion :

[Guijack]

Bonjour

Est-il possible de convertir une macro Excel en macro fonctionnant sous Libreoffice

J'ai une macro à vous soumettre, elle permet un tri automatique de la 1ere colonne dans un tableau Excel

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    nom = Target
    [A2:C1000].Sort key1:=[A2]
    [A:A].Find(what:=nom).Select
  End If
End Sub

Cordialement

[Malick]

Une petite recherche sur le net et voici :

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
sub TriRapido
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(6) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ByRows"
args1(0).Value = true
args1(1).Name = "HasHeader"
args1(1).Value = true
args1(2).Name = "CaseSensitive"
args1(2).Value = false
args1(3).Name = "IncludeAttribs"
args1(3).Value = true
args1(4).Name = "UserDefIndex"
args1(4).Value = 0
args1(5).Name = "Col1"
args1(5).Value = 3
args1(6).Name = "Ascending1"
args1(6).Value = true
dispatcher.executeDispatch(document,".uno:DataSort","",0,args1())
end sub

Vous créez un module et vous y copiez le code ci-dessus.
Après cela, vous assignerez la macro à l'événement Ouverture du document de façon à ce que le tri se fasse automatiquement sur la première ligne à chaque ouverture du fichier. Pour cela, vous pouvez suivre la procédure décrite dans cette discussion.

Voici ma base de test qui marche bien :

[Guijack]

Bonjour

une nouvelle fois merci milkoseck pour ta réponse.

Je vais essayer de d’être un peu plus efficace dans mes recherches sur le Net



Cordialement

[Malick]

C'est un plaisir de t'avoir aidé.

@+