Discussion :

[Phil333250]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riton00]

Bonjour,

Ou.... peut-être comme cela

Voir Pj

Slts

[Phil333250]

Bonsoir Messieurs

Merci pour vos réponses.

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.

Ou.... peut-être comme cela

Malheureusement ne fonctionne pas avec MFC.

Philippe

[Philippe Tulliez]

Bonjour,

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

[78chris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil333250]

Bonjour 78chris

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

Bonjour Philippe Tulliez

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

[PrinceCorwin]

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 formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 ?


A vous lire.

[Philippe Tulliez]

Bonjour Philippe,

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.

[PrinceCorwin]

Bonjour à tous, Bonjour Philippe

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

[Phil333250]

Bonjour messieurs,
Merci pour le temps consacré.

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



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

[PrinceCorwin]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A vous lire.


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

[78chris]

RE
Adapter Nom de l'onglet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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.

[Phil333250]

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 :

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