En VBA je sais faire, mais une formula, je sais pas si c'est possible
de faire un remplacement caractères par caractères en se basant sur un
tableau de correspondance.
Merci de vos lumières.
--
Les assistés du CAC 40 :
http://www.youtube.com/watch?feature=player_detailpage&v=W5Yx_diRxA8#t=48
Function chiffre_texte(rng) alphabet = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J") chiffre = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0) For i = 1 To Len(rng) x = x & Application.Index(alphabet, Application.Match(Val(Mid(rng, i, 1)), chiffre, 0)) Next chiffre_texte = x End Function
isabelle
Le 2014-04-05 15:44, Baton .rouge a écrit :
Bonjour
Comme rien n'est simple, je cherche une solution à un problème.
J'ai une colonne A avec dedant des nombres et une colonne B qui par une table de conversion doit recevoir des lettres (1=A, 2=B, 3=C,...):
En VBA je sais faire, mais une formula, je sais pas si c'est possible de faire un remplacement caractères par caractères en se basant sur un tableau de correspondance.
Function chiffre_texte(rng)
alphabet = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
chiffre = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
For i = 1 To Len(rng)
x = x & Application.Index(alphabet, Application.Match(Val(Mid(rng, i, 1)),
chiffre, 0))
Next
chiffre_texte = x
End Function
isabelle
Le 2014-04-05 15:44, Baton .rouge a écrit :
Bonjour
Comme rien n'est simple, je cherche une solution à un problème.
J'ai une colonne A avec dedant des nombres et une colonne B qui par
une table de conversion doit recevoir des lettres (1=A, 2=B, 3=C,...):
En VBA je sais faire, mais une formula, je sais pas si c'est possible
de faire un remplacement caractères par caractères en se basant sur un
tableau de correspondance.
Merci de vos lumières.
--
Les assistés du CAC 40 :
http://www.youtube.com/watch?feature=player_detailpage&v=W5Yx_diRxA8#tH
Function chiffre_texte(rng) alphabet = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J") chiffre = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0) For i = 1 To Len(rng) x = x & Application.Index(alphabet, Application.Match(Val(Mid(rng, i, 1)), chiffre, 0)) Next chiffre_texte = x End Function
isabelle
Le 2014-04-05 15:44, Baton .rouge a écrit :
Bonjour
Comme rien n'est simple, je cherche une solution à un problème.
J'ai une colonne A avec dedant des nombres et une colonne B qui par une table de conversion doit recevoir des lettres (1=A, 2=B, 3=C,...):
En VBA je sais faire, mais une formula, je sais pas si c'est possible de faire un remplacement caractères par caractères en se basant sur un tableau de correspondance.