[Résolu][Calc] Changement conditionnel apparence champ

[Solaris]

Bonjour,

Je me permets de venir poster ici ma question que j'avais posé au préalable au niveau du forum dédié au Tableur.

Je voudrais changer l'apparence d'un champ formaté. En fat, je voudrais pouvoir identifier rapidement les champs qui ont une donnée de saisie de ceux qui n'en ont pas (que ce soit la valeur par défaut ou que le champs soit vide). J'avais pour idée de faire en sorte que les champs changent de couleur s'ils ont un résultat différent de la valeur nulle ou par défaut (sachant que j'utilise des champs formatés, champs texte, champs date, etc... ), est ce possible?

merci!

[Hubert Lambert]

Bonjour,

Tu peux essayer ceci dans un premier temps, en l'affectant au choix à l'événement "Texte modifié" ou "Perte de focus" du contrôle :

Code : Tout sélectionner

sub arriere_plan_conditionnel(event)
    control = event.Source.Model
    if control.Text = "" then
        control.BackgroundColor = RGB(245,166,186)
    elseif control.EffectiveValue = control.EffectiveDefault then
        control.BackgroundColor = RGB(190,247,218)
    else
        control.BackgroundColor = RGB(255,255,255)
    end if
end sub

Cordialement.

[Piaf]

Bonjour
En complément à la réponse d'Hubert Lambert et pour

sachant que j'utilise des champs formatés, champs texte, champs date

Code : Tout sélectionner

Sub Main(oEv as Object)
	If oEv.Source.Model.supportsService("stardiv.one.form.component.TextField") Then
		If oEv.Source.Model.Text <> "" And oEv.Source.Model.Text <> oEv.Source.Model.DefaultText Then
			oEv.Source.Model.BackgroundColor = RGB(255,0,0)
		Else
			oEv.Source.Model.BackgroundColor = -1	
		End If
	ElseIf oEv.Source.Model.supportsService("stardiv.one.form.component.FormattedField") Then
		If oEv.Source.Model.Text <> "" And oEv.Source.Model.Text <> oEv.Source.Model.EffectiveDefault Then
			oEv.Source.Model.BackgroundColor = RGB(255,0,0)
		Else
			oEv.Source.Model.BackgroundColor = -1	
		End If		
	ElseIf oEv.Source.Model.supportsService("stardiv.one.form.component.DateField") Then
		If oEv.Source.Model.Text <> "" And oEv.Source.Model.Text <> "27/11/17" Then
			oEv.Source.Model.BackgroundColor = RGB(255,0,0)
		Else
			oEv.Source.Model.BackgroundColor = -1
		End If			
	End If
End Sub

Le code pourrait être plus simple en partant du principe que si une valeur est définie par défaut, celle-ci sera affichée.
Un fichier exemple avec les contrôles utilisés et leur valeur par défaut pourrait faciliter une réponse plus précise.
A+

[Solaris]

Bonjour,

Je vous remercie pour vos réponse.

Je n'ai pas réussi à faire fonctionner la 1ère macro. Je réessaye ce soir.
Puis-je vous envoyer mon document par message privé car je suis gênée par le fait qu'il soit en ligne vu qu'il y a des données professionnelles dedans. Sinon je peux faire un "extrait" du document. Dites-moi juste ce qui vous convient le mieux.

Concernant la seconde macro, ma difficulté est que le fonds ne revient pas blanc une fois que le champs revenu à la valeur 0 ou par défaut.
Mon fichier Calc sert de base de données pour du publipostage dans les documents writer.
J'ai plusieurs feuille de formulaire et une feuille "champs" qui sert à collecter les données issues des formulaires. Je saisis mes dossiers dans le formulaire puis au fur et à mesure du temps je complète les données manquantes. Pour rappeler le dossier, je stocke mes lignes de dossier et je les colle en fonction des besoins dans la feuille champs ce qui remplit le formulaire et je n'ai plus qu'à compléter. C'est pour cela que j'aurai aimé mettre en évidence les champs non encore saisis par rapport aux champs saisis de façon à les identifier plus rapidement.

En tout cas je vous remercie beaucoup du temps que vous m'avez consacré.

Bien cordialement

[micmac]

Bonjour,

Ce forum d'entraide doit pouvoir apporter des réponses aux questions posées.
Pour cette raison de cohérence, il est préférable que les macros et les documents liés soient disponibles sur le forum.
Puisque vous le proposez, merci de joindre un extrait de votre document dépersonnalisé permettant de comprendre le problème.

Comment joindre un fichier
Comment dépersonnaliser un document joint

[jeanmimi]

Mon fichier Calc sert de base de données pour du publipostage dans les documents writer.

Autant utiliser Base, avec ses formulaires intégrés, et la possibilité de sélectionner les enregistrements selon le critère voulu.

[Solaris]

Jeanmimi: je ne sais pas me servir de base et vu le nombre de champs et de trames writer, je n'aurai pas le courage de tout refaire sur base.

Voici mon extrait du fichier ods.
Normalement il y a 6 feuilles de formulaire et un feuille liste pour les listes déroulantes des champs afin de garder les coordonnées répétitives (certains noms, nom de société etc...).

Merci beaucoup

[Dude]

Salut,

Déjà, tu devrais utiliser les bons types de contrôle.
Par exemple, un champ Date est plus simple à gérer et surtout plus ergonomique :

no_problemo.png

[Solaris]

Je ne vois pas ce que cela change, dérange ou améliore mais certes si cela permet de répondre à ma question alors, pourquoi pas.
En effet, s'il est question d'avoir un décompteur ou un calendrier déroulant cela ne m'est d'aucune utilité car j'ai bien plus vite fait de taper la date que d'aller la chercher par ces procédés.

[Dude]

A priori, tu n'as pas compris qu'avec un champ adapté, on s'évite les erreurs de saisie.
C'est un contrôle en amont qui évite par exemple de programmer une macro.

un calendrier déroulant cela ne m'est d'aucune utilité car j'ai bien plus vite fait de taper la date que d'aller la chercher par ces procédés.

Cela montre que tu n'as pas testé le dit-champ. Le calendrier déroulant est une option réglable.

[Solaris]

A priori, tu n'as pas compris que je n'ai pas de problème d'erreur de saisie...
Je voudrais juste savoir s'il est possible que les champs vides soient d'une couleur différente des champs remplis.

[Hubert Lambert]

Bonjour,

Un petit exemple, qui ne prétend pas répondre à tous les cas de figure mais illustre une manière d'aborder le problème :

Solaris.ods

Cordialement.

[Solaris]

Je vous remercie. C'est un premier pas effectivement mais j'ai encore deux difficultés (qui sont probablement liées):
- quand je fais effacer le formulaire, les champs se vident mais la couleur ne change pas
- quand je change le résultat dans la cellule liée de la feuille "Champs", cela ne change pas non plus la couleur

Par contre, je n'arrive pas à trouver comment voir texte de votre macro. Je ne suis pas experte alors je m'excuse si ma demande est basique.

Encore merci

[Hubert Lambert]

quand je fais effacer le formulaire, les champs se vident mais la couleur ne change pas

Si le formatage est géré par macro, il faudra gérer de même la remise à zéro...

quand je change le résultat dans la cellule liée de la feuille "Champs", cela ne change pas non plus la couleur

Je ne vois pas d'événement qui puisse réagir lors d'une modification de la cellule source. On atteint ici les limites de la solution par macro.

Par contre, je n'arrive pas à trouver comment voir texte de votre macro. Je ne suis pas experte alors je m'excuse si ma demande est basique.

Menu Outils -> Macros -> Gérer les macros -> Basic (ou Alt+F11).

Essaie de voir si tu comprends le principe. Si non, la solution par macro risque peut-être de t'apporter plus de soucis que de services...
Cordialement.

[Solaris]

Un grand merci! je vais regarder cela ce soir et voir ce que je peux faire!

merci bcp!

Bonne journée

[Solaris]

J'ai fait des tests et j'ai trouvé mon bonheur grâce à votre formule un grand merci!

J'ai cependant deux erreurs qui apparaissent de temps en temps (je n'arrive pas à identifier ce qui la génère) mais voici les messages d'erreur:

- erreur d'exécution BASIC Propriété ou méthode non trouvée : Model. et une flèche apparaît pour la première ligne après la définition de la couleur des fonds : "control = event.Source.Model"
- erreur d'exécution : Variable d'objet non définie et une flèche apparaît devant la deuxième ligne après la définition de la couleur des fonds : " control_type = split(control.DefaultControl, ".")(5)"

Vous sauriez ce que je dois y faire svp?

merci encore!

[Hubert Lambert]

Il faudrait que tu précises au moins quel type de champ est concerné et à quel événement la macro est affectée.

[Solaris]

Justement aucune idée dû champs concerné car mon formulaire contient environ 120 champs et la macro est appliquée à chacun pour 3 événements : souris à l’exterieur, avant le focus et après les focus.

Ces champs sont des champs formatés (texte, monnaie, date), champs combinés avec liste déroulante, cases à cocher.

J’ai aussi mis la macro dans les paramètres du formulaire avec les actions : avant et après en enregistrement.

[Hubert Lambert]

J’ai aussi mis la macro dans les paramètres du formulaire avec les actions : avant et après en enregistrement.

[...]- erreur d'exécution : Variable d'objet non définie et une flèche apparaît devant la deuxième ligne après la définition de la couleur des fonds : " control_type = split(control.DefaultControl, ".")(5)"[...]

La macro est prévue pour réagir à la modification d'un champ (événement texte ou statut modifié). Aucune chance pour qu'elle fonctionne au niveau du formulaire sans adaptation...

[Solaris]

Bonjour,

Je m'excuse de revenir tardivement mais avec les fêtes de fin d'année, je ne m'en suis pas occupé pendant 15 jours. ALors déjà Bonne année à tous et toutes et merci pour votre aide précieuse.

Pour revenir à mon message d'erreur, j'ai enlevé la macro des formulaires mais cela continue.
J'ai fait plusieurs tests et je n'arrive pas à identifier un type de champs en particulier (même se les cases à cocher semble le générer plus souvent) cependant j'ai vu que cela se produit si je change de page du formulaire sans enregistrer alors que si j'enregistre avant de changer de page l'erreur n'apparaît pas. Est ce que c'est normal?

Bonne journée à tous!

[Hubert Lambert]

Bonjour,

Fournis-nous le fichier, qu'on puisse voir comment tu as intégré les macros et pourquoi elles coincent.

[Solaris]

Voici un extrait du fichier.
Si j'enregistre avant de changer de feuille ça semble passer mais si je change sans enregistrer ça coince.

[Hubert Lambert]

Bonjour,

Je ne comprends pas ce que tu entends par

Si j'enregistre avant de changer de feuille ça semble passer mais si je change sans enregistrer ça coince.

Le comportement des champs dans ton dernier fichier est conforme à ce que tu demandais, même si je ne comprends pas pourquoi tu insistes pour affecter la macro à tout sauf au statut modifé du champ.

Si tu rencontres en autre problème, comme l'insertion des données saisies dans une autre feuille ou un autre document, ouvre un nouveau fil et balise celui-ci comme résolu.

Cordialement.

[Solaris]

Je veux bien qu'effectivement la couleur du champs change mais je vous joins l'image de ce qui apparaît en plus du changement de couleur lors de l'utilisation du fichier. Vu que c'est un message d'erreur, je ne suis pas convaincu que du coup il faille considérer le tout comme résolu même si effectivement il n'y a rien de rédhibitoire à l'utilisation du fichier.

[Hubert Lambert]

Je ne reproduis pas avec ton dernier fichier.
Vérifie une nouvelle fois que la macro n'est pas affectée à un événement de formulaire.

Ajout : Mieux encore : installe Xray, ajoute la ligne Code : Tout sélectionner xray control au-dessus de la ligne qui produit l'erreur et poste une saisie d'écran de la fenêtre qui s'ouvrira.

[Solaris]

Je viens de revérifier, il n'y a plus rien au niveau des données/évènements du formulaire.

[Solaris]

Plutôt que de partir d'une copie de mon fichier original et de supprimer des parties pour ne vous transmettre qu'un extrait (ce qui pourrait maintenir des paramétrages dont je ne me souviens peut être pas malgré toutes les vérif), je viens d'essayer en partant d'un fichier vierge "sans nom", j'ai créée le champs, ajouté la macro et c'est exactement pareil, le même message d'erreur.

Nous vous rappelons que vous ne pouvez faire remonter votre fil de discussion qu'après 72 heures minimum : http://forum.openoffice.org/fr/forum/vi ... 2620#p2620
Utilisez pour cette opération le bouton dédié :


Les bénévoles qui assurent l'entraide sur ce forum font toujours le maximum pour répondre. Ils le font lorsqu'ils en ont le temps, l'envie et bien sûr s'ils ont une réponse à offrir.
En attendant, vous pouvez également participer en répondant à d'autres questions sur notre forum.
Fil fermé 24 heures

[Solaris]

Bonjour à tous,

Petite coup de gueule pour la modération : alors voilà je veux bien que l'on se sente puissant et important quand on est modérateur mais les serial killers du verrouillage faudrait se trouver une autre manière d'exister ou de se sentir vivre.
Alors je veux bien mettre ce post résolu si cela vous plaît mais il ne l'est pas! Alors dois-je mentir pour vous faire plaisir? Dîtes le clairement dans ce cas...
J'avais la prétention de me dire que les réponses n'interviennent qu'au grès de bénévoles qui distillent leurs précieuses compétences et savoirs en fonction de leur disponibilité.... Apparemment c'est oui ou non et tout de suite....
Je continue de réfléchir à une solution à ce problème sauf que je ne l'ai pas et j'osais dire "encore"... en espérant pouvoir bientôt mettre le précieux résolu (qui semble si cher aux modérateurs), indiquer la réponse et pouvoir peut-être aider un autre utilisateur avec la réponse mais visiblement ma pensée était très prétentieuse...
Je vais peut-être vous apprendre une chose: les problèmes il n'y en a rarement qu'un... Alors oui j'ai osé demandé de l'aide pour un autre problème qui est sans lien avec celui ci... Fouettez moi... mais si je l'avais mis sur ce post, vous m'auriez lapidé pour avoir osé mélanger les genres.... et maintenant que j'ai résolu mon deuxième problème, j'allais avec plaisir mettre l'autre post en résolu et indiquer la réponse ben non... je ne peux pas c'est verrouillé.
Bien entendu il faut de l'organisation, des règles, de discipline etc... mais là c'est totalement improductif, incohérent pour ne pas dire stupide. J'espère au moins que cela fait du bien à l'ego de certain(e)s!

Sinon pour le fond de ce post, rien de nouveau ça bloque à chaque changement de feuille, je n'ose donc le dire car cela va encore entraîner un verrouillage de 72h.... mais c'est dit

Bonne journée à tous!

[Bidouille]

Petite coup de gueule pour la modération

Comme je dis souvent, si vous n'êtes pas satisfait de la tenue de ce forum, vous pouvez toujours rejoindre l'équipe.

Alors je veux bien mettre ce post résolu

Non, on vous demande d'y donner suite. Cela n'implique pas de mettre forcément [Résolu], ne mélangez pas tout.
Au bout de 15 jours, votre question passe en page 2 et se retrouve donc dans les archives.
Un fil sans réponse de son auteur n'a aucun intérêt puisqu'on ne sait pas si les solutions données sont bonnes.
Nous pensons donc d'abord à tous ceux qui font des recherches et qui tombent sur des questions qui n'apportent rien à cette immense base de connaissances qu'est ce forum.

Maintenant, vous n'avez pas eu de réponse depuis le 24/01/18 : vous ne vous demandez pas pourquoi ?

je viens d'essayer en partant d'un fichier vierge "sans nom", j'ai créée le champs, ajouté la macro et c'est exactement pareil, le même message d'erreur.

Peut-être que si vous aviez fourni ce document montrant l'anomalie, les bénévoles qui vous consacrent du temps auraient sans doute pu vous aider.

[Solaris]

Comme je dis souvent, si vous n'êtes pas satisfait de la tenue de ce forum, vous pouvez toujours rejoindre l'équipe.

Faudrait peut être en avoir les compétences non? un peu facile car me concernant je suis navrée de vous confirmer que je suis totalement profane et que j'essaye juste de progresser ....

Non, on vous demande d'y donner suite. Cela n'implique pas de mettre forcément [Résolu], ne mélangez pas tout.

Je ne mélange rien, sur l'autre question que j'ai osé poser, c'est verrouillé car celle-ci n'est pas résolue!

Au bout de 15 jours, votre question passe en page 2 et se retrouve donc dans les archives.
Un fil sans réponse de son auteur n'a aucun intérêt puisqu'on ne sait pas si les solutions données sont bonnes.
Nous pensons donc d'abord à tous ceux qui font des recherches et qui tombent sur des questions qui n'apportent rien à cette immense base de connaissances qu'est ce forum.

Soit mais quel est l'intérêt de verrouiller à gogo (je ne parle pas quand il y a un excès ou un pb) ... car au final il manque une partie des échanges puisqu'à la suite du verrouillage de ce post, des échanges ont continué par MP... CQFD: le verrouillage favorise vraiment l'échange de MP plutôt que le partage
Et en étant des maniaques du verrouillage, vous croyez vraiment que "tous ceux qui font des recherches" sont satisfaits des réponses non fournies dans les discussions inabouties par du verrouillage intempestif?

Maintenant, vous n'avez pas eu de réponse depuis le 24/01/18 : vous ne vous demandez pas pourquoi ?

je viens d'essayer en partant d'un fichier vierge "sans nom", j'ai créée le champs, ajouté la macro et c'est exactement pareil, le même message d'erreur.

Peut-être que si vous aviez fourni ce document montrant l'anomalie, les bénévoles qui vous consacrent du temps auraient sans doute pu vous aider.

[/quote]
Pour précision, l'extrait que vous citez date d'un message du 24 janvier 2018 à 16h39 et j'ai eu la faiblesse de penser que joindre le fichier le même jour mais à 13h31 cela pouvait suffire.... D'un autre côté la discussion a été verrouillée dans la foulée... il faut quand même être de mauvaise fois pour sous entendre que s'il n'y a pas eu de réponse c'est à cause d'un fichier non joint mais finalement joint...