Extraire une chaine de caractère

[nonoTT]

Bonjour, je recherche une formule de calcul qui me permet d'extraire un texte située à l'intérieur d'une cellule et délimitée par 2 virgules.
Ce que j'ai déjà fait :
=STXT(B2;1;TROUVE(",";B2;1)-1)
Qui me permet d'extraire par exemple de la chaîne suivante : "Sodium, ISE indirecte, Roche Cobas 6000, Réactif dédié, mmol/L, Pas de température spécifiée" la chaîne de texte "Sodium".
J'aimerais pouvoir extraire la chaîne de texte "Roche Cobas 6000" dans cette même cellule et les autres cellules concernées.

Voir exemple ci-joint.
Cordialement.

 

[Guest]

Re : Extraire une chaine de caractère

Bonjour,

Sélectionne ta colonne sans l'en-tête, Onglet: Données -> Convertir

A l'étape 2 de l'assistant sélectionne la virgule comme séparateur


Ce lien n'existe plus

Valider,

Tes données seront éclatées en colonne distinctes.

A+

 

[nonoTT]

Re : Extraire une chaine de caractère

Pas mal du tout. Cependant ma formule est incluse dans une macro d'exploitatoin des résultats.
Serait il possible d'avoir une formule pour le faire. Car je doute de pouvoir intégrer cela dans une macro.
Cordialement.
Arnaud

 

[pierrejean]

Re : Extraire une chaine de caractère

bonjour nonoTT

Avec une fonction personnalisée

 

[BOISGONTIER]

Re : Extraire une chaine de caractère

Bonjour,

=STXT(GAUCHE(B2;CHERCHE("|";SUBSTITUE(B2;",";"|";3)));CHERCHE("|";SUBSTITUE(B2;",";"|";2))+2;99)

JB

 

[Efgé]

Re : Extraire une chaine de caractère

Bonjour nonoTT_Bonjour Hasco __une proposition a mis chemin : Fonction personnelle.___Cordialement

 

[Guest]

Re : Extraire une chaine de caractère

Re,

Nono, tu peux faire la conversion par l'assistant en ayant au préalable lancer l'enregistreur de macro. tu verrais ainsi comment l'intégrer.

A+

 

[nonoTT]

Re : Extraire une chaine de caractère

Merci à vous tous.
Juste une question, comment fait-on pour voir les fonctions personnalisées ?
Je ne connais pas comment ca fonctionne ?
Cdt

 

[Efgé]

Re : Extraire une chaine de caractère

Re, Bonjour BOISGONTIER, pierrejean, __Alt+F11 et dans le module1 tu trouve le code.__Cordialement

 

[nonoTT]

Re : Extraire une chaine de caractère

Re Bonjour
J'essaie d'intégrer le code à ma macro globale mais je n'ai pas de résultats. Je pense que je ne dois pas savoir la déclarer ?
ci joint le texte de la macro

Sub table_correspondance()

    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Value = "Paramètre"
    
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Value = "Automate"

Dim i, derlig As Integer
derlig = Range("C65536").End(xlUp).Row
For i = 2 To derlig

If Range("C" & i) <> "" Then
Range("A" & i).Activate
ActiveCell.FormulaR1C1 = "=MID(RC[1],1,FIND("","",RC[1],1)-1)"
Range("B" & i).Activate
ActiveCell.FormulaR1C1 = "=apres_virgule(RC[1],3)"
End If
Next i
end sub

 

[pierrejean]

Re : Extraire une chaine de caractère

Re

Ta macro corrigée (sur pour ce qui concene apres_virgule , moins pour MID.....)

 

[Efgé]

Re : Extraire une chaine de caractère

Re à tous_Pourquoi passer par des formules ?_Une proposition:_Cordialement

 

[nonoTT]

Re : Extraire une chaine de caractère

Merci beaucoup pour tous les exemples.
J'ai une dernière demande, comment peut-on faire la même chose en partant de la fin de la chapine de texte ?
Merci

 

[pierrejean]

Re : Extraire une chaine de caractère

Re

Peux-tu expliquer ce que tu souhaites avec un exemple dans un fichier S.T.P ?

 

[nonoTT]

Re : Extraire une chaine de caractère

En fait je viens de me rendre compte (milles excuses) que le dernier exemple que l'on m'a envoyé renvoit des résultats satisfaisants mais pas à chaque fois voir exemple.
La chaîne de caractère que je souhaite extraire est toujours délimitée par une virgule avant et après mais je souhaite l'extraire depuis la fin de la chaine de caractère complète.
Voir exemples + macro
Résultat obtenu = résultat obtenu avec la macro actuelle
Résultat attendu = résultat que je souhaite obtenir.
Le seul moyen d'y parvenir est d'extraire depuis la fin de la chaîne de caractère.
voici la macro

Sub table_correspondance()
     
' As Long car depuis Xl 2007 Integer peut ne pas suffire
Dim i As Long, derlig As Long
derlig = Range("A" & Rows.Count).End(xlUp).Row
'Pas besoin de sélectionner
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Value = "Paramètre"
Range("B1").Value = "Automate"
For i = 2 To derlig
    If Range("C" & i) <> "" Then
        Range("A" & i).Value = Split(Range("C" & i), ",")(0)
        Range("B" & i).Value = Split(Range("C" & i), ",")(2)
    End If
Next i

End Sub

Cordialement