[HS][Calc] Le filtre ne reporte pas toutes les lignes

[Sebiou]

Titre modifié pour plus de clarté : Macro que je ne comprend pas et que j'aurais besoin de modifier
Un titre clair et explicite n'est pas pour vous mais pour tous ceux effectuant ensuite des recherches dans ce forum.

Bonjour,

J'ai un soucis avec un tableau que je souhaite pouvoir utiliser à nouveau et sur lequel des macros ont été faite par un ancien collègue qui n'est plus là.

Je vous joint le document.

Etat des plaisanciers.ods

J'aurais souhaité un peu d'aide concernant les macros "Doc_imprimer" et "Regul_places".

Je n'y connais pas grand chose en macro et donc je ne les comprends pas.

J'aimerais que quand je clique sur le bouton "A régulariser" (macro "Regul_places") l'ensemble des lignes qui contiennent "R" ou "Pré" dans la colonne "A" soient ajoutées dans la feuille "Régulariser" et que la feuille soit affichée. Actuellement j'ai des filtres et l'ajout ne fonctionne apparemment pas. Je ne comprends pas pourquoi. Je devrait avoir 37 lignes et je n'ai que 22 lignes.

Concernant la seconde macro, j'aimerais que quand je clique sur le bouton "Liste à imprimer", l'ensemble des lignes qui disposent d'un numéro d'appontement en colonne "F" soient ajoutées à la feuille Impression. Et que la zone d'impression soit définie correctement (éventuellement sur plusieurs pages en conservant l'en-tête. Le pied de page ne doit se trouver que sur la dernière page). Il faudrait également que le total en cellule "A113" soit toujours affiché en lettre.

Si toutefois vous avez un moment pour m'aider ce serait avec plaisir.

Merci d'avance,

Cordialement

[Oukcha]

Bonjour,

(macro "Regul_places")
[...]
Concernant la seconde macro

Merci de créer un sujet par question, avec chacun un titre explicite qui reflète la problématique exposée.

Cordialement

[Dolev]

Bonsoir,

J'aimerais que quand je clique sur le bouton "A régulariser" (macro "Regul_places") l'ensemble des lignes qui contiennent "R" ou "Pré" dans la colonne "A" soient ajoutées dans la feuille "Régulariser" et que la feuille soit affichée. Actuellement j'ai des filtres et l'ajout ne fonctionne apparemment pas. Je ne comprends pas pourquoi. Je devrait avoir 37 lignes et je n'ai que 22 lignes.

A mon tour, je ne comprends pas.
En prenant votre classeur et en filtrant la feuille LISTE sur R ou Pré, je trouve 39 lignes.

Ensuite votre macro Regul_places ne fait aucun filtre :

Code : Tout sélectionner

sub Regul_places
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 = "Nr"
args1(0).Value = 3

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Protect"
args2(0).Value = false

dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args2())

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

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$C$4"

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

rem ----------------------------------------------------------------------
'dim args5(0) as new com.sun.star.beans.PropertyValue
'args5(0).Name = "Protect"
'args5(0).Value = true

'dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args5())
end sub

[Dolev]

Dernière visite : 09 juil. 2024 13:17

Revenu sans faire de retour, que faut-il en penser ?

Si toutefois vous avez un moment pour m'aider ce serait avec plaisir.

Notez que nous aurions plaisir aussi à ce que vous nous donniez les informations demandées pour vous aider

[Bidouille]

Dernière visite : 11 sept. 2024 17:17

Revenu sans apporter de nouvelles informations.
En l'absence, je clôture HS


En cas d'erreur, veuillez lire ce sujet pour une éventuelle réouverture de votre question :
ftopic52748-reouverture-de-question-fermee.html