Supprimer une chaîne de caractère d'une cellule Résolu/Fermé

Question

Bonjour, 

Voilà j'ai un fichier qui est composé de lignes comme les deux suivantes :

- admirabledesign.com1Admirable Design +AC0- Le site de tous les Design +AC0- Le site du Design+ACIAIg-	
ou encore
- afhe.hypotheses.org2Association fran+AOc-aise d'histoire +AOk-conomique+A

Je souhaiterais utiliser une formule excel qui me permettrait de supprimer tous les caractères qui se trouvent après le ".com" ou ".org". 
Comment faire ?

Je vous remercie infiniment.

Pierre1310 · Answer

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 +

Vaucluse · Answer

Bonjour
 si on s'en tient rigoureusement à votre demande et donc s'i ne s'agit que de .com ou .org pour un texte en A1:

=STXT(A1;1;TROUVE(SI(NB.SI(A1;"*.com*");".com";".org");A1;1)+3)
crdlmnt

 
 
Errare humanum est, perseverare diabolicum

Raymond PENTIER · Answer

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)

Raymond PENTIER · Answer

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)

michel_m · Answer

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 = NothingEnd Function

tontong · Answer

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)

JvDo · Answer

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

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

7 réponses

Discussions similaires