Bonsoir Petchy et Minick
Voici quelques modèles de code :
1- Pour le bouton qui ouvre le userform et rend invisible les différents boutons ou images de la feuille :
Private Sub CommandButton1_Click()
'Images invisibles
ActiveSheet.Shapes.Range(Array("Picture 5", "Picture 4", "Picture 3", "Picture 2", "CommandButton1")).Visible = False
UserForm1.Show
End Sub
2- Pour le bouton qui ferme le userform :
Private Sub CommandButton2_Click()
FermetureUserForm
End Sub
3- pour la croix du userform :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
FermetureUserForm
End Sub
4- la macro qui permet de fermer le userform et de rendre les boutons visibles :
Sub FermetureUserForm()
ActiveSheet.Shapes.Range(Array("Picture 5", "Picture 4", "Picture 3", "Picture 2", _
"CommandButton1")).Visible = True
Unload UserForm1
End Sub
Cordialement
Bernard