Celulle = Total des cellules en caractère gras?

[Steelhawks1981]

Bonjour à tous!

Est-ce possible de faire en sorte qu'un cellule soit égale au nombre de cellule en caractère gras?

Exemple:

Je veux que ma cellule Z3 soit égale au nombre de cellule en caractère gras comprisent entre E3 et T3.

Merci ce me répondre.

 

[JNP]

Re : Celulle = Total des cellules en caractère gras?

Bonjour Steelhawks1981 🙂,
Via une fonction VBA, oui 🙄...
Bonne suite 😎
Ajout : Salut Grand Chaman Excel 🙂

 

[Grand Chaman Excel]

Re : Celulle = Total des cellules en caractère gras?

Bonjour,

C'est possible par macro, avec une fonction personnalisée (mettre le code dans un module). Par exemple :

Function CompterGras(Plage As Range) As Integer
'Compte les cellules en gras dans une plage
    Application.Volatile (True)
    Dim c As Range
    CompterGras = 0
    For Each c In Plage
        If c.Font.Bold = True Then CompterGras = CompterGras + 1
    Next c
End Function

A+

Edit : bonjour JNP !

 

[Steelhawks1981]

Re : Celulle = Total des cellules en caractère gras?

Merci pour la réponse aussi rapide!

Je suis nul pour les macros et tout le reste, disons que je suis débutant avancé!

Où dois-je mettre ce code/fonction?

 

[Grand Chaman Excel]

Re : Celulle = Total des cellules en caractère gras?

Bonjour,

Tu fais ALT + F11 pour ouvrir l'éditeur VBA.
Dans l'arborescence à gauche, tu trouve ton fichier : VBAPRoject (le nom de ton fichier)
Tu cliques sur le plus pour ouvrir son arborescence.
Tu fais bouton de droite et Insertion | Module
Tu doubles cliques sur le module qui vient d'être inséré ( ça devrait être Module 1)
Et tu copies le code dedans.
Ensuite dans ton fichier Excel, tu peux utiliser la fonction =CompterGras(E3:T3) par exemple.

Note : Le total ne sera pas changé si tu ne fais que basculer en gras et "non gras". Mais si tu changes le texte dans la cellule, le total sera bien compté. En cas de doute, appuie sur F9 pour recalculer la valeur.

A+

 

[Steelhawks1981]

Re : Celulle = Total des cellules en caractère gras?

Super!

C'est en plein ce que j'avais besoin!

Par contre, lorsque je ferme le fichier et que je le l'ouvre de nouveau, toutes les cellules sont remplacé par #NOM?

Et lorsque j'essaie de ré-enregistré j'ai le message suivant:

Les fonctionnalités suivantes ne peuvent per être enregistrées dans des classeurs dans macro:

Projet VB

Pour enregistrer un fichier, avec ces fonctionnalités, cliquez sur non,puis sélectionnez un type de fichier prenant en charge les macros dans la liste Type de fichier.

Que dois-je faire pour que la code reste en place tout le temps?

 

[JCGL]

Re : Celulle = Total des cellules en caractère gras?

Bonjour à tous,

As-tu enregistré ton fichier avec l'extension *.xlsm ?

A + à tous