Griser un bouton

Bonjour,

Je voudrais que le bouton " Calculer" de mon UserForm, appelé dans le programme "btncalculPI" soit grisé quand le TextPI1 et le TextPI2 soit vide.

Mais quand je remplie un TextBox le bouton se dégrise directement, et ce n'est pas ce que je souhaite obtenir car je souhaite qu'il se dégrise que quand les 2 sont remplies.

La propriété Enabled du bouton à était réglé en 'False'

Voici mon programme:

Private Sub TextPI1_Change()

If TextPI1.Text <> "" Then
    btncalculPI.Enabled = True

    Else
    btncalculPI.Enabled = False
    End If
End Sub

Private Sub TextPI2_Change()

If TextPI2.Text <> "" Then
    btncalculPI.Enabled = True

    Else
    btncalculPI.Enabled = False
    End If
End Sub

Pourriez-vous m'aider svp ?

Merci d'avance,

Pati

Bonjour,

Private Sub TextPI_Change()

If TextPI1.Text <> "" and TextPI2.Text <> "" Then
    btncalculPI.Enabled = True
    Else
    btncalculPI.Enabled = False
    End If
End Sub