A voir également:
- Nombre de minuscules
- Code ascii de a minuscule - Guide
- Nombre facile - Télécharger - Outils professionnels
- Passer de majuscule à minuscule - Guide
- Nombre de secteurs réalloués - Forum Matériel & Système
- Gto nombre episode ✓ - Forum Jeux vidéo
1 réponse
Bonjour
Un exemple
Un exemple
Sub test()
texte = "Un Agneau se désalterait dans le Courant d'une Onde pure"
minus = 0
For i = 1 To Len(texte)
If LCase(Mid(texte, i, 1)) = Mid(texte, i, 1) Then minus = minus + 1
Next
MsgBox (texte & vbCrLf & vbCrLf & _
"le texte contient " & Len(texte) & " lettres dont " & minus & _
" minuscules et " & Len(texte) - minus & " majuscules")
End Sub