XL 2016 Retrouver les voyelles ou les consonnes dans un mot

Do2B à dit:

Bonjour à tous,
Je cherche une formule qui me permette :
- De retrouver les voyelles présentes dans un mot.
- Chaque voyelle correspondant à un chiffre, je dois trouver la somme des chiffres correspondant aux voyelles présentes dans le mot.
Par exemple : DOMINIQUE = O+I+I+U+E = 6+9+9+3+5=32
32 est ce que je dois voir apparaître.
Je dois faire la même chose avec les consonnes.
Je cherche également une formule qui me permette de retrouver la première lettre d'un ensemble de mots (saisis dans des cellules différentes) et faire le même calcul.
Par exemple : A1 = DOMINIQUE, A2 = MARIE, A3 = CHARLOTTE D+M+C=4+4+3=11
11 est le chiffre qui doit apparaître.
Je ne sais pas si c'est réalisable, je ne suis pas une pro d'Excel.. Un grand merci à ceux qui pourront m'aider.
Dominique.

Cliquez pour agrandir...

ERIC S à dit:

un principe basique (pas de matriciel) donc peut-être plus accessible

Cliquez pour agrandir...

chris à dit:

Coucou Eric


Bonne année aussi à toi.
Comme je l'ai indiqué pas nécessaire de valider en matriciel.

Cliquez pour agrandir...

Do2B à dit:

Bonjour à tous,
Je cherche une formule qui me permette :
- De retrouver les voyelles présentes dans un mot.
- Chaque voyelle correspondant à un chiffre, je dois trouver la somme des chiffres correspondant aux voyelles présentes dans le mot.
Par exemple : DOMINIQUE = O+I+I+U+E = 6+9+9+3+5=32
32 est ce que je dois voir apparaître.
Je dois faire la même chose avec les consonnes.
Je cherche également une formule qui me permette de retrouver la première lettre d'un ensemble de mots (saisis dans des cellules différentes) et faire le même calcul.
Par exemple : A1 = DOMINIQUE, A2 = MARIE, A3 = CHARLOTTE D+M+C=4+4+3=11
11 est le chiffre qui doit apparaître.
Je ne sais pas si c'est réalisable, je ne suis pas une pro d'Excel.. Un grand merci à ceux qui pourront m'aider.
Dominique.

Cliquez pour agrandir...

Function numerologie(target As Range) As Integer
Dim x As Integer, i As Integer, cel As Range
If target.Count = 1 Then
        For i = 1 To Len(target)
                Select Case UCase(Mid(target, i, 1))
                Case "A"
                x = 1
                Case "U"
                x = 3
                Case "E"
                x = 5
                Case "O"
                x = 6
                Case "Y"
                x = 7
                Case "I"
                x = 9
                Case Else
                x = 0
                End Select
                numerologie = numerologie + x
        Next
Else
        For Each cel In target
        Select Case UCase(Left(cel, 1))
                Case "A", "J", "S"
                x = 1
                Case "B", "K", "T"
                x = 2
                Case "U", "C", "L"
                x = 3
                Case "D", "M", "V"
                x = 4
                Case "E", "N", "W"
                x = 5
                Case "O", "F", "X"
                x = 6
                Case "G", "P", "Y"
                x = 7
                Case "H", "Q", "Z"
                x = 8
                Case "I", "R"
                x = 9
                Case Else
                x = 0
                End Select
                numerologie = numerologie + x
        Next

End If
End Function

Do2B à dit:

Bonjour à tous,
Je cherche une formule qui me permette :
- De retrouver les voyelles présentes dans un mot.
- Chaque voyelle correspondant à un chiffre, je dois trouver la somme des chiffres correspondant aux voyelles présentes dans le mot.
Par exemple : DOMINIQUE = O+I+I+U+E = 6+9+9+3+5=32
32 est ce que je dois voir apparaître.
Je dois faire la même chose avec les consonnes.
Je cherche également une formule qui me permette de retrouver la première lettre d'un ensemble de mots (saisis dans des cellules différentes) et faire le même calcul.
Par exemple : A1 = DOMINIQUE, A2 = MARIE, A3 = CHARLOTTE D+M+C=4+4+3=11
11 est le chiffre qui doit apparaître.
Je ne sais pas si c'est réalisable, je ne suis pas une pro d'Excel.. Un grand merci à ceux qui pourront m'aider.
Dominique.

Cliquez pour agrandir...