Affichage commandButton
Bonjour
Je voudrais faire apparaitre le commandButton5 en appuyant sur le commandButton4
Private Sub CommandButton4_Click()
Me.TextBox6 = Format(Calcul2, "###0")
If CommandButton4 = True Then
CommandButton5.Visible = True
End If
End Sub
Egalement faire apparaitre le commandButton7 si la valeur Textebox6 et inférieur à la valeur de la textbox4
If TextBox6.Value < TextBox4.Value Then
CommandButton7.Visible = True
Else
CommandButton7.Visible = False
end if
Cela ne fonctionne pas quand j'écris ce code
fichier joint
Merci beaucoup d'avance
Bonjour,
à tester,
Private Sub UserForm_Initialize()
TextBox5.Visible = False
End Sub
Private Sub CommandButton4_Click()
Me.TextBox6 = Format(Calcul2, "###0")
CommandButton5.Visible = True
End SubÉdit:
If cdbl(TextBox6.Value) < Cdbl(TextBox4.Value) Then