Gras dans macro pour cellule qui bouge ?

[Valentin_Loupe]

Bonsoir à tous !!

Je veux juste mettre en gras la cellule qui s'écrivait "(vide)" et que j'ai remplacé par "Total". Ou est mon erreur ?

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Dim Cellule As Range
For Each Cellule In Range("C4:C47")
If Cellule = "(vide)" Then
Cellule = "Total"
Font.Bold = True
End If
Next
End Sub

Merci à tous

Valentin

 

[JYLL]

Re : Gras dans macro pour cellule qui bouge ?

Bonsoir valentin Loupe et le Forum,

Après la ligne :

Cellule="Total" tu mets :

Cellule.Select
ActiveCell.Font.Bold = True

Bon test.

 

[skoobi]

Re : Gras dans macro pour cellule qui bouge ?

Re bonsoir tout le monde,
ou plus simplement:

Cellule.Font.Bold = True

au lieu de:

Font.Bold = True