somme de valeurs en italique

  • Initiateur de la discussion François BRUEL
  • Date de début
F

François BRUEL

Guest
<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>
 
S

Stéphane

Guest
<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>
 

Discussions similaires

Réponses
7
Affichages
445