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,

Hello Pierre-Jean

@nonTT:

Sub table_correspondance()
     
' As Long car depuis Xl 2007 Integer peut ne pas suffire
Dim i As Long, derlig As Long
Dim t() As String
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
        t = Split(Range("C" & i), ",")
        Range("A" & i).Value =t(0)
        Range("B" & i).Value = t(UBound(t) - 3)
    End If
Next i
End Sub

A+

 

[nonoTT]

Re : Extraire une chaine de caractère

Moi je dis bravo !

 

[pierrejean]

Re : Extraire une chaine de caractère

Re

Salut Hasco

teste:

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
        x = Split(Range("C" & i), ",")
        Range("A" & i).Value = x(0)
        Range("B" & i).Value = x(x - 3)
    End If
Next i
End Sub

 

[Guest]

Re : Extraire une chaine de caractère

Re,

Hello Pierre-Jean, grâce à toi, j'ai vu que j'avais oublié de modifier des lignes. C'est fait.

A+

[Edition] Arf...Pierre-Jean te manquerait-il les mêmes neurones que les miens?

 

[pierrejean]

Re : Extraire une chaine de caractère

Puisque c'est comme ça ,je modifie aussi NA !!