Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fonction personnelle EstGras ?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion XLent
  • 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 !

S'inscrire
X

XLent

Guest
Bonjour,

Sauf erreur de ma part, il n'y a pas de fonctions standard d'Excel qui permette de déterminer, en A2, que le contenu de A1 est gras.

Or, j'aimerai disposer d'une telle fonction booléene, par exemple EstGras(A1), comme EstVide(A1) me permet de déterminer si A1 est vide ou pas.

Quelqu'un aurait-il une solution ?

En vous remericant par avance.
 
Trier par date Trier par votes
Re : Fonction personnelle EstGras ?

bonsoir,

Code: 
Function EstGras(c As Range)
     EstGras = c.Font.Bold
End Function

pour maj auto

Utiliser le pinceau

ou (dans la feuille)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub



jb
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Merci,

Mais la fonction semble renvoyer 0 (zéro) systématiquement, que la cellule soit grasse ou pas:

A1 = "Texte en gras"
A2 = Estgras(A1) renvoie 0.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Bonsour®
XLent à dit:
Merci,

Mais la fonction semble renvoyer 0 (zéro) systématiquement, que la cellule soit grasse ou pas:

A1 = "Texte en gras"
A2 = Estgras(A1) renvoie 0.
Cliquez pour agrandir...

peut etre comme ceci
Code: 
Function EstGras(c As Range)
      Application.Volatile
      EstGras = c.Font.Bold
 End Function

Rappel : un changement de format ne provoque pas de recalcul (re-évaluation des formules).
il faut faire une saisie quelconque dans la feuille (changement de valeur)
et/ou actionner la touche F9
 
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Bonjour,

Malheureusement, l'ajout de "Application.Volatile" ne change rien au résultat, toujours bloqué à zéro, quelque soit la cellule.
Même le recalcul ([F9]) ou le changement de valeur n'améliore rien.

Le bon côté, c'est que ma question ne semble donc pas aussi simple que je le craignais au départ, et qu'elle reste donc d'actualité ;-)
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Bonjour,
Le bon côté, c'est que ma question ne semble donc pas aussi simple que je le craignais au départ, et qu'elle reste donc d'actualité ;-)
Cliquez pour agrandir...
Es-tu bien sûr que ton fichier soit en mode de calcul automatique ?
S'il est demandé un fichier test, ce n'est pas pour rien...
A+
 
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Bonjour à tous

Une autre voie à explorer (avec LIRE.CELLULE)

Je m'autorise un copier/coller issu du passé (2008- Merci Modeste 😉)

PS: Si je m'abuse Modeste = Modeste geedee non ?
 
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Bonjour à tous 🙂

Pour faire suite à ce fil, vous trouverez ici la mise en application des 66 valeurs que LIRE.CELLULE() peut prendre.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Bonsoir à tous

Histoire de taquiner Victor21 😉
http://www.excel-downloads.com/forum/32955-astuce-recente-lire-cellule.html
Je suppose que tu ne connaissais pas ce fil ? (pourtant l'un des plus affiché d'XLD)
Merci pour ton fichier en tout cas.

EDITION: Victor21: Toi aussi tu aimes perpétuer le langage macro XL4 par l'entremise des formules nommées ?


 
Dernière édition:
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Re, JM 🙂

(Pardon au demandeur, cet apparté n'apporte rien au fil)
Histoire de taquiner Victor21
https://www.excel-downloads.com/threads/astuce-recente-lire-cellule.32955/
Je suppose que tu ne connaissais pas ce fil ? (pourtant l'un des plus affiché d'XLD)
Cliquez pour agrandir...
Non, et compte-tenu de la quantité de trésors que renferme XLD, je crains que ce ne soit pas le seul !
Et oui, j'aime bien, moi aussi, utiliser les solutions simples. Et les macros XL4 (avec lesquelles j'ai démarré) en sont un exemple.
😉
 
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Bonsoir,

Cela me donne une réflexion : Tout çà nous ramène au siècle passé !!!
Le temps passe vite lol

@++
David
 
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Coucou
Ca m'amène une autre réflexion : il est parfois très difficile pour ne pas dire impossible de savoir qui a "pondu" le premier un code super futé ou une astuce très pratique. Pour ma part j'essaie de dire d'où viennent mes sources mais parfois c'est impossible tant on retrouve certains trucs, très souvent traduits de l'anglais, répétés depuis de nombreuses années de forums en sites web, sans que la source soit jamais citée. De plus elle est souvent multiple, certains ayant eu une idée qui a été enrichie et développée par d'autres.
 
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Bonsour®
En l'occurence, concernant ce fil et particulierement la paternité de l'utilisation des macroXL4 (Staple1600).
Vouloir t(p)rouver une antériorité quelconque à un utilisateur lambda, me semble une querelle d'écolier (l'homme qui a vu l'homme qui a vu l'ours), sachant que cela me semble by design etre une fonctionnalité voulue par les concepteurs ...
 
Vote positif 0 Vote négatif
Re : Fonction personnelle EstGras ?

Salut Modeste,

En l'occurrence, n'est-ce pas toi qui apporte la querelle ....

Car Misange à simplement parler d'une "réflexion" ...

Moi ce que j'en dis
Regarde la pièce jointe 851380
 

Pièces jointes

  • dehors.gif
    574 bytes · Affichages: 165
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
507
emmanuel.conche
E
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
5
Affichages
620
Pi4
P
D
  • Question Question
XL 2021 figer le contenu d'une cellule en fonction d'une date
Réponses
3
Affichages
591
JHA
J
A
  • Question Question
Microsoft 365 Graphique : suppression partie de courbe sans valeur
Réponses
3
Affichages
422
CDA32
C
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
524
MCOTTEND
M
P
  • Question Question
XL 2021 EXCEL VBA chercher text precis sur Internet
Réponses
6
Affichages
623
pasquetp
P
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
842
job75
J
  • Résolu(e)
XL 2013 Identification avec si( ou( et( sur 6 critères
Réponses
4
Affichages
664
jmst1
J
Z
  • Résolu(e)
Microsoft 365 Scinder une ligne en fonction de plusieurs critères
Réponses
10
Affichages
518
Zaadox
Z
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
830
Lu76Fer
N
  • Question Question
XL 2019 Formule pour copier/coller une valeur
Réponses
2
Affichages
1 K
Naia
N
M
  • Résolu(e)
Microsoft 365 Prendre les 10 1ère valeur d'une plage en fonction de 2 critères
2 3
Réponses
43
Affichages
3 K
merinos-BernardEtang
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
594
Aldonanou
A
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
572
Lu76Fer
D
  • Résolu(e)
XL 2016 Afficher/cacher lignes si colonne(s) cochée(s)
Réponses
10
Affichages
648
Staple1600
J
  • Question Question
Microsoft 365 Erreur de compilation: sub, fonction ou property attendue
Réponses
4
Affichages
646
dysorthographie
M
  • Question Question
XL 2016 MAJ nuage de points dans un graphe en fonction d'un filtre
Réponses
0
Affichages
698
Mooga
M
R
  • Question Question
XL 2010 Définition d'une zone d'impression en fonction d'un critère
2
Réponses
21
Affichages
1 K
Renaud22
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…