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

Et voici la réponse:
 
ActiveCell = Left(ActiveCell,47) & "[...]"
 
Bonne fin de soirée à tous et toutes. Désolé de vous avoir sollicité pour rien.