XL 2010 Compter Nombre de cellule contenant des mots en MAJ

[anthony.unac]

Bonjour,
Soit une colonne contenant des cellules vides, des cellules avec des mots en MAJ et des cellules avec des mots en minuscule. Est il possible de comptabiliser uniquement le nombre de cellules contenant des mots en MAJ ?

 

[DoubleZero]

Bonjour, anthony.unac, le Forum,

Après avoir sélectionné la colonne concernée...

Option Explicit
Sub Majuscules_compter()
    Dim c As Range, compteur
    For Each c In Selection.SpecialCells(xlCellTypeConstants, 2)
        If c.Value = UCase(c.Value) Then compteur = compteur + 1
    Next c
    MsgBox compteur
End Sub

A bientôt

 

[chris]

Bonjour à tous
Coucou 00

Formule matricielle (valider par CTRL, Shift Entrée)

=SOMME(SI(EXACT(MAJUSCULE(F1:F10);F1:F10)*(F1:F10<>"");1;0))

 

[anthony.unac]

Merci les gars c'est sympa, vous me sortez une belle épine du pied. Je vais essayer tout ça dès ce soir