Salut le Forum

Formule matricielle en F13 à valider par Ctrl + Shift + Enter, et à recopier vers le bas.

=MAX(SI($B$13:$B$24=E13;$C$13:$C$24;""))

Mytå

Salut le Forum

Fichier corrompu, impossible à ouvrir ...

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å

Re le Forum

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

Mytå

Re le Forum

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

Mytå

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å

Salut le Forum

L'archive Zip en téléchargement contient 2 versions du mDF XLcalendar :
• la toute dernière version 3.2 (juin 2012) qui est recommandée.
• l'ancienne version 1.1 de l'utilitaire : en effet, sous certaines configurations, il semble que la toute dernière version connaisse un problème d'affichage (l'interface semble tronquée). Dans l'attente d'une solution, je fournis donc - en secours - la mouture précédente du mDF XLcalendar pour ceux qui rencontreraient ce problème malencontreux...

Mytå 

Re le Forum

Fait une demande d'inscription sur le Forum Planète Turf, c'est dédié au Turf.

Mytå

Salut le Forum

Surement un problème de longueur de chaîne (255 ou 1024 caractères)

For Each R In Plage
        'On récupère l'adresse mail en colonne précédente(D)
        ListeMails = ListeMails & IIf(Len(ListeMails) > 0, ";", "") & R.Offset(0, -1).Text
    Next R

Ajout un Msgbox Len(ListeMails) pour voir la longueur de la chaîne.

Mytå

Salut Didier et le Forum

Starwaso avait été avisé sur le lien suivant : 

http://www.mdf-xlpages.com/modules/ne ... ?topic_id=880&forum=4

Mytå