Manipulation de Chaine de Caracteres

[Squoltahthx94]

Bonjour,


Je souhaite manipuler des Chaine de caractères, je vousai laissé l'exmple ci dessous.
Merci à tous😕

 

[tototiti2008]

Re : Manipulation de Chaine de Caracteres

Bonjour,

Pas simple,

un début par formule

=GAUCHE(B3;5)&STXT(B3;MIN(SI(ESTNUM(1*STXT(B3;LIGNE(INDIRECT("1:"&NBCAR(B3)));1));LIGNE(INDIRECT("1:"&NBCAR(B3)))));MAX(SI(ESTNUM(1*STXT(B3;LIGNE(INDIRECT("1:"&NBCAR(B3)));1));LIGNE(INDIRECT("1:"&NBCAR(B3)))))-MIN(SI(ESTNUM(1*STXT(B3;LIGNE(INDIRECT("1:"&NBCAR(B3)));1));LIGNE(INDIRECT("1:"&NBCAR(B3)))))+1)

à valider en matriciel (Ctrl+Maj+Entrée), les niveaux d'imbrications limités sur Excel 2003 ne m'ont pas permis de faire la fin

Sinon, par fonction personnalisée, à mettre dans un Module standard

Function ExtrNum(Txt As String) As String
Dim i As Long, Num As String
    Num = ""
    For i = 1 To Len(Txt)
        If IsNumeric(Mid(Txt, i, 1)) Then
            Num = Num & Mid(Txt, i, 1)
        End If
    Next i
    ExtrNum = Application.Trim(Left(Txt, 5) & Num & " " & Replace(Right(Txt, Len(Txt) - 5), Num, ""))
End Function

puis appel dans la feuille de calcul

=extrnum(B3)

 

[Squoltahthx94]

Re : Manipulation de Chaine de Caracteres

bonsoir,

Merci de ton aide mais je n'ai pas tout compris, pourrais tu développez un peu.

Merci de ton retour

 

[hoerwind]

Re : Manipulation de Chaine de Caracteres

Bonjour, salut tototiti,

Un peu laborieux, mais seul le résultat compte !

- une formule nommée qui extrait le nombre (nbre)
- une formule dans la cellule qui recompose les données
- une MFC qui applique la couleur rouge

 

[Squoltahthx94]

Re : Manipulation de Chaine de Caracteres

Bonjour,

Merci impeccable, je ne connaissait pas 'supprespace et substitue'

Merci à tous