je cherche à faire disparaitre un bouton si la somme de plusieurs cases n'est pas égale à 0 afin de ne pas pouvoir imprimer et mettre à jour des infos (la macro n'est pas encore programmée)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C11")) Is Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("Bouton 5").Visible = IIf(Range("H12") = 0, True, False)
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(12, 8) = 0 Then
ActiveSheet.Shapes("Bouton 5").Visible = False
Else
ActiveSheet.Shapes("Bouton 5").Visible = True
End If
End Sub
je cherche à faire disparaitre un bouton si la somme de plusieurs cases n'est pas égale à 0 afin de ne pas pouvoir imprimer et mettre à jour des infos (la macro n'est pas encore programmée)
Option Explicit
Private Sub Worksheet_Calculate()
ActiveSheet.Shapes("Bouton 5").Visible = Application.WorksheetFunction.CountA(Range("c3:c11")) = 9
End Sub