XL 2010 faire disparaitre un bouton...

[306255]

Bonjour à tous

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)

Merci pour votre aide à tous

306255

 

[Chris401]

Bonsoir

Essaye :

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

 

[CISCO]

Bonsoir

Tu peux faire à partir de

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

@ plus

P.S : Bonsoir Chris401

 

[Jacky67]

Bonjour à tous

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)

Merci pour votre aide à tous

306255

Bonjour,
Ceci peut-être:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("Bouton 5").Visible = Not [h12] = 0
End Sub

Salutations
JJ

 

[Si...]

Salut

Plus simple avec un ActiveX nommé CommandButton1.

Private Sub Worksheet_Calculate()
  CommandButton1.Visible = [H11] = 0
End Sub

 

[DoubleZero]

Bonjour à toutes et à tous,

Une autre possibilité :

Option Explicit
Private Sub Worksheet_Calculate()
    ActiveSheet.Shapes("Bouton 5").Visible = Application.WorksheetFunction.CountA(Range("c3:c11")) = 9
End Sub

A bientôt 🙂