Chaine caractères en italique

Bonjour,

J'aimerais savoir si ce serait possible de faire ceci en vba : j'ai des chaines de caractère "Recherche Avancée" ou "Logiciel excel Pratique" j'aimerais passer tout les caractères en italique jusqu'à la premiere majuscule comme ceci : "Recherche Avancée" ou "Logiciel excel Pratique".

Possible?

Merci,

Bonjour,

Merci de joindre un exemple.

voici ma macro :

Dim ex As Integer
For ex = 2 To Len(Range("A1").Value)
If Mid(Range("A1").Value, ex, 1) Like "[A-Z]" Or Mid(Range("A1").Value, ex, 1) Like "(" Then
Range("A1").Characters(Start:=0, Length:=ex - 1).Font.FontStyle = "italique"
End If
Next ex

et mon classeur : en A1 comment c'est à l'origine et en A3 comment je veux formaté la chaine.

Il me selectionne bien ce dont j'ai besoin mais si par exemple il y a plusieurs majuscules dans la chaine il ne s'arrete pas à la premiere : pour cette chaine par exemple :

Taxon : Psiadia altissima Benth. et Hook. f.

il va me prendre : Psiadia altissima Benth. et au lieu de prendre Psiadia altissima

Je bloque ...

Personne ?

Bonjour

Une question : Tu fournis un fichier sans macro et une macro, pourquoi ne pas lier les deux ?

Macro à tester

Option Explicit

Sub test()
Dim Ex As Integer
Dim Depart As Integer
Dim Longueur As Integer

  Longueur = Len(Range("A1").Value)
  For Ex = 2 To Longueur
    If Mid(Range("A1").Value, Ex, 1) Like "[A-Z]" Or Mid(Range("A1").Value, Ex, 1) Like "(" Then
      If Depart = 0 Then
        Depart = Ex
      Else
        Longueur = Ex - Depart
        Exit For
      End If
    End If
  Next Ex
  Range("A1").Characters(Start:=Depart, Length:=Longueur).Font.FontStyle = "italique"
End Sub