Modifier caractères par VBA dans un texte issu d'une formule

Bonjour au forum,

J'essaie de modifier du texte (gras, italique, etc.) par VBA d'un texte issu d'une formule sans succès.

J'arrive sans problème à faire ces modification dans une cellule où le texte est tapé dans la cellule, mais lorsque c'est un texte issue d'une formule, cela ne fonctionne pas (cf. cellule verte dans fichier joint).

Est-ce possible et si oui, comment ?

Merci d'avance :)

bonjour Nrev74,

non, ce n'est pas possible, c'est un des 2, oubien la formule oubien VBA.

Oubien la formule fait son boulot et puis VBA la met en texte + l'adapte, mais alors la formule est disparue.

Sub Synth()

     Dim I%, fin As Integer
     Dim c     As Range

     Application.ScreenUpdating = False
     For Each c In Range("D6:D13").Cells
          If c.Row = 12 Then
              c.FormulaR1C1 = "=R6C & "" "" & R7C"     'créer la formule
               c.Value = c.Value             'remplacer par le contenu
          End If

          If Not IsNumeric(c.Value) Then
               fin = Len(c.Value)
               For I = Len(CStr(Val(c.Value))) + 1 To fin
                    If IsNumeric(Mid(c.Value, I, 1)) = True Then
                         c.Characters(I, 1).Font.Subscript = True
                    ElseIf Mid(c.Value, I, 1) = "a" Or Mid(c.Value, I, 1) = "b" Then
                         c.Characters(I, 1).Font.Superscript = True
                    End If
               Next
          End If
     Next c
     Application.ScreenUpdating = True

End Sub

Bonjour BsAlv,

Merci pour la réponse.

Si je comprends bien, la seule solution serait donc d'insérer par vba les formules dans chaque cellules, puis de copier le résultat pour écraser la formule par celui-ci puis de lancer la procédure de mise en forme ?

Est-ce possible de me donner un exemple de comment intégrer ceci proprement dans ma procédure, avec par exemple cette formule en D3 : =SI($C$13=0;"";RECHERCHEX($C$13;PhenoListe;HaploListe;)) ?

Merci pour l'aide

re,

vous avez un fichier (anonymisé) avec ces 2 plages ?

Re,

Merci beaucoup pour la réponse, j'ai pu trouvé la solution grâce à vous

Excellente journée à vous