Grandeur des caractères

Bonjour

Oui c'est possible

Une fois les 2 caractères entrés dans la cellule tu vas dans la barre de formule surligner le 1er caractère avant de choisir la taille de 14 puis tu refais la manip avec le second caractère

De la même manière tu peux mettre l'un en gras et pas l'autre, les mettre de 2 couleurs différentes

Cdlmnt

Via

Bonjour à tous les deux

Petite macro qui s'applique à la plage selectionnée

Public Sub QD()
Dim cell As Range
For Each cell In Selection
  If Len(cell.Value) >= 2 Then
    cell.Characters(1, 1).Font.Size = 14
    cell.Characters(2, 1).Font.Size = 10
  End If
Next cell
End Sub

Cdlmnt

10 cellules à traiter ce n'est pas encore la mort du petit cheval!

Voilà le code VBA à mettre dans un module de l'éditeur VBA

Tu peux modifier dans le code la plage traitée ou les tailles de caractères

​

Sub police()
For Each c In Range("E20:K20")
c.Select
ActiveCell.Characters(Start:=1, Length:=1).Font.Size = 14
ActiveCell.Characters(Start:=2, Length:=1).Font.Size = 10
Next
End Sub

​
​

le code que tu me donnes je le met dans le module de la feuille?

Il vaut mieux le mettre dans un module général (Module 1 par exemple), comme ça, il peut être utilisé dans n'importe quelle feuille

Cdlmnt

Bonsoir via55

merci pour ton aide

Le soucis j'ai une plage qui va de E20:K20

tu n'auras pas un code vba pour régler ce problème

Bonsoir ccm81

merci pour ton aide

le code que tu me donnes je le met dans le module de la feuille?

Bonjour

Merci à tous les 2 pour votre aide ça fonctionne bien

Crdlt