Bonjour,

Après avoir parcouru le forum j'ai trouvé une fonction se rapprochant de ce que je souhaite effectuer :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function LesMinuscules(Cellule As Range) As String
Dim i As Integer
If Cellule.Cells.Count > 1 Then Exit Function
 
For i = 1 To Len(Cellule.Value)
    If UCase(Mid(Cellule.Value, i, 1)) <> Mid(Cellule.Value, i, 1) Then
        LesMinuscules = LesMinuscules & Mid(Cellule.Value, i, 1)
    End If
Next i
 
End Function
Je souhaiterais comprendre la fonction suivante et la modifier pour récupérer seulement les nombres/chiffres dans une cellule ex : aaaa34ZZZ -> 34 54AAAzzzzzz ->54 aaaaZZZ87 -> 87


Bien Cordialement,

Dolgar

Source :
https://www.developpez.net/forums/d1...lphanumerique/
https://www.developpez.net/forums/d1...s/#post8239065
Merci à joe.levrai pour sa fonction LesMinuscules