Re: Aide formule Excel |
Titre du sujet : Re: Aide formule Excel par Mytå le 27/02/2014 00:46:00 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å |
Forums