entourer cellule pour lecture optique: possible ??

[CAPRI_456]

Bonsoie le Forum,

j'ai un formulaire qui est basé sur une grille de codes services
il fait apparaitre les jours du mois en cours
et doit être généré automatiquement de manière imprimée et ....

adapté pour lecture optique il doit servir à encoder le droit à l'indemnité de déplacement... l'agent à droit uniquement dans les cas ou il a presté un service avec codes donnant droit à l'indemnité= PLAGE "avecdroit" et alors il faut que la date soit entourée d'un cercle…. dans les cellules ci dessous afin de permettre la lecture optique du formulaire dont les jours sont en relation avec une grille de service (exemple à gauche)
si service avec codes de la PLAGE "sansdroit", rien ne change….= pas de cercle (jours sans droit)

Est-il possible dans XLS d'affecter un cercle qui entoure le contenu d'une cellule ???

Merci pour votre aide

un petit fichier qui expose le souci en annexe
CAPRI_456

 

[JYLL]

Re : entourer cellule pour lecture optique: possible ??

Bonsoir capri_456 et le forum,

Pour faire ce que tu souhaites, peut être pourrais-tu utiliser la police wingdings par exemple pour avoir un 1 entouré , le plus difficile est de trouver la lettre équivalente, sinon tu fais un copier coller de la lettre en mettant la bonne police. Voir feuille "Police"

A tester, pas certain que cela convienne.

Ps : ou avec l'outil dessins, et en appuyant sur maj pour faire un cercle. Voir Classeur.

 

[Catrice]

Re : entourer cellule pour lecture optique: possible ??

Bonsoir,

Voir dans le fichier ci-joint.
Est-ce ce que tu veux faire ?

Il faut améliorer et gérer l'affichage des dates dans la zone G14:AI16

 

[CAPRI_456]

Re : entourer cellule pour lecture optique: possible ??

bonjour le Forum,

Merci JYLL,CATRICE,
JYLL j'ai apprécié l'idée des lettres en windings.

CATRICE , je pense que ton approche est la bonne car elle automatise le tout, cependant j'ai un petit souci avec un bug...VB lorsque je clique sur le bouton.

Merci pour la suite...

 

[Catrice]

Re : entourer cellule pour lecture optique: possible ??

Bonsoir,

Une version un peu améliorée ci-joint.
Quelle version d'Excel as tu ?

 

[CAPRI_456]

Re : entourer cellule pour lecture optique: possible ??

Quelle version d'Excel as tu ?

bsoir le Forum, Catrice,

Impeccable,c'est parfait ainsi.... je te remercie pour ton aide précieuse
ma version XLS est 2000, mais maintenant cela fonctionne donc aucun souci.

une petite question?? si je veux uniquement un cercle gras au lieu d'un double cercle ???
Commen modifies-tu ces paramètres..

Merci

 

[Catrice]

Re : entourer cellule pour lecture optique: possible ??

Bonsoir,

J'ai fait les corrections et commenté les differentes options dans le fichier joint.
Tu as vu, j'ai modifié également les formules de dates dans les 2 zones.
Si tu mets un mois et une années dans les cellules jaunes, les calendriers sont automatiquement mis à jour.
Et evidemment les cercles sont insérés que qd il y a une date et un critere ...

Bonne nuit.

 

[CAPRI_456]

Re : entourer cellule pour lecture optique: possible ??

corrections et commenté les differentes options dans le fichier joint.

Bsoir le Forum,
Merci CATRICE c''est parfait ces améliorations....
Cependant ,pourrais-tu me dire ce que j'ai fait de faux lorsque j'ai amélioré mon formulaire destiné à la lecture optique.... le VB ne fonctionne plus sur CLICK:

est-ce du au déplacement des plages....??
pourtant j'ai adapté les "ranges".
voici le fichier avec le formulaire contanant ton VBA.

Merci

 

[JYLL]

Re : entourer cellule pour lecture optique: possible ??

Bonsoir Capri456, Catrice et le Forum,

C'est effectivement le changement de place de tes données qui te donne ce non fonctionnement.

If Cells(X.Row, 1) = Y And Y <> "" Then
If Cells(X.Row, [COLOR="Red"]26[/COLOR]) = Y And Y <> "" Then

Remplace cette ligne par celle ci et tout va rentrer dans l'ordre.

Bontest.

 

[Catrice]

Re : entourer cellule pour lecture optique: possible ??

Bonsoir,

Ca a beau etre automatisé, c'est pas magique 😉

J'ai refais quelques modifs.
Pour simplifier, j'ai nommer les zones utilisées (il y a 3 zones en vert).
Tu peux donc les déplacer, mais il faut déplacer les blocs.
Si tu as d'autres pb n'hesite pas.

 

[Catrice]

Re : entourer cellule pour lecture optique: possible ??

Re,

Petite correction d'un petit bug dans le fichier joint.

 

[CAPRI_456]

Re : entourer cellule pour lecture optique: possible ??

Petite correction d'un petit bug dans le fichier joint.

MERCI JYLL, CATRICE, pour votre aide..précieuse
Je vais maintenant poursuivre mon projet...
A+
et je reviendrai , si je bloque...