Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1567 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Excel] Remplacer un texte dans une cellule exel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Excel] Remplacer un texte dans une cellule exel

n°1356206
tonyC11
Posté le 28-04-2006 à 17:58:05  profilanswer
 

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

mood
Publicité
Posté le 28-04-2006 à 17:58:05  profilanswer
 

n°1356234
tonyC11
Posté le 28-04-2006 à 18:54:44  profilanswer
 

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.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Excel] Remplacer un texte dans une cellule exel

 

Sujets relatifs
import depuis un tableur excel[excel] comptage de contenu de case
VB via Excel : comment fermer un userForm ?[C#] Créer un fichier Excel
[vba Excel 97]sous excel séparer les éléments d'une cellule selon un "/"
RESOLU :comment générer un fichier excel depuis CshellRemplacer 2'500 en 2500
selection cellule 
Plus de sujets relatifs à : [Excel] Remplacer un texte dans une cellule exel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR