Supprimer une chaîne de caractère d'une cellule [Résolu]

Réponse 2 / 7

Pierre1310 Messages postés 8564 Date d'inscription Statut Membre Dernière intervention 651

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 +

Raoufia

Merci beaucoup Pierre1310 pour cette réponse rapide.
Je ne suis pas très douée avec les formules et je pense que ma question a été mal posée.

J'ai donc en A;1 la chaine suivante
admirabledesign.com1Admirable Design +AC0- Le site de tous les Design +AC0- Le site du Design+ACIAIg-
en A;2 la chaîne
afhe.hypotheses.org2Association fran+AOc-aise d'histoire +AOk-conomique+A
ainsi de suite...

Mon but est d'obtenir en B;1 admirabledesign.com et en B2 afhe.hypotheses.org

Le problème est que dans ma colonne A le nombre de caractères à extraire n'est pas toujours le même.

Mille mercis.

Pierre1310 Messages postés 8564 Date d'inscription Statut Membre Dernière intervention 651

Donc tu veux couper ta chaine plutôt?

Raoufia

Oui. Vaucluse m' a proposé une réponse qui colle bien avec les .org et .com mais pas les .fr

Réponse 3 / 7

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)

Réponse 4 / 7

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)

Raoufia

Merci beaucoup pour le temps consacré à ma demande.
C'est parfait.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 315

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

Raoufia

Merci beaucoup

Réponse 6 / 7

tontong Messages postés 2572 Date d'inscription Statut Membre Dernière intervention 1 062

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)

Raoufia

Merci

Réponse 7 / 7

JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention 859

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

Raoufia

Merci beaucoup

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

7 réponses

Votre réponse

Discussions similaires