Ouvrir/fermer un formulaire
Résolu
A voir également:
- Ouvrir/fermer un formulaire
- Whatsapp formulaire opposition - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
4 réponses
Bonjour,
Concernant ta première question :
Ben.. on plaçant un bouton permettant de le réouvrir et pour lequel tu remettras le code:
Et pour la seconde question,
une brève recherche sur le net permet de trouver, par exemple :
https://exceloffthegrid.com/hide-or-disable-a-vba-userform-x-close-button/
PS: A l'avenir, merci d'utiliser les balises de code pour poster tes codes sur le forum.
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
.
Concernant ta première question :
je ne trouve pas comment le rouvrir
Ben.. on plaçant un bouton permettant de le réouvrir et pour lequel tu remettras le code:
formCommandes.Show
Et pour la seconde question,
comment empêcher de fermer le formulaire
une brève recherche sur le net permet de trouver, par exemple :
https://exceloffthegrid.com/hide-or-disable-a-vba-userform-x-close-button/
PS: A l'avenir, merci d'utiliser les balises de code pour poster tes codes sur le forum.
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
.
Merci Jordane pour ta réponse.
Le lien de exceloffthegrid est intéressant mais je trouve les procédures trop complexes pour le but recherché. Je préfère opter pour la 1ère solution que tu suggères mais en utilisant un raccourci clavier au lieu d'un bouton ; j'ai créé une macro appelée par Ctrl Q (par exemple) et ça fonctionne. Cela me convient puisque je serai, a priori, le seul ou presque à utiliser mon appli qui, du reste, n'est pas professionnelle.
@+
PS - Je n'ai pas vraiment écrit de code dans mon message précédent, juste suggéré les étapes de ma démarche.... Mais si j'ai d'autres questions je respecterai ton conseil.
Le lien de exceloffthegrid est intéressant mais je trouve les procédures trop complexes pour le but recherché. Je préfère opter pour la 1ère solution que tu suggères mais en utilisant un raccourci clavier au lieu d'un bouton ; j'ai créé une macro appelée par Ctrl Q (par exemple) et ça fonctionne. Cela me convient puisque je serai, a priori, le seul ou presque à utiliser mon appli qui, du reste, n'est pas professionnelle.
@+
PS - Je n'ai pas vraiment écrit de code dans mon message précédent, juste suggéré les étapes de ma démarche.... Mais si j'ai d'autres questions je respecterai ton conseil.
Bonjour
Pour créer un Usf sans croix
PS: réaliser avec XL2003 (ca marche avec XL2007 ordi 64 bits)
Pour créer un Usf sans croix
'auteur: Laurent Longre
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
PS: réaliser avec XL2003 (ca marche avec XL2007 ordi 64 bits)