Double chiffre dans une cellule

Bonsoir
si vous voulez faire ça au clavier oui, sinon ça risque d'être compliqué
à vous de voir

Oui ; mais il s'agira d'un texte, pas d'une valeur numérique !
https://www.cjoint.com/c/FFjrwjVBPkC

Bonsoir,

regarde le fichier joint voir si c'est ce que tu cherches
https://www.cjoint.com/c/FFjsXavuH6j

pour le faire, saisir la valeur
puis clic en même temps sur les touches Alt et Entrée
resaisir la valeur
ensuite sélectionner la valeur inférieure et diminuer la taille de la police
il est possible de jouer avec les touches d'alignement et la barre d'espace pour déplacer une valeur

autrement il faut passer avec un code VBA
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

si je comprends bien il ne s'agit pas de traiter qu'une seule cellule,
alors pour un code VBA il faut être très précis, au départ as tu toujours

24 caractères sur la première ligne, un retour ligne et 8 caractères

ou 24 caractères un espace et 8 caractères

ou simplement 32 caractères que la macro doit couper en deux et mettre en forme

quelle sont les bornes de la plage à traiter

Re,

alors si j'ai bien compris ton problème, tu veux créer un série de chiffre de 1 à 90
tu veux doubler ces chiffres dans la cellule avec la première ligne taille 24 et la deuxième taille 8

tu n'as pas précisé sur quelle plage cela doit se faire

Re,

voila le code à coller dans un module et l'associer à un bouton comme dans le fichier à télécharger.
il est possible d'écrire un code plus court mais plus difficile à décrypter, on verra plus tard

Option Explicit

Sub test()
Dim M, i, k, e As Integer
On Error Resume Next
Application.ScreenUpdating = False
   For M = 1 To 10
   Cells(1, M) = 1
   Cells(1, M) = Cells(1, M - 1) + 1
   Cells(2, M) = 11
   Cells(2, M) = Cells(2, M - 1) + 1
   Cells(3, M) = 21
   Cells(3, M) = Cells(3, M - 1) + 1
   Cells(4, M) = 31
   Cells(4, M) = Cells(4, M - 1) + 1
   Cells(5, M) = 41
   Cells(5, M) = Cells(5, M - 1) + 1
   Cells(6, M) = 51
   Cells(6, M) = Cells(6, M - 1) + 1
   Cells(7, M) = 61
   Cells(7, M) = Cells(7, M - 1) + 1
   Cells(8, M) = 71
   Cells(8, M) = Cells(8, M - 1) + 1
   Cells(9, M) = 81
   Cells(9, M) = Cells(9, M - 1) + 1
   Next M
  
  For i = 1 To 10
     Cells(1, i) = Cells(1, i) & Chr(10) & Cells(1, i)
   Cells(2, i) = Cells(2, i) & Chr(10) & Cells(2, i)
   Cells(3, i) = Cells(3, i) & Chr(10) & Cells(3, i)
   Cells(4, i) = Cells(4, i) & Chr(10) & Cells(4, i)
   Cells(5, i) = Cells(5, i) & Chr(10) & Cells(5, i)
   Cells(6, i) = Cells(6, i) & Chr(10) & Cells(6, i)
   Cells(7, i) = Cells(7, i) & Chr(10) & Cells(7, i)
      Cells(8, i) = Cells(8, i) & Chr(10) & Cells(8, i)
   Cells(9, i) = Cells(9, i) & Chr(10) & Cells(9, i)
 Next i
 
For Each k In Range("A1:J9").Cells
e = (Len(k) - 1) / 2
With k.Characters(Start:=1, Length:=e).Font
        .Name = "Calibri"
        .Size = 24
    End With
    With k.Characters(Start:=e + 1, Length:=e + 1 + e).Font
        .Name = "Calibri"
        .Size = 8
    End With
  Next
 
 Range("A1:J9").HorizontalAlignment = xlCenter
 Rows("1:9").Rows.AutoFit
Application.ScreenUpdating = True
End Sub

https://www.cjoint.com/c/FFkn5XhCYyj
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,
il est également possible d'aligner tes chiffres, exemple la valeur principale au centre et la petite en bas à droite par exemple
mais si cela te suufit
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

regarde si c'est mieux comme cela
https://www.cjoint.com/c/FFnml4zwf7j

Re,

alors utilise plutôt le code de ce fichier que j'ai un peu modifié pour prendre automatiquement en compte le nombre d’occurrences afin que le chiffre inférieur se trouve toujours à la même place à droite quelque soit le nombre de départ
https://www.cjoint.com/c/FFoncodIE0j

Re,

je n'ai pas tout compris mais si les numéros se suivent tu peux activer donc le code avec le bouton ensuite il suffit de cliquer sur la cellule dans la quelle tu veux changer le chiffre et dans la barre des formules juste au dessus des entête de colonne sélectionner le chiffre et le remplacer par le même nombre de lettre pour ne pas déséquilibre les alignements.

Si certaines cellules fixes doivent avoir en gros des lettre à la place des chiffres il est possible de l'inclure dans le code

Re,

pour te suivre, il faudrait parler d'une plage défini, dans le code il s'agissait de A1 à J9 tu as donc changer de plage, alors en K22 lorsque tu active le code quel est le numéro qui s'affiche !

une fois que j'aurais les bornes de ta plage il est certainement possible de le faire en activant le code en deux temps
1/ tu active le code qui incrémente les séries de chiffres
2/ tu apportes manuellement tes modifs
et tu actives l'autre partie du code pour dupliquer en petit la valeur la valeur contenue dans chaque cellule

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,
le tout est de comprendre, en fait tu veux que les chiffres du tableau K1;S23 se dupliquent avec la réduction de taille pour la deuxième valeur mais le tableau A1:I23 ne bouge pas, c'est cela

Re,

et tu recopies la totalité de la grille K1:S23 ou simplement les cellules non vides

Re,n

regarde ton fichier, j'ai amélioré le code qui ne prend en charge que les cellule non vide du deuxième tableau et n'exécute le code qu'une fois par cellule pour évier d'avoir plus de deux par ligne dans la cellule
https://www.cjoint.com/c/FFsqDDgkyaj

Re,

prend plutôt ce dernier ou j'ai ajouté le reparamétrage des hauteurs lignes 4, 8, 12 et 20
et inséré le copier de la plage K1:S23 il ne reste plus après avoir cliqué sur le bouton que faire un clic droit à l'endroit souhaité et coller (si cette fonction te géne supprime cette ligne en fin de code Range("K1:S23").Copy)
https://www.cjoint.com/c/FFsq5BNkiWj

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

dans le code on pourrait peut être inclure le coller si on connaissait l'endroit, exemple on clic sur le bouton qui ouvre une boite de dialogue pour demander confirmation ou refus du collage et le tour est joué sans erreur

pour la distance qui sait il n'y a que les montagnes qui ne se rencontrent pas cette année je vais en vendée

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

pourquoi as tu changé l'orientation de tes tableaux, les codes ne correspondent plus ce qui nous ramène à la case départ
de plus les fichiers contenant des macros doivent être enregistrés avec les extensions XLS ou XLSM
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,
alors maintenant quels sont les tableaux à traiter, A11:K19 !

Re,

mais dans L1:V19 il n'y a rien, es ce que tu vas y construire une réplique des tableaux A1:K19

Re,

je ne comprends pas, tu m'as donné un fichier avec une plage de données A1:K19
et tu me demandes de traiter L1:V19, alors quelle plage je dois traiter