suppression partielle dans une cellule

[esteou]

J'ai importé une très longue liste et il me faut supprimer qu'une partie des caractères dans une cellule.
Exemple complet :

la cellule affiche :
"DupontLajoie Jeannot - htpp://www.dupontlajoie.com"

Je voudrais uniquement supprimer "- htpp://www.dupontlajoie.com" afin qu'il ne reste dans la cellule que "DupontLajoie Jeannot".

Est ce possible ?
Merci.

 

[fanfan38]

Re : suppression partielle dans une cellule

Bonjour
Oui c'est possible. Y a t'il toujours le caractère - ?
Sub temp()
mavar = ""
For i = 1 To Len(Range("a1").Value)
monchar = Mid(Range("a1").Value, i, 1)
If monchar <> "-" Then
mavar = mavar & monchar
Else
Exit For
End If
Next
Range("B1").Value = mavar
End Sub

A+ François

 

[SergiO]

Re : suppression partielle dans une cellule

Bonjour esteou,fanfan38

Même principe que fanfan38 par formule :

=STXT(A1;1;CHERCHE("-";A1)-1)

@+

 

[Pierrot93]

Re : suppression partielle dans une cellule

Bonjour Esteou, Francois, Sergio

une autre solution vba, si c'est toujours le 1er "-" qui peut être utilisé comme point de repère :

Dim t
t = Split(Range("A1").Value, "-")
Range("A1").Value = t(LBound(t))

bonne journée
@+

 

[Pierrot93]

Re : suppression partielle dans une cellule

Re

pour boucler sur la colonne A :

Sub test()
Dim c As Range, t
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    t = Split(c.Value, "-")
    c.Value = t(LBound(t))
    Erase t
Next c
End Sub

@+

 

[gilbert_RGI]

Re : suppression partielle dans une cellule

Bonjour

en A1 => "DupontLajoie Jeannot - htpp://www.dupontlajoie.com"


si les guillemets n'existent pas

=GAUCHE(A1;TROUVE("-";A1;1)-2)

si les guillemets existent

=DROITE(GAUCHE(A1;TROUVE("-";A1;1)-2);NBCAR(GAUCHE(A1;TROUVE("-";A1;1)-3)))

Cdlt

RGI

 

[esteou]

Re : suppression partielle dans une cellule

C'est génial. Toutes les formules fonctionnent.

Quand je pense q'hier soir, je me suis tapé 300 lignes à la main !!!!!

J'ai encore besoin d'une formule mais vous ayant fait phosphoré ce matin, je vous réserve ma question pour demain matin.

Merci.

Claude