Bonjour,
J'aimerais qu'à partir du 47 caractères depuis la gauche dans une cellule saisie selon un critère précis (la présence de la string "Titr" ), le texte soit remplacé par trois petits points entre crochets carrés [...]
J'ai écrit cela ainsi:
Sub Titre()
On Error Resume Next
Dim val
Dim c
For Each c In Range("A1:A300" )
'Trouve la valeur Titr
Cells.Find(What:="Titr", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
val = Left(ActiveCell, 4)
If val = "Titr" Then
ActiveCell.Select
'Mise en gras du mot Titre
With Selection.Characters(Start:=1, Length:=7).Font
.FontStyle = "Gras"
End With
'Pour l'instant, c'est libellé ainsi, ce qui supprime simplement les derniers caractères, mais c'est là qu'il faudrait
'dire "remplace depuis le carctère 47 par [...]
With Selection.Characters(Start:=47, Length:=2000).Delete
End With
End If
Next
End Sub
Pour l'instant, l'effet est donc uniquement la suppression de la fin de la phrase. Quelqu'un sait-il comment formuler la requête?
Merci d'avance pour toute réponse et bonne fin de journée
