Discussion :

[tonyC]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
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

Merci d'avance pour toute réponse.
Bonne fin de journée.

[SfJ5Rpw8]

et les caractéres qui suivent le 47 tu en fait Quoi ??
sinon tu as les fonctions de chaines pour cela ..

left
right....
Mid

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell = Left(ActiveCell,47) & "[...]"

[tonyC]

Bonsoir,
Merci pour la prompte réponse. J'aimerais qu'il se passe la chose suivante:

Sélectionner les cellules qui contiennent la string "Titr"
Mettre en gras la string "Titre :" (ce sont les 7 premiers caractères)
Depuis le caractères 47, sélectionner toute la fin du texte et le remplacer par "[...]"

[tonyC]

Je viens de tester le code en le mettant là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Mise en gras du mot Titre    
   With Selection.Characters(Start:=1, Length:=7).Font 
        .FontStyle = "Gras" 
   End With 
   ActiveCell = Left(ActiveCell,47) & "[...]"

L'effet est bien celui escompté! Merci beaucoup. Seul petit effet indésirable, tout est en gras dans la cellule, mais je suis sûr qu'en cherchant un peu, je parviendrai à le placer au bon endroit...
Merci encore, et bonne soirée.

[SfJ5Rpw8]

oui en changeant l'ordre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
ActiveCell.Characters.Font.Bold = False
 ActiveCell = Left(ActiveCell, 47) & "[...]"
 With ActiveCell.Characters(Start:=1, Length:=7).Font
        .FontStyle = "Gras"
   End With

[tonyC]

Grand merci pour cette "final touch"!!!