fonction VBA pour désactiver un bouton

[Hugues]

Bonjour le forum,

Je souhaiterais connaitre le code VBA qui permet de désactiver un bouton temporairement.
Dans un USF, j'ai une zone de saisie. Afin de vérifier la saisie dans cette zone (interdire certains noms, ...), je souhaiterais que le bouton 'continuer' soit désactivé (tant que la zone saisie n'a pas été corrigée). Seul le bouton annuler peut resté actif.

Merci par avance,

Hugues

 

[JYLL]

Bonsoir Hugues,

Je pense que l'a ligne suivante devrait faire l'affaire.

CommandButton2.Enabled = False

Puis remettre à true quand tu veux rendre le bouton actif.


Bonne soirée.

Amicalement.

Jean-Yves

 

[porcinet82]

re Hugues,

Dans les propriétés du bouton, tu mets Enabled a False, et lorsque ta condition est valide, tu passes ton bouton a Enabled=True avec un code du genre:

Private Sub TextBox1_Change()
    If TextBox1.Value = 'aaa' Then CommandButton1.Enabled = True
End Sub

@+

Edition: Et bien que de bosse aujourd'hui 🙂 ,salut Jean-Yves !!!

Message édité par: porcinet82, à: 13/01/2006 19:00

 

[_Thierry]

Bonsoir Hugues, le Forum

C'est assez simple, il y a plusieurs méthodes :

Exemple 1

Private Sub UserForm_Initialize()
    Me.CommandButton1.Enabled = False
End Sub

Private Sub TextBox1_Change()
    With Me.CommandButton1
        If Not Me.TextBox1 = Empty Then
            .Enabled = True
        Else
            .Enabled = False
        End If
    End With
End Sub

Exemple 2

Private Sub UserForm_Initialize()
    Me.CommandButton1.Visible = False
End Sub

Private Sub TextBox1_Change()
    With Me.CommandButton1
        If Not Me.TextBox1 = Empty Then
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End Sub

Exemple 3

Private Sub CommandButton1_Click()
    If Me.TextBox1 = Empty Then
        MsgBox 'La TextBox1 est Vide !! ', vbCritical, 'Niet Niet'
    Else
        MsgBox 'Action de la macro du Bouton...'
    End If
End Sub

Le dernier exemple, étant un peu différents, mais qui peut aussi avoir un effet désiré...

Bon Week End
@+Thierry

EDITION !!!

Bonsoir Jean Yves et Porcinet, désolè pas raffraichi avant envoi

Message édité par: _Thierry, à: 13/01/2006 19:05

 

[Hugues]

Bonsoir,
Merci à vous ; je vais essayé vos astuces.

Bonne soirée

Hugues