Valeur des lettres

Efgé

XLDnaute Barbatruc

• 18 Mars 2019

• #2

Bonjour Mapat
Avec une fonction personnalisé ?
Cordialement

 

Pièces jointes

• Valeur des lettres.xlsm

  15.7 KB · Affichages: 12

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 18 Mars 2019

• #3

Re
Evidemment ça parait simple
Si peu de lignes pour un beau résultat
Pourrais-tu, si tu as 2 minutes, commenter le code
Je ne sais pas programmer mais c'est toujours intéressant d'essayer de comprendre
Merci et cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 18 Mars 2019

• #4

Re
Voici le code commenté.
Il y a une partie dans le module Thisworkbook et la fonction dans le module 1

Cordialement

 

Pièces jointes

• Valeur_des_lettres_Commenté.xlsm

  17 KB · Affichages: 12

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 18 Mars 2019

• #5

Bonjour,

par formule :

VB:

=SOMMEPROD(CODE(STXT(MAJUSCULE(A2);LIGNE(INDIRECT("$1:$"&NBCAR(A2)));1))-64)

eric

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 18 Mars 2019

• #6

Bonjour eriiiic

eriiiic à dit:

=SOMMEPROD(CODE(STXT(MAJUSCULE(A2);LIGNE(INDIRECT("$1:$"&NBCAR(A2)));1))-64)

Cliquez pour agrandir...

Tout dépend si l'on doit prendre en compte les espaces, les chiffres, les caractères spéciaux, etc....

Cordialement

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 18 Mars 2019

• #7

Re

Merci bien pour ce code avec les commentaires.
C'est intéressant aussi avec formule mais c'est vrai que si il y a un espace, le résultat n'est pas bon
Je prends quand même
Merci à vous deux
Bien cordialement

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 18 Mars 2019

• #8

Tout dépend si l'on doit prendre en compte les espaces, les chiffres, les caractères spéciaux, etc....

Cliquez pour agrandir...

S'il y a des espaces ce n'est plus UN mot ;-) Je n'avais pas ouvert le fichier...
Sinon il y a Substitue() pour éliminer/remplacer des caractères :

Code:

=SOMMEPROD(CODE(STXT(SUBSTITUE(MAJUSCULE(A2);" ";"");LIGNE(INDIRECT("$1:$"&NBCAR(SUBSTITUE(A2;" ";""))));1))-64)

eric

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 18 Mars 2019

• #9

Ah super
C'est bien aussi avec cette solution
Et que signifie le -64 à la fin de la formule ?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 18 Mars 2019

• #10

code ASCII du A = 65.
Donc code-64 pour avoir de 1 à 26
eric

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 20 Mars 2019

• #11

Re
Merci pour cette explication
Bonne soirée à vous eux

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mars 2019

• #12

Bonsoir Mapat, Efgé, eriiiic,

Cette fonction VBA ne comptabilise que les lettres de l'alphabet :

VB:

Dim a 'mémorise la variable

Function SommeLettres&(t)
Dim i%
t = UCase(t) 'majuscules
If Not IsArray(a) Then 'bloc calculé une seule fois pour gagner du temps
    ReDim a(1 To 255)
    For i = 1 To 26
        a(i + 64) = i
    Next
End If
For i = 1 To Len(t)
    SommeLettres = SommeLettres + a(Asc(Mid(t, i, 1)))
Next
End Function

Bonne nuit.

 

Pièces jointes

• Valeur des lettres VBA(1).xlsm

  21.5 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mars 2019

• #13

Bonjour Mapat, Efgé, eriiiic,

Une solution par formule dans le fichier joint :

Code:

=SOMMEPROD((MatCode-64)*(MatCode>64)*(MatCode<91))

J'ai testé en recopiant le tableau A2:B5 sur 100 000 lignes, durée du recalcul chez moi :

- ce fichier => 2,4 secondes

- fichier du post #12 => 1,2 seconde, la fonction VBA est 2 fois plus rapide.

A+

 

Pièces jointes

• Valeur des lettres(1).xlsx

  15.7 KB · Affichages: 1

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 21 Mars 2019

• #14

Re

Merci Job de cette autre façon de procéder

En imaginant l'impossible....
Les lettres accentuées peuvent-elles être comptabilisées ?

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 21 Mars 2019

• #15

Oups !
En même temps

 

Vote positif 0 Vote négatif