Discussion :

[isacoz]

Bonjour à tous,

ma situation : remplir un chèque.

J'ai le montant du chèque en lettres. Celui-ci doit s'afficher dans la cellule B1 mais s'il est trop long la suite doit se placer en A2.

Quelqu'un pourrait-il éclairer ma lanterne ? Merci d'avance

[QuestVba]

Bonjour,

quand tu dis

mais s'il est trop long

comment le sais-tu ? Tu peux nous en dire un peu plus sur la taille de tes cellules ...

[isacoz]

Bonjour QuestVBA,

Sur un chèque il ya 2 lignes pour inscrire le montant en lettres. Si le montant est de 1250,23 le montant en lettres donne "Mille deux cent cinquante euros vingt-trois centimes". Le texte est trop long et est tronqué avant le "s" de "vingt-trois". En gros je peux écrire 35 caractères sur cette ligne avec la police et la taille choisie. Bien sûr je peux ajuster le texte à la taille de la cellule (fusion de C3 et D3) mais cela devient vraiment trop petit pour des montants plus élevés.

Pour transcrire le montant en lettres j'ai utilisé la fonction NBTEXTE trouvée dans MOREFUNC sur le site.

Merci pour tes idées.

[Lux (le noob)]

Je vais être complétement hors sujet mais ça fait des années que je remplis mes chèques avec les centimes sous la forme numérique "23 cts", et ni mon banquier ni aucun commerçant ou fournisseur de quoique ce soit ne m'ont jamais fait la moindre réflexion...
Applique ta formule NBTEXTE sur l'entier 1253 et tronque les centimes s'ils existent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(montant;2) & " cts"

'où montant est la cellule qui contient 1253,23.

Je ne dois pas savoir chercher, parce que je n'ai pas trouvé MOREFUNC et NBTEXTE

ok; je sors

[Lux (le noob)]

Sinon, admettons que Resultat soit le résultat de NBTEXTE,
tu peux mettre ça en B1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(Resultat;SIERREUR(CHERCHE(" ";Resultat;25);NBCAR(Resultat)))

et ça en A2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(Resultat;NBCAR(Resultat)-NBCAR(B1))

B1 prend la partie gauche de la chaîne jusqu'au premier espace qu'il rencontre après le 25ème caractère, si pas d'espace la totalité de résultat
A2 la partie droite, rien si tout est déjà dans B1
Il peut y avoir une erreur dans le cas d'un résultat supérieur à 35 caractères, avec un nombre qui occuperait la 25 ème place de la chaîne et excéderait 10 caractères. Je réfléchis, mais je n'en trouve pas. Perso je ne mets pas de traits d'union à quatre vingt dix neufs, et j'espère que NBTEXTE ne le fait pas non plus
Sinon remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CHERCHE(" ";Resultat;25)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CHERCHE(OU(" ";"-");Resultat;25)

doit faire l'affaire j'imagine...
Tu peux aussi bidouiller le 25, au cas où...

Si quelqu’un peut me renvoyer le lien ce cette fonction...

[Marc-L]

Bonjour, bonjour,

en restant dans le sujet, avant de fractionner la cellule, il y a le fonctionnement de base d'une feuille de calculs !

Dans le format d'une cellule, dans l'Alignement il y a pour le Contrôle du texte
la case à cocher Renvoyer à la ligne automatiquement augmentant la hauteur générale des cellules de la ligne …

S'il ne faut pas augmenter cette hauteur générale, reste alors, avant de cocher cette case, la fusion des ceilules B1 & B2 …

[Lux (le noob)]

Je pense que la limitation provient de la contrainte matérielle d'impression d'une lettre-chèque, d'où le fractionnement ou la "compression de données" des centimes.

[isacoz]

Dans le format d'une cellule, dans l'Alignement il y a pour le Contrôle du texte
la case à cocher Renvoyer à la ligne automatiquement augmentant la hauteur générale des cellules de la ligne …

C'est vrai. Il y aussi la case à cocher Ajuster mais pour des nombres importants cela devient illisibles. Quand à la fusion de cellules je l'utilise déjà effectivement.

Je pense que la limitation provient de la contrainte matérielle d'impression d'une lettre-chèque, d'où le fractionnement ou la "compression de données" des centimes.

C'est exactement ça !! Merci de ton aide Lux. Pourquoi n'y avais-je pas penser ? Je dois avoir besoin de repos . Grâce à toi, le copain aveugle pour qui je fais cette feuille te sera très reconnaissant

Merci encore.