Remplacer texte par autre texte

Résolu
hr92 Messages postés 38 Statut Membre -  
hr92 Messages postés 38 Statut Membre -
Bonjour,

Je n'arrive pas à trouver la bonne formule pour remplacer un texte par un autre. Je m'explique, j'ai dans une cellule "24-Jean.Thomas:validé Bac" et j'aimerai transformée cette cellule par "24-Jean.Thomas:Bac", c'est à dire que dès lors que dans une cellule on a " xxxx Bac", on ait "Bac" directement.

Comment faire ?

Merci

6 réponses

  1. Thorak83 Messages postés 1140 Statut Membre 156
     
    Bonjour,

    Faire un chercher/remplacer
    Chercher "validé Bac" et remplacer par "Bac"

    Bien sur ce sera manuel donc a faire a chaque fois

    Cordialement
    0
  2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonjour
    le remplacement peut se faire sur toute la feuille en une seule manip
    si toutefois vous voulez une formule:
    =SUBSTITUE(A1;"Validé bac";"bac")
    crdlmnt
    0
  3. hr92 Messages postés 38 Statut Membre 2
     
    @Vaucluse: la formule ne fonctionne pas
    @Thorak83: C'est vrai que ca marche mais j'aimerai si possible le rendre automatisable car je serai amener à le faire tous les 2 semaines
    merci
    0
  4. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Ah?
    probablement parce que votre texte dans la formule n'est pas conforme à celui de la cellule.
    (Par exemple sensible à la casse ne fonctionne pas entre majuscule et minuscule)
    voir ici:
    https://www.cjoint.com/?CFvqzhszRAG

    crdlmnt

    Errare humanum est, perseverare diabolicum
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Autre option
    (macro par enregistrement)

    Sub Bac()

    Sheets("Feuil1").Select
    Cells.Select
    Selection.Replace What:="validé Bac", Replacement:="Bac", LookAt:=xlPart _
    , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Range("A1").Select
    End Sub


    Va remplacer dans toutes les cellules contenant validé Bac le texte par Bac
    Il suffit de
    Coller le texte dans un module VBA
    placer le nom de la feuille entre guillemets dans la ligne Sheets("Feuil1").select
    et de placer un bouton pour lancer la macro quand nécessaire

    crdlmnt
    0
  7. hr92 Messages postés 38 Statut Membre 2
     
    @Vaucluse Autantpour moi !! Effectivement la formule fonctionne très bien. Merci beaucoup !
    0