UNe histoire de caractère

[altinea]

Bonjour le forum, dans la formule ci après il y a un caractère rectangle noir, j'ai essayé de le reproduire mais je en le trouve pas j'ai déjà essayé avec la combinaison alt+un chiffre et je n'ai rien trouvé, quelqu'un pourrait il m'éclairer
merci


=REPT("█";B23)

 

[kjin]

Re : UNe histoire de caractère

Bonjour,
Dans les accessoires Windows peut-être as tu l'utilitaire qui permet d'afficher la Table des caractères ? (Parce que l'on ne sait rien de la police employée)
A+
kjin

 

[JNP]

Re : UNe histoire de caractère

Bonjour le fil 🙂,
Le problème est que les formules ASCII ne gèrent au départ que de 0 à 255. Du coup, ton rectangle donne avec =CAR comme ASCII 53, qui ne renvoie que ? avec =CHR...
Pour contourner, tu peux passer avec 2 fonctions VBA (Asc est l'équivalent de CAR, mais AscW utilises les ASCII supérieurs) :

Function AsciiRemplace(Caractère As String) As Double
AsciiRemplace = AscW(Caractère)
End Function

qui va renvoyer les ASCII supérieur à 255 (ici 9608) et

Function RemplaceAscii(CodeAscii As Double) As String
RemplaceAscii = ChrW(CodeAscii)
End Function

qui avec 9608 va te redonner █ (Chr est l'équivalent de CHR mais ChrW lit les ASCII supérieurs).
D'où

=REPT(RemplaceAscii(9608);B23)

Voir classeur joint.
Bonne soirée 😎

 

[altinea]

Re : UNe histoire de caractère

bsr, merci pour les réponses, pour ce qui est de la table de caractère je l'ai bien mais cela ne fonctionne pas dans la ligne de commande excel, pour créer une formaule.
Pour ce qui est des codes vba, faut il les joindre à chaque classuers où je souhaite utiliser la formule et n'y a t'il pas une version xla qui ferait cela merci de votre aide

 

[JNP]

Re : UNe histoire de caractère

Re 🙂,

Pour ce qui est des codes vba, faut il les joindre à chaque classuers où je souhaite utiliser la formule et n'y a t'il pas une version xla qui ferait cela merci de votre aide

Le plus simple est de les glisser dans ton PERSO.XLS si tu est antérieur à 2007, PERSONAL.XLSB pour 2007.
Bonne soirée 😎

 

[hoerwind]

Re : UNe histoire de caractère

Bonjour, salut kjin et JNP,

Je n'ai pas retrouvé le code ASCII de ce caractère.

Voici comment je procèderais :
Copier le caractère et le coller dans une cellule quelconque, hors zone d'impression.
S'il est collé en zone d'impression appliquer une police de couleur blanche à cette cellule.
Si le caractère a été collé en A1, la formule devient :
=REPT(A1;B23)

 

[Efgé]

Re : UNe histoire de caractère

Bonjour à tous,
Juste pour faire ava,cer le schmilblick:
Le carré noir correspond à g en police Webdings.
Cordialement

 

[hoerwind]

Re : UNe histoire de caractère

Bonjour Efgé,

Bien vu !
Mais pourrais-tu m'expliquer comment tu transformes le carré noir en rectangle noir ?

 

[jeanpierre]

Re : UNe histoire de caractère

Bonjour le fil,

C'est la première réponse que je voulais donner hier (cette police Webdings), mais rapidement j'ai compris que cela ne correspondait pas car c'est un carré et on ne peut rien y changer.

La solution de JNP me semble la plus proche, voire peut-être la seule.

Bonne journée.

Jean-Pierre

 

[JNP]

Re : UNe histoire de caractère

Re 🙂,
Le code ASCII est 9608, dans n'importe quelle police complète, comme indiqué ci-dessous 😉.
Mais c'est vrai que la formule d'Hoerwind est plus simple 😉.
La solution d'EfGé fonctionnerais aussi, si Excel savait appliquer de l'échelle horizontale sur les caractères, ou si il y avait un rectangle dans les fontes dessins, mais je n'en ai trouvé ni en WingDings 1, 2 et 3, ni en WebDings, ni en ZapftDingbats, qui sont les plus courantes 😛...
Vous pouvez quand même conserver mes 2 fonctions, elles peuvent être utile pour insérer des caractères grecs par exemple (on avait fait un fil la dessus il y a un certain temps).
Bonne journée 😎

 

[Efgé]

Re : UNe histoire de caractère

Re

Bonjour le forum, dans la formule ci après il y a un caractère rectangle noir, j'ai essayé de le reproduire mais je en le trouve pas j'ai déjà essayé avec la combinaison alt+un chiffre et je n'ai rien trouvé, quelqu'un pourrait il m'éclairer
merci


=REPT("█";B23)

Si je lis la demande je trouve "rectangle", si je regarde la demande je vois "carré" 🙂.
Donc je ne sait pas quelle est la demande, mais g en Webdings ressemble furieusement à █
Cordialement

 

[JNP]

Re : UNe histoire de caractère

Re 🙂,

Donc je ne sait pas quelle est la demande, mais g en Webdings ressemble furieusement à █

C'est bizarre, chez moi, un g en WebDings, ça ressemble à ça ■ 😛...
Une déformation écran 4/3 réglé en 16/9 😀 ?
Bonne journée 😎

 

[hoerwind]

Re : UNe histoire de caractère

Re,

Au lieu de coller ce caractère dans une cellule, on peux aussi le nommer, ou passer par le correcteur d'orthographe.

 

[altinea]

Re : UNe histoire de caractère

Bonjour à vous tous et merci de vos réponses, ce que ej en comprends pas c'est comment à partir d'un fichier dans lequel j'ai trouvé cette formule ne vois pas où peuvent se trouver les cellules concernées, telles qu'appeler le caractère dans une autre cellule, où le mettre dans le perso.xls. J'avoue que cela me perturbe, car effectivement l'élement en question est bien sympa pour faire quelques grahiques de progression.
voici le lien d'où j'ai extrait cette formule : Ce lien n'existe plus

et la rubrique s'appele "des minis histogrammes" cela vous permettra peut etre de mieux voir, merci encore

 

[altinea]

Re : UNe histoire de caractère

Re Bonjour, en fait j'ai réussi avec diverses combinaisons alt+*** à changer le caractère rectangle noir, par un coeur et autre mais ce fameux rectangle inconnu au bataillon