Nombre de minuscules

3minute -  
 Yoda -
Bonjour,

comment retourne le nombre de caractères minuscules dans chaîné

1 réponse

  1. Yoda
     
    Bonjour

    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
    0

Discussions similaires

Calcul de nbre de nuitees pour ch d'hotes
JCD22580 -
JCD22580 -

9 réponses
Combien de combinaison possible avec 3 chiffres
LA MENACE -
Marion_P92 -

14 réponses
Combinaisons possibles avec 3 séries de 3 nombres
Jao -
acefalo -

1 réponse
envoyer un messages à plus de 100 personnes par gmail
muttipueppchen -
muttipueppchen -

4 réponses
présentation en-tête
pitive35 -
pitive35 -

6 réponses