XL 2019 transformation automatique de caractère.

Dranreb

XLDnaute Barbatruc

• 29 Juin 2022

• #2

Il y a ça, en G10 :

Code:

=UNICAR(9311+F10)

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 29 Juin 2022

• #3

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 29 Juin 2022

• #4

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

 

Pièces jointes

• Exo Océane.xlsx

  10.3 KB · Affichages: 16

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 30 Juin 2022

• #5

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 🙂

 

Vote positif 0 Vote négatif

Océane

XLDnaute Impliqué

• 30 Juin 2022

• #6

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 .

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 30 Juin 2022

• #7

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) :

VB:

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

 

Pièces jointes

• Océane Exo v2.xlsm

  15.9 KB · Affichages: 5

Vote positif 0 Vote négatif

Océane

XLDnaute Impliqué

• 30 Juin 2022

• #8

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.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 30 Juin 2022

• #9

@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)

VB:

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

 

Pièces jointes

• Océane Exo v3.xlsm

  16.2 KB · Affichages: 4

Dernière édition: 2 Juillet 2022

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Juin 2022

• #10

Bonjour,

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 30 Juin 2022

• #11

Bonjour TooFatBoy,

TooFatBoy à dit:

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

Cliquez pour agrandir...

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

soan

 

Vote positif 0 Vote négatif

Océane

XLDnaute Impliqué

• 30 Juin 2022

• #12

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Juin 2022

• #13

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>

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 30 Juin 2022

• #14

@Océane, TooFatBoy,

Océane à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Juin 2022

• #15

soan à dit:

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

Cliquez pour agrandir...

Euh... c'est 53 semaines ! 🤡

 

Vote positif 0 Vote négatif