police zone de texte en gras ou pas

[eastwick]

Bonjour à toutes et tous,

J'aimerais un code qui me permettrait à partir d'une information dans la cellule colorée en vert, de mettre en gras (ou en normal, ce sera selon l'info de la cellule verte) la police de ma zone de texte correspondante. Comme un fichier vaut mieux qu'un long discours, voici donc un fichier.
Je vous souhaite une agréable journée et encore félicitations pour le travail remarquable de chacun ici.

 

[titiborregan5]

Re : police zone de texte en gras ou pas

Bonjour eastwick, le forum,

désolé mais je n'ai pas compris où était la condition (rien sur le fichier dans cellules vertes)...
C'est à partir de cette info que la cellule devra se mettre en gras?

A+

 

[eastwick]

Re : police zone de texte en gras ou pas

Bonjour, non c'est un code VBA qui mettra la zone de texte en gras selon le contenu de la cellule verte. Par exemple si la cellule verte contient G une formule dans la cellule dà côté reprend l'info et génère par une formule la transformation de la zone de texte en gras.

 

[titiborregan5]

Re : police zone de texte en gras ou pas

Oui ok j'ai bien compris que ça se ferait par macro.
Je demandais le déclencheur.
Donc si dans la cellule verte c'est écrit G on met en gras la cellule de gauche, c'est ça?

Voir PJ.
Le code utilisé à placer dans la feuille1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target = "G" Then
Target.Offset(0, -1).Font.Bold = True
Else
Target.Offset(0, -1).Font.Bold = False


End If
End Sub

 

[eastwick]

Re : police zone de texte en gras ou pas

non juste la zone de texte, ne pas tenir compte de la cellule sur la gauche.

 

[titiborregan5]

Re : police zone de texte en gras ou pas

Voir message ci-dessus!

 

[eastwick]

Re : police zone de texte en gras ou pas

Merci, j'ai trouvé au hasard. Ce n'est pas la colonne B qu'il faut rendre en gras mais la zone de texte dans la colonne D.

 

[titiborregan5]

Re : police zone de texte en gras ou pas

QQch comme ça alors?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target = "G" Then


    ActiveSheet.Shapes.Range(Array("TextBox " & Target.Row / 2)).Select
    Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
'Target.Offset(0, -1).Font.Bold = True
Else
'Target.Offset(0, -1).Font.Bold = False


End If
End Sub

Qu'il faudra peaufiner pour éviter les erreurs, ou quand on enlève le G etc...

 

[eastwick]

Re : police zone de texte en gras ou pas

Merci beaucoup, bonne journée