bonjour,
solution via une macro (à installer dans ton classeur). Une fois installée sélectionner les cellules concernées et lancer la macro, via alt-F8
Sub aargh()
'met les 2 premiers mots de chaque cellule sélectionnée en italique
For Each cel In Selection
With cel
v = .Value
s = InStr(v, " ")
If s > 0 Then
s1 = InStr(s + 1, v, " ")
If s1 = 0 Then s1 = s
.Characters(1, s1 - 1).Font.FontStyle = "Italic"
End If
End With
Next
End Sub
pour installer la macro
- copier le code du forum (ctrl-c)
-aller dans excel, faire alt-F11, ceci ouvre une fenetre VBA,
- faire menu insérer,-> module
- coller le code (ctrl-v)
- faire alt-F11, retour à excel
- sauver le classeur avec la macro (choisir extension xlsm)
- la macro est installée dans le classeur et disponible.