Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

entourer cellule pour lecture optique: possible ??

  • Initiateur de la discussion Initiateur de la discussion CAPRI_456
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CAPRI_456

XLDnaute Occasionnel
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
 

Pièces jointes

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.
 

Pièces jointes

Dernière édition:
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
 

Pièces jointes

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...
 
Re : entourer cellule pour lecture optique: possible ??

Catrice à dit:
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
 
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.
 

Pièces jointes

Re : entourer cellule pour lecture optique: possible ??

Catrice à dit:
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
 

Pièces jointes

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.

Code:
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.
 
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.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…