somme de valeurs en italique

François BRUEL · 18 Janvier 2002

<HTML>Un tableau contient une plage de cellules de C4 à C14.

en C4, C7, C10 et C13 des chiffres en italiques.
en C5, C8, C11 et C14 des chiffres en gras.

La cellule E7 doit contenir la somme des chiffres en italique
La cellule F7 doit contenir la somme des chiffres en gras.

Comment faire?

Merci pour votre aide.</HTML>

Stéphane · 18 Janvier 2002

<HTML>à la volée ou presque

Function sommecellformatees(plg As Range, type_format As Integer)
For Each cl In plg.SpecialCells(xlCellTypeConstants, xlNumbers)
If type_format = 0 Then If cl.Font.Italic = True Then sommecellformatees = sommecellformatees + cl.Value
If type_format = 1 Then If cl.Font.Bold = True Then sommecellformatees = sommecellformatees + cl.Value
Next cl
End Function
'=sommecellformatees(A1:B4;0)

bye
stephane</HTML>

Effectuez une recherche sur Excel Downloads...

somme de valeurs en italique

François BRUEL

Guest

Stéphane

Guest

Discussions similaires

Nous accordons de l'importance à votre vie privée