Nbre puis Somme de cellules de police Gras

  • Initiateur de la discussion Initiateur de la discussion Bud
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

Bud

Guest
Bonjour,

J'ai perdu un fichier dans lequel il m'était possible de compter le nombre de cellules en gras (imaginons la fonction NbreGras) ainsi que la somme des chiffres qu'elles comptiennent (imaginons la fonction SommeGras) ????

De même j'aimerais retrouver les fonctions inverses NbreNonGras et SommeNonGras repondant à une police normale (Non gras)???

Comment pourrais-je faire d'autant que je pouvais retrouver ces fonctions dans en cliquant sur = dans ma barre (cad sans passer par les macros (je crois)) ????

Merci pour votre aide et encore milles et une excuses pour avoir perdu mon ancien fichier
 
Sans macro !!!

en voici une quand meme

Sub SommeSiGras()
Dim Cell As Range, Tot As Long, Compte As Long
For Each Cell In Selection
If Cell.Font.Bold = True Then Tot = Tot + Cell.Value
If Cell.Font.Bold = True Then Compte = Compte + 1
Next
MsgBox ('Total :' & Tot & ' Nombre: ' & Compte)
End Sub

Bye
 
Bonsoir a tous

Voici une fonction qui calcul la somme des cellules qui sont en gras

Public Function NbreGras(ByVal rngRange As Range)
Dim vrtCell As Variant

Dim
lngSomme As Long

[color=blue
][/color]For Each vrtCell In rngRange
     
With vrtCell
           
If .Font.Bold = True Then lngSomme = lngSomme + .Value
     
End With
Next
vrtCell
NbreGras = lngSomme
End Function
 
Merci à vous deux,

Je me permet malgré tout de voir joindre un fichier car je n'ai malheureusement pas encore les compétences de savoir intégrer vos fonctions... J'ai bien essayer en faisant Alt F11 mais rien n'y fait... De plus, j'aimerais que ces nouvelles fonctions s'inscrivent dans ma liste fx... Est ce possible ???

Enfin, j'ai ajouté une nouvelle requète si tout de fois je n'aurais pas encore épuiser votre patience...

En tout les cas merci pour tout

PS : Pas de macro si possible
 
Bonjour,

Mais oui c'est possible mais Hellboy se reveille à peine à cette heure là!! (décalage horaire oblige!!)

donc un peu de patience,

en attendant, c'est dans un module qu'il faut la mettre la macro pas dans le module de la feuille;

de plus, la fonction s'inscrit au to ma ti que ment dans les fonctions personnalisées;

et pour finir avec sumcolor, tu obiens ta dernière demande.


ouf!!! avec tout ce vent,icite!! on y est arrivé!!! 😛


Celeda [file name=CompterGrasColor.zip size=8931]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CompterGrasColor.zip[/file]
 

Pièces jointes

Bonjour à tous,

Pourriez vous s'il vous plaît m'aider à finir les fonctions (notamment au niveau des couleurs). J'ai bien essayé de travailler sans, mais il me faudrait absolument cette formule...

Merci d'avance
Bonne journée [file name=CompterGrasColor_20060321085203.zip size=8931]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CompterGrasColor_20060321085203.zip[/file]
 

Pièces jointes

Bonjour,

Bon voici un petit panaché de sub et de functions concernant les couleurs, il y en a un peu de tous pour ne pas faire de jaloux y compris des très pratiques à la fin, et naturellement j'ai adapté pour le besoin certaines.

A vous de jouer avec les gras, non gras, les comptes et les sommes des couleurs.

Et conservez bien ce fichier parce qu'on va pas y revenir tout le temps!!🙂 🙂

Celeda [file name=CompterGrasColor2.zip size=16871]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CompterGrasColor2.zip[/file]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour