Conversion d'une macro Excel en macro libreoffice

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:

---

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

:salut:

Une petite recherche sur le net et voici :

Code:

---

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 :

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

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

@+