Bonjour à tous,

j'ai un petit souci avec une formule dans mes 6 colonnes (voir fichier)

Je souhaiterais voir apparaître pour cette exemple :
Da 0a 1m 6a 2a Dm 0m

Ce que je voudrais > D 10 1m 6 2 Dm 10m

En gros je souhaite faire disparaître les "a" et faire ressortir les "m" et transfomer les "0" en 10 pour chacune des colonnes
Le fichier est téléchargeable à l'adresse suivante : dl.free.fr /r74VCepIB

Formule actuelle : =STXT(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(K3;"(13) ";"");"(12) ";"");"(11) ";"");"Deb";"");"A";"0");"T";"0");"10";"0");(COLONNE()-16)*3-2;1)

Merci d'avance.

Rej

Salut le Forum

En utilisant les expressions régulières

Function Musique(Valeur As String)
    Dim regEx As Object

    Application.Volatile
    Set regEx = CreateObject("VBScript.RegExp")

    With regEx
        .IgnoreCase = False
        .Global = True
        .Pattern = " "
        Valeur = .Replace(Valeur, "")
        .Pattern = "\([0-9][0-9]\)"
        Valeur = .Replace(Valeur, "")
        .Pattern = "[a]"
        Valeur = .Replace(Valeur, " ")
        .Pattern = "[m]"
        Valeur = .Replace(Valeur, "m ")
        .Pattern = "1[1-9]"
        Valeur = .Replace(Valeur, "0 ")
        .Pattern = "0"
        Valeur = .Replace(Valeur, "10")
    End With

    Musique = Valeur
    Set regEx = Nothing

End Function

Utilisation de la fonction

=Musique(K3)

Mytå

Merci Myta c'est kool, mais je serais imcappable de l'insérer dans le fichier

Re le Forum

Le fichier : http://cjoint.com/?3BAolGyr53P

Mytå

MERCI Mytha, impeccable mais j'aimerais la perf dans chaque colonnes, six au total.

c'est possible ?

Re le Forum

Version modifiée : http://cjoint.com/?3BAwqfb4ljk

Mytå

Re le Forum

Pour travailler sur un nombre de colonnes variables.

Function Musique(Valeur As String)
    Dim I As Byte, Cols As Byte
    Dim regEx As Object, Temp() As String

    Application.Volatile
    Set regEx = CreateObject("VBScript.RegExp")

    With regEx
        .IgnoreCase = False
        .Global = True
        .Pattern = " "
        Valeur = .Replace(Valeur, "")
        .Pattern = "\([0-9][0-9]\)"
        Valeur = .Replace(Valeur, "")
        .Pattern = "[a]"
        Valeur = .Replace(Valeur, " ")
        .Pattern = "[m]"
        Valeur = .Replace(Valeur, "m ")
        .Pattern = "1[1-9]"
        Valeur = .Replace(Valeur, "0 ")
        .Pattern = "0"
        Valeur = .Replace(Valeur, "10")
    End With

    Temp = Split(Valeur, " ")
    Cols = Application.Caller.Columns.Count
    If UBound(Temp) < Cols Then
        ReDim Preserve Temp(Cols - 1)
        For I = UBound(Temp) To Cols - 1
            Temp(I) = ""
        Next I
    End If

    Musique = Temp
    Set regEx = Nothing
    
End Function

Utilisation de la formule matricielle (Valider par Ctrl+Shift+Enter) sur la plage de cellules.

=Musique(K3)

Après validation des accolades devraient apparaître.
{=Musique(K3)}

Mytå

Salut Myta,

Merci, c'est exactement ce que je voulais ! D'autant que ce n'est pas la 1ére fois que tu m'aides donc doublement merci.

Chakir