VBA - Réduction de la taille de la police

Bonsoir,

Dans le fichier ci-joint, je voudrais modifier mon code - qui place un résultat dans la cellule A2 - de manière à obtenir le résultat indiqué dans la cellule A5.

C'est à dire que dans la cellule A2 il y a au préalable une taille de police de 14 et qu'après avoir inscrit le texte avec le code déjà en place, il faudrait encore réduire la taille de la deuxième partie du texte - dès l'ouverture de la parenthèse - avec un taille de police de 10.

Je ne peux pas placer ce texte dans deux cellules différentes.

Pouvez-vous m'aider ?

Bonsoir yvouille le forum

là plus le temps mais demain matin a+

Papou

Salut le forum

Une façon de le faire en considérant que ta cellule est déjà en taille 14

Sub Démo()
 Dim Xxxx As String

Xxxx = InputBox("Inscrire ici un prénom")
  With Range("A2")
      .Value = "Décompte " & Xxxx & " (Etat le " & Date & " à " & Format(Time, "hh:mm") & ")"
      .Characters(Start:=Len(Xxxx) + 11).Font.Size = 10
 End With

End Sub

Pour prévoir le coup

Sub Démo()
 Dim Xxxx As String

Xxxx = InputBox("Inscrire ici un prénom")
  With Range("A2")
      .Value = "Décompte " & Xxxx & " (Etat le " & Date & " à " & Format(Time, "hh:mm") & ")"
      .Characters(Length:=Len(Xxxx) + 9).Font.Size = 14
      .Characters(Start:=Len(Xxxx) + 11).Font.Size = 10
 End With

End Sub

Mytå

Bonsoir

Juste pour le sport

Sub Démo()
Dim Xxxx As String

  Xxxx = InputBox("Inscrire ici un prénom")

  With Range("A10")
    .Font.Size = 14
    .Value = "Décompte " & Xxxx & " (Etat le " & Date & " à " & Format(Time, "hh:mm") & ")"
      .Characters(Start:=InStr(1, .Value, "("), Length:=InStr(1, .Value, ")") - InStr(1, .Value, "(") + 1).Font.Size = 10
  End With
End Sub

Bonjour,

Un tout grand merci à vous tous pour vos nombreuses réponses ; toutes fonctionnent à merveille.

Je vous souhaite également une très belle année 2012

Re le forum

Au plaisir de se croiser de nouveau sur d'autre ficelle.

Bonne Année 2012!

Qu'elle soit riche de joie et de gaieté,

qu'elle déborde de bonheur et de prospérité

et que tous les voeux formulés deviennent réalité !

Mytå