Nb fois conditionnelle

Bonjour,

Concernant le compte par Italique, je ne pense pas que cela soit réalisable en formule.

Pour le compte des prénoms commencant pas "j" :
supposons :

Nom
jules
juiliette
jeremy
toto

on fait un filtre automatique personnalisé, on choisit l'option ''commencant par " on tape "j" - ce qui renvoie tous les prénoms par "j".
on fait ensuite un sous-total : =SOUS.TOTAL(3;B5:B8) et cela donne 3
(le 3 dans la formule signifie le compte).

Celeda

Salut Francois , Celeda et le Forum

Regarde du cote d'une fonction

Option Explicit
Dim Total As Byte
Dim Cellule As Range

Function Lettre_J(Plage As Range)
Total = 0
For Each Cellule In Plage
If Left(UCase(Cellule.Value), 1) = "J" Then Total = Total + 1
Next Cellule
Lettre_J = Total
End Function

Function Italique(Plage As Range)
Total = 0
For Each Cellule In Plage
If Cellule.Font.Italic = True And _
Left(UCase(Cellule.Value), 1) = "J" Then Total = Total + 1
Next Cellule
Italique = Total
End Function

tu ecris alors dans la cellule soit

=Lettre_J(A1:A100) pour le nombre de mots commencant par "J" ou "j"

=Italique(A1:A100) pour le nombre de mots en Italique commencant par
les lettres "J" ou "j"

Mytå

Merci à tous les 2 pour votre aide.
François

Bonjour,

et bien en regardant tu côté de la Function, cela marche impec!
Merci Myta


Celeda