Compter les cellules dont les valeurs sont en italique

Bonjour à toutes et tous

Dans une colonne, certaines cellules ont des valeurs au format "italique" et d'autres au format "normal".

Edit : la mise au format italique vient d'une MFC.

Je souhaite compter les cellules dont les valeurs sont en italique.
Je sais que NB.SI ne permet pas de le faire.

J'ai trouvé dans l'aide Excel comment compter des cellules de telle ou telle couleur (https://docs.microsoft.com/fr-fr/pre...olor-using-vba) mais rien sur mon problème.

Auriez vous une astuce ?

Par avance merci
Philippe

Bonjour,
Vous pouvez adapter le code publié dans le lien que vous avez consulté en faisant le test Font.Italic = True au lieu de Interior.ColorIndex=Argument

Exemple

Code:

---

1 2 3 4 5 6 7 8

Function CountIfItalic(oRange As Range) As Long Dim Cell As Range Dim Count As Long For Each Cell In oRange If Cell.Font.Italic = True Then Count = Count + 1 Next CountIfItalic = Count End Function

---

Attention toutefois que l'usage de ce genre de fonction ne fonctionne que lorsqu'on l'utilise d'une fonction ponctuelle. Si vous modifiez une cellule en supprimant l'italique, le résultat sera identique sauf si vous invoquez la fonction à nouveau
[EDIT] Ne fonctionne pas non plus si le caractère Italique est issu de la mise en forme conditionnelle

On peut réduite le code également

Code:

---

1 2 3 4 5 6

Function CountIfItalic(oRange As Range) As Long Dim Cell As Range For Each Cell In oRange CountIfItalic = CountIfItalic + Abs(Cell.Font.Italic = True) Next End Function

---

Bonjour,

Ou.... peut-être comme cela

Voir Pj

Slts

Bonsoir Messieurs

Merci pour vos réponses.

Citation:

---

Ne fonctionne pas non plus si le caractère Italique est issu de la mise en forme conditionnelle

---

Malheureusement je suis dans le cas MFC.

Citation:

---

Ou.... peut-être comme cela

---

Malheureusement ne fonctionne pas avec MFC.

Philippe

Bonjour,

Citation:

---

Malheureusement je suis dans le cas MFC.

---

Dans ce cas, il suffirait de dénombrer suivant les mêmes conditions qui conduisent à formater en italique avec comme avantage que dans ce cas ce serait dynamique comme toutes les formules d'excel et donc sans avoir besoin de passer par du VBA

Bonjour

On peut utiliser Display.Format mais pas dans une fonction personnalisée : il faut l'invoquer depuis une sub, ce qui est moins intéressant

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function CountIfItalic(oRange As Range) As Long Dim Cell As Range For Each Cell In oRange CountIfItalic = CountIfItalic + Abs(Cell.DisplayFormat.Font.Italic = True) Next End Function   Sub exemple() x = CountIfItalic(ActiveSheet.Range("A2:A10")) ActiveSheet.Cells(1, 5) = x End Sub

---

Bonjour 78chris

Merci pour votre code, il fonctionne très bien.

Bonjour Philippe Tulliez

Citation:

---

il suffirait de dénombrer suivant les mêmes conditions qui conduisent à formater en italique

---

Merci pour votre réponse mais c'est ce que j'ai commencé par faire.
Mais cela ne fonctionne pas dans la mesure où la MFC qui formate les cellules en italique fait appel à une autre colonne.

La MFC :
=$F8 ="toto" s'appliquant à la plage =$I$8:$ABJ$14 met en italique

La Fonction en I4 : =NB.SI(I8:I14;$F8 ="toto").

Remarque : je laisse le post ouvert pour le cas où ...

Philippe

Bonjour,

Avec un sommeprod ?

On cherche les lignes ayant le mot "toto" et on compte les cellules non-vides dans la zone $I$7:$ABJ$14 ??

Code:

---

=SOMMEPROD(($F$7:$F$14="toto")*(($I$7:$ABJ$14<>"")))

---

Si j'ai bien saisie la demande, il faut comptabiliser les cellules dans la plage si elles font référence à "toto", non ?
Pièce jointe 588773

A vous lire.

Bonjour Philippe,

Citation:

---

Merci pour votre réponse mais c'est ce que j'ai commencé par faire.
Mais cela ne fonctionne pas dans la mesure où la MFC qui formate les cellules en italique fait appel à une autre colonne.

---

A partir du moment où une formule fonctionne dans la mise en forme conditionnelle, il n'y a aucune raison que nous ne puissions l'utiliser dans une cellule. C'est souvent un problème de référencement.

Je voulais accompagner mon intervention par un exemple mais je vois que PrinceCorwin m'a devancer.

Bonjour à tous, Bonjour Philippe

Citation:

---

Envoyé par Philippe Tulliez

Je voulais accompagner mon intervention par un exemple mais je vois que PrinceCorwin m'a devancer.

---

En espérant que cette dernière puisse convenir :)

Bonjour messieurs,
Merci pour le temps consacré.

PrinceCorwin, cela ne correspond pas à ce que j'attends.
Je me suis sans doute mal exprimé.

Pièce jointe 588939

La coloration des cellules n'a rien à voir avec la situation exposée et le problème posé.

La colonne F me permet d'indiquer le lieu : soit "TT", soit rien.
Dans les cellules I8 à ABJxx je saisi des heures.
Ces cellules sont attachées à une MFC qui met en gras italique bleu si la cellule de la colonne F est "TT" (=$F8="TT").
La cellule I8 est en gras italique bleu car $F8 est "TT"
La cellule I9 n'a pas de format car $F9 est vide
Formule cellule I1 : =NB(I8:I14)
En I2, si je mets =NB.SI(I8:ABJ14;$F8), j'ai 0 comme résultat.

Cellules I2 à R2 : j'ai saisi en dur le résultat attendu, à savoir pour chaque colonne combien de fois y a t il des heures en gras italique bleu.

78chris
Comme indiqué précédemment, votre code fonctionne très bien.
Mais je suis incapable de le modifier pour l'appliquer à toutes les colonnes.

Merci pour votre aide
Philippe

Bonjour,

Avec ces explications, un petit réajustement de la formule et tout revient en ordre :)
Formule en cellule C2 :

Code:

---

=SOMMEPROD(($B$5:$B$8="TT")*(C$5:C$8>0))

---

Pièce jointe 588947

A vous lire.


Vous pouvez aussi utiliser la formule =NB.SI.ENS($B:$B;"TT";C:C;">0")

RE
Adapter Nom de l'onglet

Code:

---

1 2 3 4 5 6 7

Sub exemple() With Worksheets("Nom de l'onglet") For i = 9 to 18 .cells(2,i) = CountIfItalic(.Range(cells(8,i),cells(14,i))) Next i End With End Sub

---

Mais je confirme qu'il est préférable de passer par une fonction personnalisée basée sur la formule de MFC ou une formule basée sur les conditions

Bonjour,
Comme je l'ai déjà écrit.
Si une formule fonctionne correctement dans la mise en forme conditionnelle elle est forcément transposable dans une formule placée dans une cellule pour dénombrer les cellules répondant à ces conditions.

Messieurs,

Un grand merci.

PrinceCorwin : les 2 formules fonctionnent, j'ai plus qu'à les étudier pour les comprendre.

78chris : Merci pour vos 2 codes.

Philippe Tulliez :

Citation:

---

Si une formule fonctionne correctement dans la mise en forme conditionnelle

---

A la vue de la formule de PrinceCorwin, j'ai enfin compris votre remarque.
Je suis un peu dur à la comprenette.

Merci à vous trois.
Philippe