Supprimer une chaîne de caractère d'une cellule

Bonjour,

Tu peux utiliser

if ma_chaine like".com" then pour détécter ta chaine

ou

Replace(monText, ";", ".")

ça remplace les ";" par des "." dans ton text (tu peux aussi mettre une cellule)

Dans ton cas

Cells(i,j)=Replace(Cells(i,j),".com","")

a +

Bonjour Raoufla.

Dans le texte placé en A1, il faut d'abord repérer l'emplacement de ".com" ou de ".org" ; ensuite il suffira d'extraire la partie gauche du texte.
En B1, la formule

=SIERREUR(TROUVE(".com";A1);TROUVE(".org";A1))

affiche l'emplacement du point de ".com" ou de ".org".
Pour éliminer les caractères placés après ".com" ou ".org", on utilisera la formule

=GAUCHE(A1;B1+3)

En fusionnant ces deux formules, on aboutit à la formule unique

=GAUCHE(A1;SIERREUR(TROUVE(".com";A1);TROUVE(".org";A1))+3)

qui fonctionne bien !
https://www.cjoint.com/c/ELwoKezu4lF
Je n'ai utilisé ici que des fonctions Excel classiques, et pas de VBA.

Cordialement.
C'est bien, la retraite ! Surtout aux Antilles ... :-) 
Raymond (INSA, AFPA, CF/R)

Raoufla, suite à tes posts #6, 7, 8 et 10, voici ma solution :
=GAUCHE(A3;SIERREUR(TROUVE(".fr";A3)+2;SIERREUR(TROUVE(".org";A3)+3;TROUVE(".com";A3)+3)))
C'est bien, la retraite ! Surtout aux Antilles ... :-) 
Raymond (INSA, AFPA, CF/R)

Bonjour à tous,

ca devrait être possible avec une matricielle mais...

extraction quelque soit le suffixe (org, fr, eu, com, uk, net....) en extrayant le 1° chiffre après le suffixe par une fonction personnalisée à insérer dans un module
(en espérant qu'il y ait toujours un chiffre juste après le suffixe du site)

=GAUCHE(B2;(CHERCHE(extrait_chiffre(B2);B2;1)-1))

et la fonction personnalisée

Option Explicit
'---------------------------
Function extrait_chiffre(ByRef texto As String) As Byte
    Dim reg As Object
    Dim extraction As Object
    Dim digit
    Set reg = CreateObject("vbscript.regexp")
    'on travaille sur toute la cellule
    reg.Global = True
    'le modèle est un caractère "digital ("d")
    reg.Pattern = "(\d)"
    ' éxécute l'extraction svt modèle (collection des digits...)
    Set extraction = reg.Execute(texto)
    For Each digit In extraction
        ' cherche le premier chiffre présent
        If IsNumeric(digit) Then
            extrait_chiffre = digit
            Exit For
        End If
    Next digit
    Set extraction = Nothing
    Set reg = Nothing
End Function

Bonjour à tous,
On peut aussi bâtir une formule avec la fonction Substitue:
=STXT(A2;1;CHERCHE("µ";SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;".fr";"µ");".org";"µ");".com";"µ"))-1)

Bonjour à tous,

une matricielle qui gère les extensions que l'on veut :

=GAUCHE(BR13;MAX(SIERREUR(TROUVE({".com";".org";".fr";".eu";".uk";".be";".de";".sp"};BR13);""))-1+NBCAR(INDEX({".com";".org";".fr";".eu";".uk";".be";".de";".sp"};SOMMEPROD((MAX(SIERREUR(TROUVE({".com";".org";".fr";".eu";".uk";".be";".de";".sp"};BR13);""))=SIERREUR(TROUVE({".com";".org";".fr";".eu";".uk";".be";".de";".sp"};BR13);""))*LIGNE($1:$8)))))

j'ai choisi 8 cas dans le tableau {".com";".org";".fr";".eu";".uk";".be";".de";".sp"}. Il suffit de l'adapter aux besoins.
Le nombre de choix intervient dans LIGNE($1:$8). Il faut modifier le 8 si on change le nombre de choix.
Je travaille sur la cellule BR13; il suffit de la remplacer par la cellule kivabien.
Le SOMMEPROD() remplace un EQUIV() qui n'a pas voulu fonctionner. Il retourne la position de l'extension qui a été trouvée.
L'INDEX() retourne l'extension elle-même.
Le NBCAR() fournit le nombre de caractères de l'extension trouvée.
Le MAX(SIERREUR()) fournit la position de la chaîne trouvée.

naturellement, il faut valider par CTRL+MAJ+ENTER.

cordialement