Lettre équivalance chiffre
Bonjour,
J'ai besoin de votre aimble aide pour programmer cette fonction. En fait comme vous voyez ci-dessous, j'ai attribue un valeur à chaque lettre (table de multiplication 6)
| A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z |
| 6 | 12 | 18 | 24 | 30 | 36 | 42 | 48 | 54 | 60 | 66 | 72 | 78 | 84 | 90 | 96 | 102 | 108 | 114 | 120 | 126 | 132 | 138 | 144 | 150 | 156 |
J'aimerais programmer: si le mot "bus" est saisi, nous voulons créer un champ de saisie qui calcule la somme des mots saisis de sorte que "bus" = 252 (12+126+114=252).
Je vous remercie de votre collaboration
Cordialement
Bonjour à tous !
Et....
Sans préjuger de la suite, merci :
- de préciser, dans votre profil, la nature de notre Excel ( 2016 ? 2019 ? 365 ? etc...)
- de poster un classeur représentatif, pas une image, tronquée qui plus est.
- d'indiquer votre préférence quant à la solution proposée : VBA, formule, .....
Bonjour,
Un Excel en français, j'aime !...
Cdlt.
Bonjour
Bonjour à tous
Un essai à tester avec une fonction personnalisée.
Bye !
bonjour,
le code ASCII de "A" est 65 "B" 66 etc.
Function A6B12(txt As String) As Long
Dim i As Integer
For i = 1 To Len(txt)
A6B12 = A6B12 + ((Asc(Mid(UCase(txt), i, 1)) - 64) * 6)
Next
End Function
Sub test()
MsgBox A6B12("bus")
End Sub