[Résolu][Calc] réutiliser une procédure dans un même fichier

[daddysnak]

Bonjour,

J'ai écrit une macro qui me permet, sur base de résultats de matches, d'établir le classement des équipes.
La macro démarre en cellule Aa10.
Je voudrais la réutiliser chaque semaine en remplaçant la cellule de départ par celle située 20 lignes plus bas (Aa30,AA50, etc ...)
Lorsque je déplace manuellement mon curseur sur la nouvelle cellule de départ, la macro continue à effectuer ses opérations (copie de zone, tri divers, et affichage) au départ de la cellule Aa10

Quelqu'un peut-il m'aider à résoudre mon problème ?

Merci de vos réponses,

[micmac]

Bonjour,

Pour la bonne tenue de ce forum, veillez à :

1. choisir un titre judicieux débarrassé des termes implicites (macro en l'occurrence)
2. joindre un document permettant de mieux cerner votre problème

Merci de poster cela à la suite

[daddysnak]

Bonjour micmac,

1) Je ne vois pas quels autres mots je pourrais mettre dans le titre pour expliquer ce que je veux faire ... c'est à dire réutiliser dans un même document une macro existante

2) Le fichier dans lequel j'ai créé une macro comporte 416 lignes et 51 colonnes. Difficile de copier le document non ?

Petite question : Je ne dois pas être informé par mail, lorsqu'il y a une réponse ?

[micmac]

"Réutiliser une macro" n'explique pas ce que vous écrivez dans le message. Soyez plus explicite. Ce n'est pas pour vous mais pour les personnes qui feront des recherches sur cette problématique

Personne ne vous a demandé de copier le document.
Joindre la macro et un fichier explicatif ne peut que favoriser la compréhension et donc permettre des réponses adaptées.

Vous serez averti(e) par dès lors que vous aurez cliqué sur "S'abonner au sujet" (en bas de la page)

Capture d’écran 2018-09-22 à 18.37.47.png

[OOo - Ekel]

Bonjour,

Si tu ne veux pas proposer ton fichier, peut-être pourrais-tu publier le code de ta macro. Non ? !

Cordialement.

[daddysnak]

Bonjour OOO,

Voici le code (1126 lignes) et ensuite les explications de ce que je fais avec la macro.
Je vais aller relire les instructions pour joindre les fichiers TAB1 et TAB4 que j'ai créés, et je les poste, le plus vite possible.

Code : Tout sélectionner

REM  *****  BASIC  *****

Sub Main

End Sub


sub Classement_J1
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$AR$7:$AY$16"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$AH$7"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SVD"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
args4(4).Name = "AsLink"
args4(4).Value = false
args4(5).Name = "MoveMode"
args4(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(8) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ByRows"
args5(0).Value = true
args5(1).Name = "HasHeader"
args5(1).Value = false
args5(2).Name = "CaseSensitive"
args5(2).Value = false
args5(3).Name = "NaturalSort"
args5(3).Value = false
args5(4).Name = "IncludeAttribs"
args5(4).Value = true
args5(5).Name = "UserDefIndex"
args5(5).Value = 0
args5(6).Name = "Col1"
args5(6).Value = 34
args5(7).Name = "Ascending1"
args5(7).Value = true
args5(8).Name = "IncludeComments"
args5(8).Value = false

dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args5())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
args7(1).Name = "Sel"
args7(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(1) as new com.sun.star.beans.PropertyValue
args8(0).Name = "By"
args8(0).Value = 1
args8(1).Name = "Sel"
args8(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(1) as new com.sun.star.beans.PropertyValue
args9(0).Name = "By"
args9(0).Value = 1
args9(1).Name = "Sel"
args9(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(1) as new com.sun.star.beans.PropertyValue
args10(0).Name = "By"
args10(0).Value = 1
args10(1).Name = "Sel"
args10(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(1) as new com.sun.star.beans.PropertyValue
args11(0).Name = "By"
args11(0).Value = 1
args11(1).Name = "Sel"
args11(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(1) as new com.sun.star.beans.PropertyValue
args12(0).Name = "By"
args12(0).Value = 1
args12(1).Name = "Sel"
args12(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(1) as new com.sun.star.beans.PropertyValue
args13(0).Name = "By"
args13(0).Value = 1
args13(1).Name = "Sel"
args13(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(1) as new com.sun.star.beans.PropertyValue
args14(0).Name = "By"
args14(0).Value = 1
args14(1).Name = "Sel"
args14(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(1) as new com.sun.star.beans.PropertyValue
args15(0).Name = "By"
args15(0).Value = 1
args15(1).Name = "Sel"
args15(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args15())

rem ----------------------------------------------------------------------
dim args16(1) as new com.sun.star.beans.PropertyValue
args16(0).Name = "By"
args16(0).Value = 1
args16(1).Name = "Sel"
args16(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args16())

rem ----------------------------------------------------------------------
dim args17(1) as new com.sun.star.beans.PropertyValue
args17(0).Name = "By"
args17(0).Value = 1
args17(1).Name = "Sel"
args17(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args17())

rem ----------------------------------------------------------------------
dim args18(1) as new com.sun.star.beans.PropertyValue
args18(0).Name = "By"
args18(0).Value = 1
args18(1).Name = "Sel"
args18(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args18())

rem ----------------------------------------------------------------------
dim args19(1) as new com.sun.star.beans.PropertyValue
args19(0).Name = "By"
args19(0).Value = 1
args19(1).Name = "Sel"
args19(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args19())

rem ----------------------------------------------------------------------
dim args20(1) as new com.sun.star.beans.PropertyValue
args20(0).Name = "By"
args20(0).Value = 1
args20(1).Name = "Sel"
args20(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(1) as new com.sun.star.beans.PropertyValue
args21(0).Name = "By"
args21(0).Value = 1
args21(1).Name = "Sel"
args21(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args21())

rem ----------------------------------------------------------------------
dim args22(5) as new com.sun.star.beans.PropertyValue
args22(0).Name = "Flags"
args22(0).Value = "SVD"
args22(1).Name = "FormulaCommand"
args22(1).Value = 0
args22(2).Name = "SkipEmptyCells"
args22(2).Value = false
args22(3).Name = "Transpose"
args22(3).Value = false
args22(4).Name = "AsLink"
args22(4).Value = false
args22(5).Name = "MoveMode"
args22(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(0) as new com.sun.star.beans.PropertyValue
args23(0).Name = "ToPoint"
args23(0).Value = "$AC$7"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args23())

rem ----------------------------------------------------------------------
dim args24(0) as new com.sun.star.beans.PropertyValue
args24(0).Name = "StringName"
args24(0).Value = "=+AA7/AB7"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args24())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args26(0) as new com.sun.star.beans.PropertyValue
args26(0).Name = "ToPoint"
args26(0).Value = "$AC$7"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args26())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args28(0) as new com.sun.star.beans.PropertyValue
args28(0).Name = "ToPoint"
args28(0).Value = "$AC$8:$AC$16"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args28())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args30(0) as new com.sun.star.beans.PropertyValue
args30(0).Name = "ToPoint"
args30(0).Value = "$W$7:$AD$16"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(12) as new com.sun.star.beans.PropertyValue
args31(0).Name = "ByRows"
args31(0).Value = true
args31(1).Name = "HasHeader"
args31(1).Value = false
args31(2).Name = "CaseSensitive"
args31(2).Value = false
args31(3).Name = "NaturalSort"
args31(3).Value = false
args31(4).Name = "IncludeAttribs"
args31(4).Value = true
args31(5).Name = "UserDefIndex"
args31(5).Value = 0
args31(6).Name = "Col1"
args31(6).Value = 30
args31(7).Name = "Ascending1"
args31(7).Value = false
args31(8).Name = "Col2"
args31(8).Value = 24
args31(9).Name = "Ascending2"
args31(9).Value = false
args31(10).Name = "Col3"
args31(10).Value = 29
args31(11).Name = "Ascending3"
args31(11).Value = false
args31(12).Name = "IncludeComments"
args31(12).Value = false

dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args31())

rem ----------------------------------------------------------------------
dim args32(0) as new com.sun.star.beans.PropertyValue
args32(0).Name = "ToPoint"
args32(0).Value = "$W$16"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args32())

rem ----------------------------------------------------------------------
dim args33(0) as new com.sun.star.beans.PropertyValue
args33(0).Name = "ToPoint"
args33(0).Value = "$W$16:$AD$16"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args33())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args35(0) as new com.sun.star.beans.PropertyValue
args35(0).Name = "ToPoint"
args35(0).Value = "$W$15"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args35())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args37(0) as new com.sun.star.beans.PropertyValue
args37(0).Name = "ToPoint"
args37(0).Value = "$W$7:$AD$15"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args37())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args39(1) as new com.sun.star.beans.PropertyValue
args39(0).Name = "By"
args39(0).Value = 1
args39(1).Name = "Sel"
args39(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args39())

rem ----------------------------------------------------------------------
dim args40(1) as new com.sun.star.beans.PropertyValue
args40(0).Name = "By"
args40(0).Value = 1
args40(1).Name = "Sel"
args40(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args40())

rem ----------------------------------------------------------------------
dim args41(1) as new com.sun.star.beans.PropertyValue
args41(0).Name = "By"
args41(0).Value = 1
args41(1).Name = "Sel"
args41(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args41())

rem ----------------------------------------------------------------------
dim args42(1) as new com.sun.star.beans.PropertyValue
args42(0).Name = "By"
args42(0).Value = 1
args42(1).Name = "Sel"
args42(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args42())

rem ----------------------------------------------------------------------
dim args43(1) as new com.sun.star.beans.PropertyValue
args43(0).Name = "By"
args43(0).Value = 1
args43(1).Name = "Sel"
args43(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args43())

rem ----------------------------------------------------------------------
dim args44(1) as new com.sun.star.beans.PropertyValue
args44(0).Name = "By"
args44(0).Value = 1
args44(1).Name = "Sel"
args44(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args44())

rem ----------------------------------------------------------------------
dim args45(1) as new com.sun.star.beans.PropertyValue
args45(0).Name = "By"
args45(0).Value = 1
args45(1).Name = "Sel"
args45(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args45())

rem ----------------------------------------------------------------------
dim args46(1) as new com.sun.star.beans.PropertyValue
args46(0).Name = "By"
args46(0).Value = 1
args46(1).Name = "Sel"
args46(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args46())

rem ----------------------------------------------------------------------
dim args47(1) as new com.sun.star.beans.PropertyValue
args47(0).Name = "By"
args47(0).Value = 1
args47(1).Name = "Sel"
args47(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args47())

rem ----------------------------------------------------------------------
dim args48(1) as new com.sun.star.beans.PropertyValue
args48(0).Name = "By"
args48(0).Value = 1
args48(1).Name = "Sel"
args48(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args48())

rem ----------------------------------------------------------------------
dim args49(5) as new com.sun.star.beans.PropertyValue
args49(0).Name = "Flags"
args49(0).Value = "SVD"
args49(1).Name = "FormulaCommand"
args49(1).Value = 0
args49(2).Name = "SkipEmptyCells"
args49(2).Value = false
args49(3).Name = "Transpose"
args49(3).Value = false
args49(4).Name = "AsLink"
args49(4).Value = false
args49(5).Name = "MoveMode"
args49(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args49())


end sub



sub J2
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$AR$27:$AY$36"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$AH$27"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SVD"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
args4(4).Name = "AsLink"
args4(4).Value = false
args4(5).Name = "MoveMode"
args4(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(8) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ByRows"
args5(0).Value = true
args5(1).Name = "HasHeader"
args5(1).Value = false
args5(2).Name = "CaseSensitive"
args5(2).Value = false
args5(3).Name = "NaturalSort"
args5(3).Value = false
args5(4).Name = "IncludeAttribs"
args5(4).Value = true
args5(5).Name = "UserDefIndex"
args5(5).Value = 0
args5(6).Name = "Col1"
args5(6).Value = 34
args5(7).Name = "Ascending1"
args5(7).Value = true
args5(8).Name = "IncludeComments"
args5(8).Value = false

dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(1) as new com.sun.star.beans.PropertyValue
args6(0).Name = "By"
args6(0).Value = 1
args6(1).Name = "Sel"
args6(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
args7(1).Name = "Sel"
args7(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(1) as new com.sun.star.beans.PropertyValue
args8(0).Name = "By"
args8(0).Value = 1
args8(1).Name = "Sel"
args8(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(1) as new com.sun.star.beans.PropertyValue
args9(0).Name = "By"
args9(0).Value = 1
args9(1).Name = "Sel"
args9(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(1) as new com.sun.star.beans.PropertyValue
args10(0).Name = "By"
args10(0).Value = 1
args10(1).Name = "Sel"
args10(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(1) as new com.sun.star.beans.PropertyValue
args11(0).Name = "By"
args11(0).Value = 1
args11(1).Name = "Sel"
args11(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(1) as new com.sun.star.beans.PropertyValue
args12(0).Name = "By"
args12(0).Value = 1
args12(1).Name = "Sel"
args12(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(1) as new com.sun.star.beans.PropertyValue
args13(0).Name = "By"
args13(0).Value = 1
args13(1).Name = "Sel"
args13(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(1) as new com.sun.star.beans.PropertyValue
args14(0).Name = "By"
args14(0).Value = 1
args14(1).Name = "Sel"
args14(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(1) as new com.sun.star.beans.PropertyValue
args15(0).Name = "By"
args15(0).Value = 1
args15(1).Name = "Sel"
args15(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args15())

rem ----------------------------------------------------------------------
dim args16(1) as new com.sun.star.beans.PropertyValue
args16(0).Name = "By"
args16(0).Value = 1
args16(1).Name = "Sel"
args16(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args16())

rem ----------------------------------------------------------------------
dim args17(0) as new com.sun.star.beans.PropertyValue
args17(0).Name = "ToPoint"
args17(0).Value = "$W$27:$AD$36"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args17())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args19(1) as new com.sun.star.beans.PropertyValue
args19(0).Name = "By"
args19(0).Value = 1
args19(1).Name = "Sel"
args19(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args19())

rem ----------------------------------------------------------------------
dim args20(1) as new com.sun.star.beans.PropertyValue
args20(0).Name = "By"
args20(0).Value = 1
args20(1).Name = "Sel"
args20(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(1) as new com.sun.star.beans.PropertyValue
args21(0).Name = "By"
args21(0).Value = 1
args21(1).Name = "Sel"
args21(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args21())

rem ----------------------------------------------------------------------
dim args22(1) as new com.sun.star.beans.PropertyValue
args22(0).Name = "By"
args22(0).Value = 1
args22(1).Name = "Sel"
args22(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(1) as new com.sun.star.beans.PropertyValue
args23(0).Name = "By"
args23(0).Value = 1
args23(1).Name = "Sel"
args23(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args23())

rem ----------------------------------------------------------------------
dim args24(1) as new com.sun.star.beans.PropertyValue
args24(0).Name = "By"
args24(0).Value = 1
args24(1).Name = "Sel"
args24(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args24())

rem ----------------------------------------------------------------------
dim args25(1) as new com.sun.star.beans.PropertyValue
args25(0).Name = "By"
args25(0).Value = 1
args25(1).Name = "Sel"
args25(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args25())

rem ----------------------------------------------------------------------
dim args26(1) as new com.sun.star.beans.PropertyValue
args26(0).Name = "By"
args26(0).Value = 1
args26(1).Name = "Sel"
args26(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args26())

rem ----------------------------------------------------------------------
dim args27(1) as new com.sun.star.beans.PropertyValue
args27(0).Name = "By"
args27(0).Value = 1
args27(1).Name = "Sel"
args27(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args27())

rem ----------------------------------------------------------------------
dim args28(1) as new com.sun.star.beans.PropertyValue
args28(0).Name = "By"
args28(0).Value = 1
args28(1).Name = "Sel"
args28(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args28())

rem ----------------------------------------------------------------------
dim args29(1) as new com.sun.star.beans.PropertyValue
args29(0).Name = "By"
args29(0).Value = 1
args29(1).Name = "Sel"
args29(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args29())

rem ----------------------------------------------------------------------
dim args30(1) as new com.sun.star.beans.PropertyValue
args30(0).Name = "By"
args30(0).Value = 1
args30(1).Name = "Sel"
args30(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(5) as new com.sun.star.beans.PropertyValue
args31(0).Name = "Flags"
args31(0).Value = "SVD"
args31(1).Name = "FormulaCommand"
args31(1).Value = 0
args31(2).Name = "SkipEmptyCells"
args31(2).Value = false
args31(3).Name = "Transpose"
args31(3).Value = false
args31(4).Name = "AsLink"
args31(4).Value = false
args31(5).Name = "MoveMode"
args31(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args31())

rem ----------------------------------------------------------------------
dim args32(0) as new com.sun.star.beans.PropertyValue
args32(0).Name = "ToPoint"
args32(0).Value = "$S$27"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args32())

rem ----------------------------------------------------------------------
dim args33(0) as new com.sun.star.beans.PropertyValue
args33(0).Name = "StringName"
args33(0).Value = "+Q27/R27"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args33())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args35(0) as new com.sun.star.beans.PropertyValue
args35(0).Name = "ToPoint"
args35(0).Value = "$S$27"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args35())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args37(0) as new com.sun.star.beans.PropertyValue
args37(0).Name = "ToPoint"
args37(0).Value = "$S$28:$S$36"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args37())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args39(0) as new com.sun.star.beans.PropertyValue
args39(0).Name = "ToPoint"
args39(0).Value = "$M$27:$T$36"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args39())

rem ----------------------------------------------------------------------
dim args40(12) as new com.sun.star.beans.PropertyValue
args40(0).Name = "ByRows"
args40(0).Value = true
args40(1).Name = "HasHeader"
args40(1).Value = false
args40(2).Name = "CaseSensitive"
args40(2).Value = false
args40(3).Name = "NaturalSort"
args40(3).Value = false
args40(4).Name = "IncludeAttribs"
args40(4).Value = true
args40(5).Name = "UserDefIndex"
args40(5).Value = 0
args40(6).Name = "Col1"
args40(6).Value = 20
args40(7).Name = "Ascending1"
args40(7).Value = false
args40(8).Name = "Col2"
args40(8).Value = 14
args40(9).Name = "Ascending2"
args40(9).Value = false
args40(10).Name = "Col3"
args40(10).Value = 19
args40(11).Name = "Ascending3"
args40(11).Value = false
args40(12).Name = "IncludeComments"
args40(12).Value = false

dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args40())

rem ----------------------------------------------------------------------
dim args41(0) as new com.sun.star.beans.PropertyValue
args41(0).Name = "ToPoint"
args41(0).Value = "$M$27"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args41())


end sub

sub J3
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$AR$47:$AY$56"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$AH$47"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SVD"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
args4(4).Name = "AsLink"
args4(4).Value = false
args4(5).Name = "MoveMode"
args4(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(8) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ByRows"
args5(0).Value = true
args5(1).Name = "HasHeader"
args5(1).Value = false
args5(2).Name = "CaseSensitive"
args5(2).Value = false
args5(3).Name = "NaturalSort"
args5(3).Value = false
args5(4).Name = "IncludeAttribs"
args5(4).Value = true
args5(5).Name = "UserDefIndex"
args5(5).Value = 0
args5(6).Name = "Col1"
args5(6).Value = 34
args5(7).Name = "Ascending1"
args5(7).Value = true
args5(8).Name = "IncludeComments"
args5(8).Value = false

dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(1) as new com.sun.star.beans.PropertyValue
args6(0).Name = "By"
args6(0).Value = 1
args6(1).Name = "Sel"
args6(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
args7(1).Name = "Sel"
args7(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(1) as new com.sun.star.beans.PropertyValue
args8(0).Name = "By"
args8(0).Value = 1
args8(1).Name = "Sel"
args8(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(1) as new com.sun.star.beans.PropertyValue
args9(0).Name = "By"
args9(0).Value = 1
args9(1).Name = "Sel"
args9(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(1) as new com.sun.star.beans.PropertyValue
args10(0).Name = "By"
args10(0).Value = 1
args10(1).Name = "Sel"
args10(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(1) as new com.sun.star.beans.PropertyValue
args11(0).Name = "By"
args11(0).Value = 1
args11(1).Name = "Sel"
args11(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(1) as new com.sun.star.beans.PropertyValue
args12(0).Name = "By"
args12(0).Value = 1
args12(1).Name = "Sel"
args12(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(1) as new com.sun.star.beans.PropertyValue
args13(0).Name = "By"
args13(0).Value = 1
args13(1).Name = "Sel"
args13(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(1) as new com.sun.star.beans.PropertyValue
args14(0).Name = "By"
args14(0).Value = 1
args14(1).Name = "Sel"
args14(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(1) as new com.sun.star.beans.PropertyValue
args15(0).Name = "By"
args15(0).Value = 1
args15(1).Name = "Sel"
args15(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args15())

rem ----------------------------------------------------------------------
dim args16(1) as new com.sun.star.beans.PropertyValue
args16(0).Name = "By"
args16(0).Value = 1
args16(1).Name = "Sel"
args16(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args16())

rem ----------------------------------------------------------------------
dim args17(1) as new com.sun.star.beans.PropertyValue
args17(0).Name = "By"
args17(0).Value = 1
args17(1).Name = "Sel"
args17(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args17())

rem ----------------------------------------------------------------------
dim args18(1) as new com.sun.star.beans.PropertyValue
args18(0).Name = "By"
args18(0).Value = 1
args18(1).Name = "Sel"
args18(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args18())

rem ----------------------------------------------------------------------
dim args19(1) as new com.sun.star.beans.PropertyValue
args19(0).Name = "By"
args19(0).Value = 1
args19(1).Name = "Sel"
args19(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args19())

rem ----------------------------------------------------------------------
dim args20(1) as new com.sun.star.beans.PropertyValue
args20(0).Name = "By"
args20(0).Value = 1
args20(1).Name = "Sel"
args20(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(1) as new com.sun.star.beans.PropertyValue
args21(0).Name = "By"
args21(0).Value = 1
args21(1).Name = "Sel"
args21(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args21())

rem ----------------------------------------------------------------------
dim args22(1) as new com.sun.star.beans.PropertyValue
args22(0).Name = "By"
args22(0).Value = 1
args22(1).Name = "Sel"
args22(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(1) as new com.sun.star.beans.PropertyValue
args23(0).Name = "By"
args23(0).Value = 1
args23(1).Name = "Sel"
args23(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args23())

rem ----------------------------------------------------------------------
dim args24(1) as new com.sun.star.beans.PropertyValue
args24(0).Name = "By"
args24(0).Value = 1
args24(1).Name = "Sel"
args24(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args24())

rem ----------------------------------------------------------------------
dim args25(1) as new com.sun.star.beans.PropertyValue
args25(0).Name = "By"
args25(0).Value = 1
args25(1).Name = "Sel"
args25(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args25())

rem ----------------------------------------------------------------------
dim args26(1) as new com.sun.star.beans.PropertyValue
args26(0).Name = "By"
args26(0).Value = 1
args26(1).Name = "Sel"
args26(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args26())

rem ----------------------------------------------------------------------
dim args27(1) as new com.sun.star.beans.PropertyValue
args27(0).Name = "By"
args27(0).Value = 1
args27(1).Name = "Sel"
args27(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args27())

rem ----------------------------------------------------------------------
dim args28(1) as new com.sun.star.beans.PropertyValue
args28(0).Name = "By"
args28(0).Value = 1
args28(1).Name = "Sel"
args28(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args28())

rem ----------------------------------------------------------------------
dim args29(0) as new com.sun.star.beans.PropertyValue
args29(0).Name = "ToPoint"
args29(0).Value = "$W$47:$AD$53"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args29())

rem ----------------------------------------------------------------------
dim args30(0) as new com.sun.star.beans.PropertyValue
args30(0).Name = "ToPoint"
args30(0).Value = "$AD$56"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(0) as new com.sun.star.beans.PropertyValue
args31(0).Name = "ToPoint"
args31(0).Value = "$AD$56"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args31())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Undo", "", 0, Array())

rem ----------------------------------------------------------------------
dim args33(0) as new com.sun.star.beans.PropertyValue
args33(0).Name = "ToPoint"
args33(0).Value = "$W$47:$AD$56"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args33())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args35(0) as new com.sun.star.beans.PropertyValue
args35(0).Name = "ToPoint"
args35(0).Value = "$M$47"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args35())

rem ----------------------------------------------------------------------
dim args36(5) as new com.sun.star.beans.PropertyValue
args36(0).Name = "Flags"
args36(0).Value = "SVD"
args36(1).Name = "FormulaCommand"
args36(1).Value = 0
args36(2).Name = "SkipEmptyCells"
args36(2).Value = false
args36(3).Name = "Transpose"
args36(3).Value = false
args36(4).Name = "AsLink"
args36(4).Value = false
args36(5).Name = "MoveMode"
args36(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args36())

rem ----------------------------------------------------------------------
dim args37(12) as new com.sun.star.beans.PropertyValue
args37(0).Name = "ByRows"
args37(0).Value = true
args37(1).Name = "HasHeader"
args37(1).Value = false
args37(2).Name = "CaseSensitive"
args37(2).Value = false
args37(3).Name = "NaturalSort"
args37(3).Value = false
args37(4).Name = "IncludeAttribs"
args37(4).Value = true
args37(5).Name = "UserDefIndex"
args37(5).Value = 0
args37(6).Name = "Col1"
args37(6).Value = 20
args37(7).Name = "Ascending1"
args37(7).Value = false
args37(8).Name = "Col2"
args37(8).Value = 14
args37(9).Name = "Ascending2"
args37(9).Value = false
args37(10).Name = "Col3"
args37(10).Value = 19
args37(11).Name = "Ascending3"
args37(11).Value = false
args37(12).Name = "IncludeComments"
args37(12).Value = false

dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args37())

rem ----------------------------------------------------------------------
dim args38(0) as new com.sun.star.beans.PropertyValue
args38(0).Name = "ToPoint"
args38(0).Value = "$M$47"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args38())

rem ----------------------------------------------------------------------
dim args39(0) as new com.sun.star.beans.PropertyValue
args39(0).Name = "ToPoint"
args39(0).Value = "$S$47"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args39())

rem ----------------------------------------------------------------------
dim args40(0) as new com.sun.star.beans.PropertyValue
args40(0).Name = "StringName"
args40(0).Value = "+Q47/R47"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args40())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args42(0) as new com.sun.star.beans.PropertyValue
args42(0).Name = "ToPoint"
args42(0).Value = "$S$47"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args42())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args44(0) as new com.sun.star.beans.PropertyValue
args44(0).Name = "ToPoint"
args44(0).Value = "$S$48:$S$56"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args44())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args46(0) as new com.sun.star.beans.PropertyValue
args46(0).Name = "ToPoint"
args46(0).Value = "$S$56"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args46())

rem ----------------------------------------------------------------------
dim args47(0) as new com.sun.star.beans.PropertyValue
args47(0).Name = "StringName"
args47(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args47())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())


end sub

Explications :

Pour la macro J2,
1) J'ai un tableau de résultats de matches (de D26 à I30)
2) le TAB1 collecte les infos du tableau de résultats. (zone de AR27 à AY36)
3) la macro réalise les opérations suivantes :
3.1) copie le TAB1 dans TAB2
3.2) trie TAB2 sur l'ordre alphabétique croissant des noms de clubs
Le TAB3 totalise automatiquement (dans l'ordre alphabétique des clubs) le classement cumulé à l'issue de la journée précédente et la journée en cours. La macro n'intervient pas pour cette opération.
3.3) copie TAB3 dans TAB4
3.4) ajoute la formule de calcul du quotient dans la colonne %
3.5) trie les données du TAB4 sur l'ordre décroissant suivant : 1 - pts , 2 - J, 3 - %

J'obtiens ainsi le classement à l'issue de la journée.

[daddysnak]

Voici les 2 tableaux annoncés. J'ai oublié de préciser que j'utilisais Calc de LibreOffice.
Ne sachant pas comment transférer les 2 tableaux , j'ai fait un copier/coller.

TAB1

CLASSEMENT DE LA JOURNEE AVANT TRI

CLASSEMENT J G P + - % Pts

Elan Fexhe B.C. 0 0 0 0 0 0
B.C. Verlaine Corpo 0 0 0 0 0 0
Buffalo 1 0 1 62 67 1
Les Jesylois 1 1 0 67 62 3
B.C. Pompiers Lg. 1 1 0 68 60 3
Angels 1 0 1 60 68 1
B.C. Dalhem 0 0 0 0 0 0
BYE 0 0 0 0 0 0
RCSPL 1 1 0 83 66 3
Mailleux Comblain BC 1 1 0 66 83 3


TAB 4 – CTRL C de TAB 3 , puis CTRL/ALT/V dans TAB4
Ajouter formule % puis trier sur Pts-J- % décroissants


CLASSEMENT J G P + - % Pts

1 Les Jesylois 2 2 0 172 108 1,593 6
2 B.C. Pompiers Lg. 2 2 0 143 117 1,222 6
3 Mailleux Comblain BC 2 2 0 155 131 1,183 6
4 RCSPL 1 1 0 83 66 1,258 3
5 Buffalo 2 0 2 119 142 0,838 2
7 Angels 1 0 1 60 68 0,882 1
6 B.C. Verlaine Corpo 1 0 1 48 89 0,539 1
8 Elan Fexhe B.C. 1 0 1 46 105 0,438 1
9 B.C. Dalhem 0 0 0 0 0 0,000 0
BYE 0 0 0 0 0 0,000 0

J'espère que ceci aidera à la compréhension de ce que je fais.

Mais je rappelle que ma demande est : Comment utiliser cette même macro pour les autres journées de la compétition ?
Actuellement, je reconstruis les macros J2,J3, etc jusque J18 à l'aide de l'enregistreur de macros.

Merci de vos conseils,

[daddysnak]

Bonjour Micmac,

Je ne veux pas ergoter, mais c'est vous qui me dites de joindre un fichier .

Je suis âgé de 81 ans et j'ai difficile de me souvenir des procédures pour utiliser correctement le forum. Ainsi, je n'ai pas trouvé (parce que j'ai mal cherché probablement) la procédure pour joindre les TAB1 et TAB4 . J'ai donc fait un simple copier/coller.

J'ai cliqué sur "S'abonner au sujet"

Bonne journée,

[OOotremer971]

Bonjour daddysnak

Mais je rappelle que ma demande est : Comment utiliser cette même macro pour les autres journées de la compétition ?

Il ne s'agit pas là d'une macro écrite par un individu mais réalisée avec l'enregistreur de macro. De fait aucune souplesse adaptation n'est possible simplement. En gros tout est taillé dans le marbre. Il faut donc tout réécrire pour obtenir une exécution adaptée à l'évolution du fichier.
De mon point de vue, le plus simple est de travailler différemment :
Puisque la macro effectue son traitement toujours au même endroit, il suffit donc de consacrer la feuille sur laquelle elle travaille au traitement des nouvelles données à traiter.
Une fois le traitement effectué, couper/coller manuellement le résultat du traitement obtenu sur une feuille dédiée.
Lorsque de nouvelles données sont à traiter, recommencer l'opération sur la feuille dédiée au traitement.

@+

[daddysnak]

Bonsoir OOotremer971

Votre suggestion suppose que je reparte sur une autre voie . Peut-être l'année prochaine ?

Mais pour cette année, mon tableau des 18 journées est réalisé dans la même feuille . Dans chaque journée, il y a un des 4 tableaux qui est calculé au départ du même tableau calculé la semaine précédente, en y ajoutant les résultats de la journée.

Exemple :
Les résultats de la journée 2 sont ajoutés aux résultats de la journée 1 pour obtenir le classement cumulé. Mais si je ramène les résultats de la journée 3 aux mêmes coordonnées que ceux de la journée 2, le cumul se fera entre la journée 1 et la journée 3.

Et donc je vais réécrire la macro pour chaque journée Cela ne me prend pas beaucoup de temps. C'était pour une question de facilité.

Merci d'avoir répondu à LA QUESTION de mon post. Je vais donc le clôturer en indiquant RESOLU.

[daddysnak]

Bonjour,

J'ai pu créer les macros des 18 journées + les 3 journées de remises. J'ai donc maintenant un module qui comprend les 21 macros.

La macro J1 diffère de toutes les autres qui elles font toujours les mêmes opérations, mais avec un point de départ différent pour chaque macro

Pour lancer n'importe laquelle de ces 21 macros, je dois appliquer la séquence suivante au clavier :
ALT O puis ALT M puis ALT O puis ALT B
J'obtiens ainsi la lise des macros.
Est-il possible de mettre ces instructions dans une macro que j'assignerais à une combinaison de touches du clavier (ALT-Maj-W par exemple ?

Merci de votre aide,

[Churay]

Bonjour,

Ne sachant pas comment transférer les 2 tableaux

Quand tu prépares ta réponse, en-dessous de la zone de saisie, il y a un lien Transférer un pièce jointe qui ouvre une nousvelle zone de saisie, avec un lien Parcourir qui permet de sélectronner le fichier à joindre, après quoi un click sur le bouton [Ajouter le fichier] fait le job.

l faut donc tout réécrire

Pour ce faire, une vue d'ensemble du fichier est nécessaire pour que ce soit optimum.

[daddysnak]

Bonjour Churay,

Je dois joindre le classeur ?

Ou seulement le code ? (et dans ce cas, comment je le "prélève" ?

[Churay]

Le classeur entier afin de voir sa structure

[daddysnak]

voilà ....

Je suis absent jusque demain lundi en cours de matinée.

Pour rappel :

- ce que je voudrais savoir c'est si c'est possible de créer une macro me permettant d'arriver (par clic simultané de 3 touches - Alt + Maj + W) au menu des 21 macros.

ILBB Saison 18-19 - Resultats Classement et programme.ods

[Bidouille]

"Réutiliser une macro" n'explique pas ce que vous écrivez dans le message. Soyez plus explicite.

Si le titre n'est pas corrigé comme on vous l'a demandé par deux fois, je verrouille.

[daddysnak]

J'ai modifié le titre dans le msg initial. C'est bon comme ça ?

[daddysnak]

Bonne nouvelle !

En cherchant patiemment j'ai découvert que la combinaison des touches ALT et F11 me permet d'afficher le panneau des macros.
Ma demande à ce sujet est donc résolue.

Reste l'utilisation d'une seule macro pour effectuer l'opération hebdomadaire de classement, au lieu d'utiliser successivement les 21 macros, semblables sauf pour les "points de départ" de chaque action.

[gerardmarquer]

Bonjour à tous et bonjour daddysnak !!!!

Attention !!! Pasque quand Bidouille verrouille, c'est pas d'la tarte !!!

Après avoir été longtemps seulement demandeur et consommateur sur ce Forum, je me sens enfin capable de contribuer à apporter des solutions aux problèmes posés par les uns et les autres.

Si j'ai bien compris la situation, vous n'êtes pas très expérimenté en matière de programmation en BASIC puisque vous utilisez des macros créées via l'enregistreur de macros. L'inconvénient de ces macros c'est qu'elles sont lourdes à l'exécution et difficiles à lire et à comprendre.

Je vous propose les solutions suivantes que je pourrais mettre en place pour vous aider :
- 1 : installer un menu de commandes dans lequel vous pourriez choisir l'opération à effectuer (y compris l'ouverture de l'éditeur du code).
- 2 : remplacer les macros enregistrées par de vraies fonctions écrites en vrai BASIC "con la mano"
- 3 : réduire toutes vos macros à une seule qui saurait l'endroit où elle doit travailler simplement par lecture de la cellule courante dans laquelle vous auriez au préalable placé le pointeur de cellule pour lui dire : "C'est là qu'il faut que tu bosses"

Dites-moi ce que vous pensez de ma proposition

[daddysnak]

Bonjour gerardmarquer

Très heureux de votre proposition

Pour info, j'ai programmé en Basic il y a 30 ans (une éternité !) mais tout cela est tellement loin au fond de ma mémoire ....

- 3 : réduire toutes vos macros à une seule qui saurait l'endroit où elle doit travailler simplement par lecture de la cellule courante dans laquelle vous auriez au préalable placé le pointeur de cellule pour lui dire : "C'est là qu'il faut que tu bosses"

C'est exactement ce que je souhaite .... et bien entendu vos 2 autres suggestions sont les bienvenues

Je viens sur l'ordi tous les jours matin. Donc j'attends (im)patiemment de vos nouvelles.

Bonne journée,

[gerardmarquer]

Super !!!

Mais comme je n'ai pas envie de me casser la tête à comprendre ce que font vos macros, comment sont organisées vos données et quels traitements vous effectuez dessus, je vous invite à ajouter de nombreux commentaires dans le code de vos macros et à rédiger un texte explicatif le plus clair possible que vous joindrez à votre application dans un prochain message et je me ferai alors un plaisir de remplir ma promesse !!!

[daddysnak]

Bonjour,

Je vais me mettre au travail dès le début de la semaine prochaine.

Je commenterai la macro J1 et la macro J2 (toutes les autres macros ne sont que des copies de la J2)

J'ajouterai également un texte explicatif. Vous souhaitez que je remette le fichier également à ce moment-là ?

Je pense que je devrais pouvoir satisfaire vos souhaits pour fin du mois. (Bien que pensionné, j'ai une vie très active)

A bientôt,

[daddysnak]

Bonjour gerardmarquer,

Voici les explications souhaitées .... du moins j'espère que cela vous convient

Le fichier que j’ai joint à l’un de mes précédents msg est destiné à obtenir, après chaque journée de compétition, le classement d’un championnat de basket disputé par un maximum de 10 équipes . La saison 2018-2019 est jouée par 9 équipes, et il y a donc un « BYE »
N’ayant plus qu’une connaissance très limitée des macros (j’en ai réalisées il y a plus de 30 ans !) j’ai utilisé l’enregistreur de macros pour faire fonctionner ces procédures hebdomadaires.
Grâce à ce système, lorsque j’ai introduit les résultats, je lance la macro de la journée facilement : ALT/F11 puis clic sur le nom de la macro de la journée.
Je peux ensuite copier le tableau cumulé (TAB4) dans un fichier de publication, que je transmets au responsable de la page internet de l’association (ILBB)

Chaque journée se compose d’un tableau des résultats, et de 4 tableaux de calculs.
J’ai nommé les macros de J1 à J18, plus des macros R1 à R6 (pour les week-ends consacrés aux …. remises. )
Toutes les macros (à l’exception de la macro J1) effectuent les mêmes opérations, (copies, additions, tris) , mais les cellules de référence sont différentes à chaque macro.
J’ai donné à chaque tableau les noms de TAB1 à TAB4.
Les couleurs utilisées me facilitaient le déplacement dans le fichier (mais elles peuvent être supprimées sans souci)

Voici les explications pour la macro J2 : (après avoir introduit les résultats dans les cellules H27à I31)

- Placement du curseur en cellule AR27.
- Sélection de la zone AR27 : AY36 (TAB1)
- Copie de cette zone en AH27.
- Tri alphabétique croissant de la zone AH27 : AO36 sur la colonne AH.
- Le tableau TAB3 est un cumul automatique du TAB2 de la J2 et du TAB3 de la J1
- Déplacement du curseur en W27
- Sélection de la zone W27 : AD36 (TAB3)
- Copie de cette zone en M27.
- Calcul du pourcentage en cellules S27 à S36
- Tri décroissant de la zone M27 : T36 avec comme critères de tri successifs les 3 colonnes T, N, S.

La macro J3 fonctionne exactement de la même manière, mais démarre en AR47.
Et ainsi de suite pour toutes les macros, avec un espacement de 20 lignes dans le fichier (AR67, AR87, etc. ) jusqu’à la macro J18 qui démarre en AR507.

Pour la macro J1, la différence est qu’il ne faut pas procéder a un cumul dans le TAB3.

J’espère que ces explications vous aideront à comprendre le code.

Je reste à votre disposition.

[gerardmarquer]

Ok daddysnak !!!

Je finis un boulot urgent de mise en page d'images pour une de mes filles et, dès que c'est fini, je m'attaque à votre Application.

Peut-être aurai-je à vous obliger à plusieurs petites choses :
- stocker quelques modules dans votre bibliothèque globale standard (si vous ne l'avez jamais fait je vous enverrai un document qui fait ça automatiquement)
ce n'est pas très encombrant et c'est bien pratique
- adopter une certaine organisation de dossiers (sur 2 niveaux) pour le dossier où sera enregistré votre document

Voulez-vous me décrire la branche de l'arborescence de vos dossiers où est actuellement stocké votre fichier.

Nous ne travaillons pas exactement sous le même environnement, mais on y arrivera bien quand même !!!

[daddysnak]

Bonjour gerardmarquer,

Super la rapidité de votre réponse !

Voici une image de l'arborescence des dossiers menant à mon fichier. J'espère que c'est bien cela que vous souhaitez.
N.B. Je travaille avec LibreOffice Version: 6.0.6.2 (x64)

"ILBB Saison 18-19 - Résultats Classement et programme.ods"

image arborescence dossiers.doc

Sur le site dédié à OpenOffice et dérivés, merci de joindre des documents au format ODF.
Les formats images sont acceptés en pièces jointes. Inutile, donc, de les insérer dans un document de traitement de textes.

Bonne journée,

[gerardmarquer]

Merci !!! ça me va !!!

[daddysnak]

Bonjour gerardmarquer,

Un petit coucou pour savoir si vous avancez dans mon problème ...

Ceci dit sans vouloir vous presser, mais impatient de voir si la solution suggérée est réalisable.

[daddysnak]

Bonjour,

N'ayant plus de nouvelles de gerardmarquer, je me permets de relancer ma demande d'aide sur le sujet.

Pour rappel :

- J'ai créé un programme de classement pour une association de basket-ball.
- J'ai d'abord utilisé l'enregistreur de macros pour créer les macros 1 et 2.
- J'ai ensuite recopié puis modifié la macro 2 pour créer les macros suivantes (une 20taine de macros)
- gerardmarquer a proposé de remplacer les macros 2 et suivantes par une seule macro (voir sa réponse) .
- Bien qu'ayant programmé il y a + de 30 ans, je n'ai plus les notions suffisantes pour effectuer ce travail
- Je souhaite donc avoir l'aide d'un-e membre pour réaliser cette modification.
- Je ne demande pas nécessairement que le travail soit fait par ce ou cette membre.

Je reste à l'écoute de vos conseils.

Bonne journée,

[gerardmarquer]

Salut à tous !!!

Pardon pour mon retard et la longue attente que j'ai imposée à notre ami Daddy, mais, comme je l'avais expliqué à la fin de l'année dernière, j'étais bien occupé avec une tâche méticuleuse pour une de mes filles (constitution d'un photo-langage pour son boulot) et... c'est qu'elle était exigeante la môme !!! Bon !!! Pas de regrets, ce boulot exigeant un max de qualité n'en était que plus passionnant !!!

Mais je n'ai pas oublié ma promesse !!! Rose promise, Chômdû, comme disait Coluche !!!

Je me suis installé un LibreOffice sous Windows et je vais enfin pouvoir me pencher efficacement sur la question !!!

Bien amicalement à tous, Gérard.

[gerardmarquer]

Le 06 Avril 2019

Bonjour à Tous !!!

Et Oilà, A Y Est !!!

Après deux mois d'échanges intenses, de mises au point, d'essais et tests, notre Application est quasiment au point !!!
On effectue les dernières vérifications, les derniers tests et on publie très bientôt !!!

===================================================================================
Bonjour à Tous !!!

Voilà 1 mois et demi que nous avons, DaddySnack et moi, peu à peu, à force d'échanges fructueux, mis sur pied une Application intéressante et fort utile.
Elle est opérationnelle depuis plusieurs semaines aussi bien sous Windows que sous Linux et Daddy Snack avait proposé qu'on en publie ici le résultat mais j'ai préféré être sûr auparavant que nous n'aurions plus de grosses modifs à effectuer et que les dernières modifs soient complètement testées et vérifiées. Ce sera pour bientôt.

Bien cordialement à tous !!!

===================================================================================
Le 02 Février 2019

Bonjour Daddy Snack !!!

Je suis enfin disponible et j'attaque !!!

Si j'ai des questions, je viendrai les poser ici !!!

A moins que...

Pour ne pas encombrer ce forum, pourriez-vous m'écrire directement sur mon @ mail personnelle : gerard.marquer[à]xxxxx

Pas d’adresse courriel en clair sur un forum !!!

J'espère que cette pratique n'est pas en contradiction avec la déontologie du Forum !!!

Bien cordialement
===================================================================================
Quelques heures plus tard :

J'ai bien progressé :
Le code que j'ai écrit contient maintenant un menu de commandes, quelques utilitaires récupéreés dans ma bibole globale et les procédures (encore incomplètes) permettant d'obtenir :
- le T1 à partir du T0 (colonnes D à I)
- et, de proche en proche, les T2, T3 et T4 à partir du T1

J'ai essayé de comprendre ce que font les macros que vous avez jointes dans votre message du 23 Sep 2018 à 11:51...
mais c'est vraiment totalement incompréhensible pour moi et je préfère infiniment vos explications en bon langage françoué !!!

J'ai 5 questions :
1) Qu'est-ce qu'un "Bye" ???
2) Il semble qu'une partie des informations du TAB 1 (la liste des équipes + d'autres infos) soient obtenue à partir des infos contenues dans le 1er tableau (en colonnes D à I)... Par quelle méthode ???
3) Ce serrait bien commode si on pouvait avoir dans T1 la liste complète des équipes, même celles qui n'ont pas joué ce jour là !!!
4) Je pense qu'il doit y avoir une erreur dans la formule entrée dans la cellule AS8 : Elle est la même qu'en AS7 : "=+SI(AV7+AW7=0;0;1)"
Je l'ai corrigée en "=+SI(AV8+AW8=0;0;1)" et par bonheur, le résultat est resté le même !!!
On retrouve la même erreur un peu plus loin mais pas systématiquement :
Oui en lignes 28, 88, 108, 128, 148 et jusqu'à la fin
Non en lignes 48, 68
Je me suis aperçu de cette erreur en voulant remplacer dans le TAB1 toutes les formules-feuilles par des formules programmées dans le Code BASIC.
J'ai dû procéder à cette substitution parce que la présence de formules dans les tableaux perturbait la procédure de recopie d'un tableau sur l'autre
J'ai donc répondu tout seul, comme un grand, à ma question n°2
5) Dans le tableau TAB 4, les équipes sont classées par ordre décroissant de leur nombre de points
mais les ex-aequo sont-ils listés au hasard ou bien y a-t-il une règle pour les ordonner ???
Bien cordialement