Le Bouton est présent Si(K17<=0)

[WDAndCo]

Bonsoir le Forum

Je cale de nouveau sur un petit truc : Comment faire apparaitre un Bouton si certaines condition sont remplies ?
Je joint mon classeur pour être plus clair, sur l'onglet DJS le Bouton "Sauvegarde" ne doit être visible que lorsque la cellule K17 est <= à 0 !

D'avance merci.
Dominique

 

[Fred0o]

Re : Le Bouton est présent Si(K17<=0)

Bonsoir WDAndCo,

Voici un code à mettre dans le code de la Feuil1 (DJS) :

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Shapes("Button 20").Visible = IsNumeric([K17])
End Sub

A+

 

[WDAndCo]

Re : Le Bouton est présent Si(K17<=0)

Bonsoir le Forum et Fred0o

Merci mais le code fournit fait le contraire le voici :

Option Explicit
Private Sub Worksheet_Activate()
    ActiveSheet.Shapes("Button 20").Visible = IsNumeric([K17])
    Columns("A:L").Select
    ActiveWindow.Zoom = True
    Range("I2").Select
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
        
End Sub

J'ai oublié de préciser que la valeur de K17 ou ResteAPointer peut être négative.

 

[Fred0o]

Re : Le Bouton est présent Si(K17<=0)

Re-bonsoir,

Etant donné que je n'arrive pas à tester le code car les feuilles sont protégées et K17 renvoie à des formules en cascade, essaie donc cette modification :

Private Sub Worksheet_Activate()
    ActiveSheet.Shapes("Button 20").Visible = ([K17] <= 0)
    Columns("A:L").Select
    ActiveWindow.Zoom = True
    Range("I2").Select
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
       
End Sub

A+

 

[WDAndCo]

Re : Le Bouton est présent Si(K17<=0)

Bonsoir le Forum et merci Fred0o

C'est bon avec :

 ActiveSheet.Shapes("Button 20").Visible = ([K17] = "")

Merci encore, et bonne soirée, j'ai encore appris un truc !
Dominique