Aide formule Excel | ||
---|---|---|
Inscription: 05/10/2011
Messages:
35
Système d'exploitation: PC Version Excel utilisée: 2003, 2007 |
Posté le : 25-02-2014 13h36
Bonjour à tous,
Ce que je voudrais > D 10 1m 6 2 Dm 10m
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) |
|
|
Re: Aide formule Excel | ||
---|---|---|
Inscription: 17/08/2007
De Québec, Canada
Messages:
180
Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003 |
Posté le : 26-02-2014 02h55
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å
Edité par Mytå le 26/02/2014 22:01:53
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre. |
|
|
Re: Aide formule Excel | ||
---|---|---|
Inscription: 05/10/2011
Messages:
35
Système d'exploitation: PC Version Excel utilisée: 2003, 2007 |
Posté le : 26-02-2014 12h58
Merci Myta c'est kool, mais je serais imcappable de l'insérer dans le fichier |
|
|
Re: Aide formule Excel | ||
---|---|---|
Inscription: 17/08/2007
De Québec, Canada
Messages:
180
Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003 |
Posté le : 26-02-2014 14h15
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre. |
|
|
Re: Aide formule Excel | ||
---|---|---|
Inscription: 05/10/2011
Messages:
35
Système d'exploitation: PC Version Excel utilisée: 2003, 2007 |
Posté le : 26-02-2014 16h17
MERCI Mytha, impeccable mais j'aimerais la perf dans chaque colonnes, six au total. c'est possible ? |
|
|
Re: Aide formule Excel | ||
---|---|---|
Inscription: 17/08/2007
De Québec, Canada
Messages:
180
Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003 |
Posté le : 26-02-2014 22h17
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre. |
|
|
Re: Aide formule Excel | ||
---|---|---|
Inscription: 17/08/2007
De Québec, Canada
Messages:
180
Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003 |
Posté le : 27-02-2014 00h46
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å
Edité par Mytå le 27/02/2014 12:42:21
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre. |
|
|
Re: Aide formule Excel | ||
---|---|---|
Inscription: 05/10/2011
Messages:
35
Système d'exploitation: PC Version Excel utilisée: 2003, 2007 |
Posté le : 27-02-2014 12h43
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
|
|
|