Microsoft 365 Remplacer chiffre par un symbole (Point noir)

[midimic]

Bonjour, je n'ai pas trouvé dans les discussions une solution à ma question? Je voudrais dans une suite binaire remplacer 0 par cellule vide et 1 par un gros point noir trouvé dans les symboles dans le but de construire une figure.
Merci de votre aide toujours efficace
Michel

 

[soan]

Bonjour Michel,

Un petit fichier exemple sera le bienvenu ! (ne serait-ce que pour voir la position
des données, et savoir si la suite binaire est dans une seule cellule, ou dans autant
de cellules que de bits ; de plus, quel est donc le code ASCII, ou Unicode, de ton gros
point noir ?)

soan

 

[midimic]

Bonjour Michel,

Un petit fichier exemple sera le bienvenu ! (ne serait-ce que pour voir la position
des données, et savoir si la suite binaire est dans une seule cellule, ou dans autant
de cellules que de bits)

soan

 

[midimic]

Exemple

 

[soan]

@midimic

En attendant que tu joignes ton fichier, j'ai fait celui-ci.

J'vais maint'nant voir ton fichier ; et j'essayerai d'y faire la même chose,
selon la position des données et leur nombre.

soan

 

[soan]

@midimic

Lis d'abord mon post précédent (et regarde le fichier qui y est joint).

Ci-dessous, ton nouveau fichier (comme y'a pas d'VBA, j'l'ai converti en .xlsx).

* regarde la formule en E7 ; je l'ai tirée à droite jusqu'en G7 ;
puis j'ai tiré E7:G7 vers le bas, jusqu'en ligne 10.

* regarde la formule en E14 ; je l'ai tirée à droite jusqu'en G14 ;
puis j'ai tiré E14:G14 vers le bas, jusqu'en ligne 25.

Note bien que pour avoir les gros points noirs, j'ai utilisé le
caractère de code 108, et j'ai mis la police Wingdings.

---------------------------------------------------------------------------

Quand tu seras fatigué de faire du dessin bitmap en point par point,
essaye le dessin vectoriel ; tu verras, c'est très amusant aussi !

J'plaisante, mais c'que t'as fait est très bien ! on dirait qu'c'est pour
des mini-dessins d'icônes ; ou pour des sprites ? ou peut-être un
genre de code braille ? (les sprites, c'est les lutins graphiques des jeux vidéos)

soan

 

[midimic]

@midimic

Lis d'abord mon post précédent (et regarde le fichier qui y est joint).

Ci-dessous, ton nouveau fichier (comme y'a pas d'VBA, j'l'ai converti en .xlsx).

* regarde la formule en E7 ; je l'ai tirée à droite jusqu'en G7 ;
puis j'ai tiré E7:G7 vers le bas, jusqu'en ligne 10.

* regarde la formule en E14 ; je l'ai tirée à droite jusqu'en G14 ;
puis j'ai tiré E14:G14 vers le bas, jusqu'en ligne 25.

Note bien que pour avoir les gros points noirs, j'ai utilisé le
caractère de code 108, et j'ai mis la police Wingdings.

---------------------------------------------------------------------------

Quand tu seras fatigué de faire du dessin bitmap en point par point,
essaye le dessin vectoriel ; tu verras, c'est très amusant aussi !

J'plaisante, mais c'que t'as fait est très bien ! on dirait qu'c'est pour
des mini-dessins d'icônes ; ou pour des sprites ? ou peut-être un
genre de code braille ? (les sprites, c'est les lutins graphiques des jeux vidéos)

soan

Merci de t'être impliqué de la sorte. Je vais lire tout ça cet am. Tu as trouvé le but de ce fichier . Bravo. Il s'agit des figures de géomancie. Je suis un papy de 70 ans et je ne connais pas bien excel alors je me débrouille et j'apprends. Le dessin vectoriel ? je vais essayer de trouver ça. Merci

 

[soan]

@midimic

Pour la géomancie, j'ai vu ces 2 liens :

Géomancie (plusieurs figures y sont indiquées)

Découvrez la géomancie

-----------------------------------------------------------------------------------------

Pour le dessin vectoriel, voici un premier lien :

Dessin vectoriel avec les outils de Word 2003

Avec Word 2007, c'est ici : onglet Insertion, groupe Illustrations, Formes
Utiliser les différentes formes, en particulier les « Lignes » et « Formes de base » ;
on peut les utiliser directement sur la page Word ; ou dans une zone de dessin,
qu'on insère en cliquant sur le dernier item de la liste (qui est donc tout en bas) :
« Nouvelle zone de dessin » ; tu pourras découvrir qu'on peut très facilement
assembler les formes, et que c'est parfois très pratique de pouvoir les associer ;
en cas de besoin, tu peux aussi les dissocier.

Dans Excel 2007, je n'ai pas vu de possibilité d'insérer une zone de dessin,
mais on peut quand même faire du dessin vectoriel sur la feuille de calcul,
de la même façon que je l'ai décrit ci-dessus pour une page Word.

Et voici 2 autres liens : Image vectorielle ; Créer un dessin vectoriel

Rien ne presse, alors si tu ne peux pas tout voir cet après-midi,
ce sera pour demain, après-demain, ou même plus tard...

soan

 

[midimic]

@midimic

Pour la géomancie, j'ai vu ce lien : Géomancie (plusieurs figures y sont indiquées).

Pour le dessin vectoriel, voici un premier lien :

Dessin vectoriel avec les outils de Word 2003

Avec Word 2007, c'est ici : onglet Insertion, groupe Illustrations, Formes
Utiliser les différentes formes, en particulier les « Lignes » et « Formes de base » ;
on peut les utiliser directement sur la page Word ; ou dans une zone de dessin,
qu'on insère en cliquant sur le dernier item de la liste (qui est donc tout en bas) :
« Nouvelle zone de dessin » ; tu pourras découvrir qu'on peut très facilement
assembler les formes, et que c'est parfois très pratique de pouvoir les associer ;
en cas de besoin, tu peux aussi les dissocier.

Dans Excel 2007, je n'ai pas vu de possibilité d'insérer une zone de dessin,
mais on peut quand même faire du dessin vectoriel sur la feuille de calcul,
de la même façon que je l'ai décrit ci-dessus pour une page Word.

Et voici 2 autres liens : Image vectorielle ; Créer un dessin vectoriel

Rien ne presse, alors si tu ne peux pas tout voir cet après-midi,
ce sera pour demain, après-demain, ou même plus tard...

soan

Merci pour ces infos. J'irai voir.

 

[soan]

ok, mais on s'est croisés : j'ai complété le début de mon post #8
avec un 2ème lien sur la géomancie. (peut-être que tu y
découvriras des choses nouvelles ?)

j'espère que tu aimeras le dessin vectoriel ; et peut-être que
ça pourra t'être utile en géomancie ?

soan

 

[patricktoulon]

bonjour a tous

Sub test()
    With ActiveSheet
        With .Range("b7:D" & ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row)
            .Copy Destination:=.Offset(, .Columns.Count)
            .Offset(, .Columns.Count).Cells.Replace "1", "•"
        End With
    End With
End Sub

 

[Hasco]

Bonjour,

Dans le fichier joint, sur la plage E14:G25 la formule matricielle {=B14:D25} et un format de nombre personnalisé : "l";;; qui font la chose.

Edition : le format personnalisé [=1]"l";;; quant à lui empêchera l'affichage de tout chiffre ou nombre autre que 1 ainsi que du texte

Cordialement

 

[soan]

Bonjour Patrick,

J'ai proposé une solution par formules ; merci
pour ton complément en solution VBA.

soan

 

[patricktoulon]

re
bonjour Soan
je n'ai pas vu qu'il a demandé par formule et vu que son fichier est un "xlsm"
apres pour la formule en restant en "calibri"
=SI(B7=1;"•";"")

à étendre latéralement et verticalement

 

[soan]

Non, effectivement, ce n'était pas spécifié par formule ; mais même moi
qui adore le VBA, quand je peux faire par formule plutôt que par VBA,
je fais par formule. (et comme je l'ai précisé plus haut, j'ai converti
le .xlsm en .xlsx)

soan