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