Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Empêcher affichage boîte à outil du formulaire lors exécution macro

2 réponses
Avatar
stephanie thibault
Bonjour,
J'ai fait une macro avec un formulaire.
J'ai verrouill=E9 ma macro pour que l'utilisateur ne voit pas le code.
Mais quand il clique sur un des boutons, la bo=EEte =E0 outils du
formulaire appara=EEt !
Comment faire pour qu'elle ne s'affiche pas ?
Et c'est bizarre, =E7a ne le fait qu'avec un des boutons, pourtant je ne
vois rien dans mon code qui permettrait de l'afficher.
Que dois-je faire ?
Merci

Mon code:
Private Sub OK2_Click()
UserForm1.Frame5.Enabled =3D True
UserForm1.Frame2.Enabled =3D False

UserForm1.OK2.BackColor =3D &HE0E0E0 'gris
UserForm1.Effacer2.BackColor =3D &HE0E0E0 'gris

UserForm1.ComboBox4.BackColor =3D &HE0E0E0 'gris
UserForm1.ComboBox5.BackColor =3D &HE0E0E0 'gris
UserForm1.ComboBox6.BackColor =3D &HE0E0E0 'gris

UserForm1.Effacer3.BackColor =3D &HC0C0FF 'rose
UserForm1.OK3.BackColor =3D &HC0FFC0 'vert

UserForm1.ComboBox10.BackColor =3D &H80000005 'blanc
UserForm1.ComboBox11.BackColor =3D &H80000005 'blanc
UserForm1.ComboBox12.BackColor =3D &H80000005 'blanc

End Sub

2 réponses

Avatar
stephanie thibault
On 17 mai, 09:27, stephanie thibault wrote:
Bonjour,
J'ai fait une macro avec un formulaire.
J'ai verrouillé ma macro pour que l'utilisateur ne voit pas le code.
Mais quand il clique sur un des boutons, la boîte à outils du
formulaire apparaît !
Comment faire pour qu'elle ne s'affiche pas ?
Et c'est bizarre, ça ne le fait qu'avec un des boutons, pourtant je ne
vois rien dans mon code qui permettrait de l'afficher.
Que dois-je faire ?
Merci

Mon code:
Private Sub OK2_Click()
UserForm1.Frame5.Enabled = True
UserForm1.Frame2.Enabled = False

UserForm1.OK2.BackColor = &HE0E0E0 'gris
UserForm1.Effacer2.BackColor = &HE0E0E0 'gris

UserForm1.ComboBox4.BackColor = &HE0E0E0 'gris
UserForm1.ComboBox5.BackColor = &HE0E0E0 'gris
UserForm1.ComboBox6.BackColor = &HE0E0E0 'gris

UserForm1.Effacer3.BackColor = &HC0C0FF    'rose
UserForm1.OK3.BackColor = &HC0FFC0 'vert

UserForm1.ComboBox10.BackColor = &H80000005 'blanc
UserForm1.ComboBox11.BackColor = &H80000005 'blanc
UserForm1.ComboBox12.BackColor = &H80000005 'blanc

End Sub



Bon ben je ne sais pas pourquoi, mais le problème a disparu !
Avatar
Gloops
stephanie thibault a écrit, le 17/05/2011 11:19 :
On 17 mai, 09:27, stephanie thibault wrote:
Bonjour,
J'ai fait une macro avec un formulaire.
J'ai verrouillé ma macro pour que l'utilisateur ne voit pas le code.
Mais quand il clique sur un des boutons, la boîte à outils du
formulaire apparaît !
Comment faire pour qu'elle ne s'affiche pas ?
Et c'est bizarre, ça ne le fait qu'avec un des boutons, pourtant je ne
vois rien dans mon code qui permettrait de l'afficher.
Que dois-je faire ?
Merci

Mon code:
Private Sub OK2_Click()
UserForm1.Frame5.Enabled = True
UserForm1.Frame2.Enabled = False

UserForm1.OK2.BackColor =&HE0E0E0 'gris
UserForm1.Effacer2.BackColor =&HE0E0E0 'gris

UserForm1.ComboBox4.BackColor =&HE0E0E0 'gris
UserForm1.ComboBox5.BackColor =&HE0E0E0 'gris
UserForm1.ComboBox6.BackColor =&HE0E0E0 'gris

UserForm1.Effacer3.BackColor =&HC0C0FF 'rose
UserForm1.OK3.BackColor =&HC0FFC0 'vert

UserForm1.ComboBox10.BackColor =&H80000005 'blanc
UserForm1.ComboBox11.BackColor =&H80000005 'blanc
UserForm1.ComboBox12.BackColor =&H80000005 'blanc

End Sub



Bon ben je ne sais pas pourquoi, mais le problème a disparu !



C'est probablement mieux que l'inverse :)
Plus pratique, en tout cas.