Activer bouton à condition ...

[David590]

Bonsoir à tous,

J'ai besoin d'activer un bouton à condition que la dernière cellule écrite de la colonne "L" soit égale à 0 ou 6, j'ai donc écrit ceci:

CommandButton1.Enabled = Range("L65536").End(xlUp) = "0" And Range("L65536").End(xlUp) = "6"

mais je veux qu'il ne regarde que la derniere cellule ecrite pas plus loin que L50, c'est a dire de L50 à L65536, et ça je n'arrive pas à l’écrire
Pouvez vous m'aidez?

 

[repcheks]

Re : Activer bouton à condition ...

Essaie quelque chose comme

Sub Enable_condition()

'Regarde si la ligne de la derniere cellule est < 50

If Range("L65536").End(xlUp).Row < 50 Then

'Decris ici l'operation que tu veux effectuer dans ce cas

ElseIf Range("L65536").End(xlUp) = 0 Or Range("L65536").End(xlUp) = 6 Then

CommandButton1.Enabled = True

Else

CommandButton1.Enabled = False

End If

End Sub