Figer bouton selon condition

[marcelio]

Bonjour,

Mon probleme:
En A1 j'ai un résultat d'un calcul sur la Feuil2 en A5
Si 0 le bouton est figer
si plus de 0 le fichier est débloquer

Sans le lien en A5 sur la Feuil2 cela fonctionne mais avec le
lien cela ne fonctionne pas

Joint fichier

Merci de votre aide

Marcelio

 

[pierrejean]

Re : Figer bouton selon condition

bonjour Marcelio

Je pense que ta macro serait mieux située dans l'evenement Activate de la feuille
En effet la cellule A1 ne peut etre modifiée que par un changement dans la feuille A2 ,ce qui n'est possible que par une eventuelle macro

 

[Papou-net]

Re : Figer bouton selon condition

Bonjour Marcelio,

Modifies ton code comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) > 0 Then
  Me.CommandButton1.Enabled = True
  Else
  Me.CommandButton1.Enabled = False
End If
End Sub

Espérant avoir répondu.

Cordialement.

 

[marcelio]

Re : Figer bouton selon condition

Merci pierrejean
cela fonctionne à merveille

je te souhaite une bonne journée à toi et au forum

Marcelio