Valentin_Loupe
XLDnaute Occasionnel
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
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
Dernière édition: