XL 2010 Compter Nombre de cellule contenant des mots en MAJ

DoubleZero

XLDnaute Barbatruc

• 28 Mars 2018

• #2

Bonjour, anthony.unac, le Forum,

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

Code:

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 28 Mars 2018

• #3

Bonjour à tous
Coucou 00

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

Code:

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

 

Vote positif 0 Vote négatif

A

anthony.unac

XLDnaute Occasionnel

• 28 Mars 2018

• #4

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

 

Vote positif 0 Vote négatif