Nb fois conditionnelle

[François]

Bonjour à tous,

Je souhaiterais votre aide pour résoudre le pb suivant :

Dans la colonne A se trouvent par exemple les prénoms

pierre (en italique)
paul (en italique)
marie
jacques (en italique)
jérémy (en italique)
jorge

Il faudrait que l'on obtienne dans la cellule :
- B1 le nombre de fois où les prénoms sont en italique
- B2 le nombre de fois où les prénoms sont en italique ET que le prénom commence par "J"

Merci pour votre aide

 

[Celeda]

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

 

[Myta]

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å

 

[François]

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

 

[Le Service Promotionnel de XLD]

Bonjour,

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


Celeda