Extraire une chaine de caractère

nonoTT · 24 Janvier 2012

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 · 26 Janvier 2012

Re : Extraire une chaine de caractère

Bonjour,

Hello Pierre-Jean

@nonTT:

Code:

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 · 26 Janvier 2012

Re : Extraire une chaine de caractère

Moi je dis bravo !

pierrejean · 26 Janvier 2012

Re : Extraire une chaine de caractère

Re

Salut Hasco

teste:

Code:

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 · 26 Janvier 2012

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 · 26 Janvier 2012

Re : Extraire une chaine de caractère

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

Extraire une chaine de caractère

nonoTT

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

nonoTT

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Guest

Guest

pierrejean

XLDnaute Barbatruc

Discussions similaires