[Résolu] Audits

[Bruno Le Clainche]

Bonjour,
J'utilise depuis peu les audits pour vérifier les totaux de tableur (en l'occurence le budget de la Commune).

Ce mécanisme est très pratique pour éviter que des lignes ne soient oubliées dans les sommes (insertion tardive d'une 1ère ou dernière ligne dans la série). Ces totaux sont eux-même totalisés entre eux pour arriver à un total final.

Le problème : Les zones d'audit sont toutes matérialisées de la même mainère (point et trait bleu) ce qui rend l'analyse difficile quand on a plusieur types de zones auditées simultanément (totaux et totaux de totaux).

Est-il possible de définir par exemple différentes couleurs à la matérialisation des zones auditées (une pour les totaux et une autre pour les totaux de totaux) ?

Merci d'avance

[Pierre-Yves Samyn]

Bonjour

Ci-dessous 2 procédures mettant en couleur (rouge ou défaut) les objets de dessin (comprenant donc les repères d'audit).

Ces procédures ne font que montrer comment gérer la couleur.
"Bouclant" sur tous les objets, pour être utilisables dans ce contexte, il faut demander tous les audits d'un type, lancer la colorisation, puis tous les audits d'un autre type, etc.

Code : Tout sélectionner

sub PysAuditRouge
dim PysClasseur as Object, PysFeuilleActive as Object
dim i as integer
PysClasseur = thisComponent
PysFeuilleActive=PysClasseur.currentController.activeSheet
for i= 0 to PysFeuilleActive.DrawPage.count-1
	PysFeuilleActive.DrawPage(i).LineColor=16711680
next i
end sub

sub PysAuditDefaut
dim PysClasseur as Object, PysFeuilleActive as Object
dim i as integer
PysClasseur = thisComponent
PysFeuilleActive=PysClasseur.currentController.activeSheet
for i= 0 to PysFeuilleActive.DrawPage.count-1
	PysFeuilleActive.DrawPage(i).LineColor=255
next i
end sub

[Bruno Le Clainche]

Merci

[Pierre-Yves Samyn]

D'autres trouveront peut-être d'autres solutions mais si tu trouves ton problème résolu, je crois qu'il est demandé de l'indiquer dans le titre de ton premier post...

[Bruno Le Clainche]

La macro colorise tous les audits de la même manière.

J'ai essayé de plusieurs manières en sélectionnant telle ou telle mais, tous les audits ont été colorisés.

Il doit y avoir un truc que j'ai pas compris.

[Pierre-Yves Samyn]

Comme indiqué :

Ci-dessous 2 procédures mettant en couleur (rouge ou défaut) les objets de dessin (comprenant donc les repères d'audit).

Ces procédures ne font que montrer comment gérer la couleur.
"Bouclant" sur tous les objets, pour être utilisables dans ce contexte, il faut demander tous les audits d'un type, lancer la colorisation, puis tous les audits d'un autre type, etc.

Ces procédures ne font que montrer "le minimum". Elles peuvent être utilisées telles quelles de la manière indiquée :
- demander l'audit sur toutes les cellules qui doivent être en rouge (elles seront par défaut en bleu)
- lancer la macro, les repères deviennent rouges
- demander l'audit sur les cellules qui peuvent rester en bleu

Sinon, pour être plus pratiques, ces procédures peuvent être complétées :
- gestion d'une autre couleur,
- test de la couleur : si rouge, ne pas modifier, si couleur par défaut mettre en vert, etc, etc
- test du nom des objets pour ne pas modifier des objets de dessin autres
- etc, etc...

Par ailleurs, tant que le sujet n'est pas complètement résolu, à mon humble avis, il vaut mieux ne rien mettre dans le titre

[Bruno Le Clainche]

OK et merci.

(Je comprends vite quand on m'explique longtemps. )

Après ça (c'était les 2 premières macro auxquelles j'ai été confrontées et elles ont même pas mordu), je crois que je vais investir dans un bouquin sur le sujet. Ca a l'air de permettre de faciliter plein de choses pour Calc.