=EstGras mettre cellule a 0

bon j'ai trouvé pour l'offset
merci

Exemple : https://mon-partage.fr/f/j4Y0a9VC/

=SI(ESTGRAS(A16);"o")
j'ai trouvé une réponse partielle qui fonctionne par contre je ne voudrais pas que ça mette faux aux autres cellules qui ne correspondent pas
Est ce possible?

Re,

Tu n'a pas répondu à ma question !

Une macro ne peut s'exécuter que suite à un évènement. Soit il s'agit d'un évènement propre au classeur (comme activer une feuille, sélectionner une cellule, ..;) soit d'un évènement lié à un objet ajouté (un bouton, une image, ...)

Écrire une procédure qui empêche de modifier une cellule de la plage BU1:BU62 quand la cellule correspondante de la colonne A est en gras, est relativement simple car il existe un évènement Worksheet_Change (i.e "feuille modifiée") qui se produit quand on modifie une ou plusieurs cellules d'une feuille.

Par exemple avec ce code dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim c As Range
  Set r = Intersect(Target, Range("BU1:BU62"))
  If Not r Is Nothing Then
    For Each c In r.Cells
      If c.Offset(0, -72).Font.Bold Then c.Value = 0
    Next c
  End If
End Sub

Écrire une procédure qui met à zéro les cellules de la BU quand la cellule correspondante de la plage A1:A62 est en gras, c'est aussi assez simple. Par exemple, dans le module de feuille :

Private Sub Jack2125()
Dim r As Range
Dim c As Range
  Set r = Range("A1:A62")
  For Each c In r.Cells
    If c.Font.Bold Then c.Offset(0, 72) = 0
  Next c
End Sub

Par contre, on ne peut pas écrire une procédure qui met à zéro les cellules de la BU quand la cellule correspondante de la plage A1:A62 passe en gras, car comme je t'ai dit précédemment, il n'y a aucun évènement qui détecte les modifications de format d'une cellule (comme le passage de normal à gras).

Il faut donc choisir une autre façon de lancer la procédure ci-dessus (un bouton, un autre évènement, ...).

Function CGR(SearchArea As Range) As Variant
Dim Matrice() As String
Dim cell As Range
Application.Volatile True
ReDim Matrice(SearchArea.Rows.Count - 1)

J = 0
For Each cell In SearchArea
Matrice(J) = IIf(cell.Font.Bold = True, 'Y', '')
J = J + 1
Next cell
CGR = Application.Transpose(Matrice)
End Function

Une fois cette fonction créée dans un module tu peux entrer dans une cellule quelconque: =CGR(B10) et Y s'affichera si tous les caractères de la cellule sont en gras.

Il faut faire F9 pour recalculer.
je trouve cette réponse sur internet Mais comme je sui nul en VBA je n'y comprend pas grand chose..
peux tu m'aider?

Alors pourquoi poses-tu la question ?

pourtant il me semble que la fonction =ESTGRAS existe?

Bonjour

« est-ce possible » rigoureusement : non, il n'y a aucun évènement qui détecte les modification de format d'une cellule.
On peut utiliser d'autres évènements, certains seront plus ou moins chronophages.
Il faut donc que tu précises quelles concessions tu est prêt à faire.