XL 2013 afficher/masquer boutons

[gena]

bonjour le forum
voila ma demande j'ai un userform avec 1 boutons modif et un boutons valider je recherche comment cacher le boutons modif tant que j'ai pas valider mon questionnaire pour évité toute erreur
avec tout mes remercîments

 

[Robert]

Bonjour Géna, bonjour le forum,

Pour que le bouton Modifs (que j'ai considéré comme étant le CommandButton1, tu adapteras) soit masqué :

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

Pour qu'il s'affiche après avoir Valider (que j'ai considéré comme étant le CommandButton2, tu adapteras) :

Private Sub CommandButton2_Click()
Me.CommandButton1.Visible = True
'... le reste de ton code
End Sub

 

[Lone-wolf]

Bonjour gena 🙂

Dans Userform_Initialize tu met CommandButton2.Visible = False

Et dans le bouton de validation CommandButton2.Visible = True

EDIT: bonjour Robert 🙂

 

[gena]

bonsoir le forum
merci beaucoup pour ses précisions cela fonctionne très bien
amicalement

 

[gena]

Bonsoir le forum

Vous m'avais beaucoup dépanné sur mon bouton valider il fonctionne très bien
Maintenant je recherche comment je peux le faire changer de couleur quand je clique dessus ou quand je passe dessus
avec tout ma gratitude

 

[Lone-wolf]

Bonsoir gena, Robert, le Forum 🙂

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
     .BackColor = IIf(X > 15 And X < .Width - 15 And Y > 10 And Y < .Height - 10, vbRed, &H8000000F)
End With
End Sub

VbRed c'est rouge, &H8000000F couleur par défaut.

 

[gena]

merci énormément cela est super