Remplacer un texte dans une cellule Excel à partir d'un point donné

Version imprimable

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:

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.

28/04/2006, 18h36
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:

ActiveCell = Left(ActiveCell,47) & "[...]"
28/04/2006, 18h45
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 "[...]"
28/04/2006, 18h52
tonyC
Je viens de tester le code en le mettant là:
Code:

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.

oui en changeant l'ordre :

Code:

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

28/04/2006, 19h05
tonyC

Grand merci pour cette "final touch"!!!