couper des mots dans des cellules

[bobafric]

Bonjour à tous
Je voudrais dans une colonne supprimer une partie d'un texte en gardant l'autre.
Exemple: dans la cellule A1 C:\PHOTO\VASE1
A2 C:\PHOTO\VASE2
A3 C:\PHOTO\VASE3
je veux supprimer C:\photo\ pour ne laisser dans chaque cellules
A1 VASE1
A2 VASE2
A3 VASE3
ça ne marche pas avec la fonction rechercher et remplacer de Excel

Merci d'avance
BOB

 

[Pierrot93]

Re : couper des mots dans des cellules

Bonjour Bob

chez moi pas de problème avec la fonction "remplacer" (Excel 2003)... D'où viennent tes données, il s'agit d'une importation ?

bon après midi
@+

 

[bobafric]

Re : couper des mots dans des cellules

Merci Masterdisco
C'était tellement simple que j'en ai honte
Merci pierrot
A bientôt
Bob

 

[SubEndSub]

Re : couper des mots dans des cellules

Bonjour chez vous


Une proposition en VBA

Sub macro()
Range("A1:A" & [A65536].End(xlUp).Row).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="\", FieldInfo:=Array(Array(1, 1), Array(2, 9), Array(3, 1))
With Range("C1")
    .FormulaR1C1 = "=RC[-2]&""\""&RC[-1]"
    .AutoFill Destination:=Feuil1.Range("C1:C" & Feuil1.[B65536].End(xlUp).Row)
    .Resize([B65536].End(xlUp).Row, 1).Value = .Resize([B65536].End(xlUp).Row, 1).Value
    .Offset(, -2).Resize([B65536].End(xlUp).Row, 2).Delete Shift:=xlToLeft
End With
End Sub