XL 2019 transformation automatique de caractère.

[Océane]

je cherche une police qui encercle mes nombres au fur et mesure de la frappe.
Exemple dans le fichier joint
Merci d'avance

 

[Dranreb]

Il y a ça, en G10 :

=UNICAR(9311+F10)

 

[soan]

Bonsoir Dranreb,

j'ai essayé ta formule, elle est très bien !

je précise que c'est valable pour les nombres 1 à 20,
et qu'il n'y a pas de zéro entouré.

soan

 

[soan]

Bonsoir Océane,

ton fichier en retour ; formules :

* en G2 : =UNICAR(9311+F2)

* en H2 : =UNICAR(10121+F2)

* en i2 : =UNICAR(10101+F2)

* j'ai étiré ces formules jusqu'en ligne 10.
* nombres 1 à 9 uniquement.

soan

 

[Deadpool_CC]

bonjour,
j'espère que c'est bien la transformation du caractère dans une autre cellule que tu veux et non pas dans la cellule ou tu es en tain de saisir

 

[Océane]

Bonjour et merci
C'est dans la même cellule que je veux la transformation, mais cela n'est pas trop grave je m'en sorts avec un "copier coller valeur " dans la même cellule.
Ce qui faudrait c'est que çà dépasse le 20;
C'est pour marquer les semaines dans un calendrier .

 

[soan]

Bonjour Océane, Deadpool,

1) à l'ouverture du fichier, la feuille est entièrement vide (c'est normal)

2) tout se passe en colonne A ; voici des exemples en A1 :

3) saisis un chiffre quelconque de 1 à 9

4) idem que 3) mais saisis « n » après le chiffre ; exemple : 7n

5) idem que 3) mais saisis « b » après le chiffre ; exemple : 7b

---

code VBA de "Feuil1" (15 lignes) :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim s$, v%, k%
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 1 Then Exit Sub
    s = .Value: v = Val(s): If v < 1 Or v > 9 Then Exit Sub
    s = Right$(s, 1): .Font.Size = 12 - (s = "b") * 6
    k = 9311 - (s = "n") * 790 - (s = "b") * 810 + v
    Application.EnableEvents = 0
    .Value = Evaluate("=UNICHAR(" & k & ")")
    Application.EnableEvents = -1
  End With
End Sub

soan

 

[Océane]

cela fonctionne bien jusqu’au chiffre 7 mais pas au delà.
L’inconvénient de cette solution est qu'il faut que je spécialise une colonne.
je voudrais que la formule s'applique a une cellule bien déterminée, comme la solution de Dranreb mais de 0 à 52 minimum.

 

[soan]

@Océane (ou Pierre)

1) regarde la présentation de "Feuil1"

2) en B1 : saisis un nombre de 1 à 20

3) pour ton « de 0 à 52 minimum » :

* la semaine n° 0 n'existe pas ! ça serait donc entre 1 et 52 ! (bornes incluses)

---

code VBA de "Feuil1" (13 lignes)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim v%
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address(0, 0) <> "B1" Then Exit Sub
    v = Val(.Value): If v < 1 Or v > 20 Then Exit Sub
    Application.EnableEvents = 0
    .Value = Evaluate("=UNICHAR(" & 9311 + v & ")")
    Application.EnableEvents = -1
  End With
End Sub

soan

 

[TooFatBoy]

Bonjour,

Unicar(12991) ça donne quoi comme résultat ?

 

[soan]

Bonjour TooFatBoy,

Unicar(12991) ça donne quoi comme résultat ?

wow, bien joué ! t'as trouvé ça où ? ça donne 50 entouré,
mais y a-t-il aussi 51 et 52 entourés ?

soan

 

[Océane]

malheureusement on ne peut pas aller au delà de 20...
j'ai loupé qq chose, comment aller jusqu' 50

 

[TooFatBoy]

Hélas, ça ne va que de 0 à 50, donc pas de 51, 52 ni 53.

Ma source : https://www.compart.com/fr/unicode/decomposition/<circle>

 

[soan]

@Océane, TooFatBoy,

malheureusement on ne peut pas aller au delà de 20...

si : TooFatBoy a trouvé de 21 à 50 ; et j'viens d'voir que c'est
dans la page de codes nommée :

« Enclosed CJK Letters and Months »

mais même là, y'a pas plus que 50 ; dommage qu'ils n'aient
pas pensé aux 51 et 52 de 52 semaines !

soan

 

[TooFatBoy]

dommage qu'ils n'aient
pas pensé aux 51 et 52 de 52 semaines !

Euh... c'est 53 semaines !