fonction VBA pour désactiver un bouton

Hugues · 13 Janvier 2006

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 · 13 Janvier 2006

Bonsoir Hugues,

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

Code:

CommandButton2.Enabled = False

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

Bonne soirée.

Amicalement.

Jean-Yves

porcinet82 · 13 Janvier 2006

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:

Code:

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 · 13 Janvier 2006

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 · 13 Janvier 2006

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

Bonne soirée

Hugues

fonction VBA pour désactiver un bouton

Hugues

XLDnaute Impliqué

JYLL

Nous a quitté

porcinet82

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Hugues

XLDnaute Impliqué

Discussions similaires