Discussion :

[drath]

Bonjour à tous,

Après avoir fouiner un peu sur le net et le forum, je ne trouve pas exactement ce que je cherche, donc j'aimerai pouvoir extraire une chaine de caractère sous excel pour du traitement de numérologie.
J'ai à savoir une cellule nom, une prénom.

J'aurais besoin d'extraire par les initiales, les voyelles de prenom+nom, les consonnes de prenom+nom et la derniere lettre de prenom et nom; pour ensuite y appliquer des traitements mathématiques en fonction d'une grille lettre=numero.

pour le moment, je suis obligé de rentrer manuellement les consonnes, voyelles etc etc dans des cellules différentes et j'aimerai automatiser la procédure.

merci a tous et bon dev

[cafeine]

Hello,

une fonction VBA doit pouvoir faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function ObtenirVoyelles(ByVal word As String, _
                Optional blnVoyellesConsomnes As Boolean = True) As String
 
Const strVoy As String = "aeiouy"
Const strIgnore As String = " -."
Dim strRes As String
 
For i = 1 To Len(word)
    If InStr(strIgnore, Mid(word, i, 1)) = 0 Then
        If blnVoyellesConsomnes Then
            If InStr(strVoy, Mid(word, i, 1)) Then
                strRes = strRes & Mid(word, i, 1)
            End If
        Else
            If InStr(strVoy, Mid(word, i, 1)) = 0 Then
                strRes = strRes & Mid(word, i, 1)
            End If
        End If
    End If
Next i
ObtenirVoyelles = strRes
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
?obtenirvoyelles("Jean-Claude",False)
JnCld
?obtenirvoyelles("Jean-Claude",True)
eaaue

[ucfoutu]

Bonjour,

Une autre approche (pour tout extraire) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Command1_Click()
 Dim toto As String, titi() As Byte, mesvoyelles As String, mesconsonnes As String
 Dim mesinitiales As String, jeuvoyelles As String, I As Integer, quoi As String
 
 toto = "Jeanne-Marie, Célestine Dupont"
 
 titi = StrConv(toto, vbFromUnicode)
 jeuvoyelles = "aeiouéèyùüïê"
 mesvoyelles = ""
 mesconsonnes = ""
 mesinitiales = Chr(titi(0))
 For I = 0 To UBound(titi)
   quoi = Chr(titi(I))
   If I < UBound(titi) Then
     If InStr(" ,-", Chr(titi(I + 1))) > 0 Then
       mesinitiales = RTrim(mesinitiales & Chr(titi(I + 2)))
     End If
   End If
   If UCase(jeuvoyelles) Like "*" & UCase(quoi) & "*" Then
     mesvoyelles = mesvoyelles & quoi
   ElseIf quoi <> " " And quoi <> "-" And quoi <> "," Then
     mesconsonnes = mesconsonnes & quoi
   End If
 Next
 MsgBox "Voilà mes initiales : " & mesinitiales & vbCrLf & "Voilà mes voyelles :" & _
 mesvoyelles & vbCrLf & "Voilà mes consonnes : " & mesconsonnes
End Sub