J'ai 2 petits probl=E8mes =E0 soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant.
Je fais une petite appli sous Excel avec quelques macros,=20
elle prend environ 1,5 Mo. Je fais une autre appli, quasi=20
=E9quivalente, elle fait 43 Mo !!!!! Comment est-ce=20
possible ?
2- Comment d=E9sactiver la fermeture d'une Msgbox par la=20
croix. Je veux que l'utilisateur soit oblig=E9 de cliquer=20
sur le Ok de la bo=EEte pour la fermer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
wilderwein
Salut Franck, Pour ta premiere question, j'ai pas trop d'idée. Aurais tu ajouté des images ??? Pour ta deuxieme question essaye donc un truc du genre
Sub test() Dim mes As Integer Do mes = MsgBox("Test", vbYesNoCancel, "Mon test") Loop Until mes = 6 End Sub
"Franck" a écrit dans le message de news:2a5b01c373ab$5863c040$ Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant. Je fais une petite appli sous Excel avec quelques macros, elle prend environ 1,5 Mo. Je fais une autre appli, quasi équivalente, elle fait 43 Mo !!!!! Comment est-ce possible ?
2- Comment désactiver la fermeture d'une Msgbox par la croix. Je veux que l'utilisateur soit obligé de cliquer sur le Ok de la boîte pour la fermer
Merci Franck
Salut Franck,
Pour ta premiere question, j'ai pas trop d'idée. Aurais tu ajouté des images
???
Pour ta deuxieme question essaye donc un truc du genre
Sub test()
Dim mes As Integer
Do
mes = MsgBox("Test", vbYesNoCancel, "Mon test")
Loop Until mes = 6
End Sub
"Franck" <bernard@tolbiac.inserm.fr> a écrit dans le message de
news:2a5b01c373ab$5863c040$a401280a@phx.gbl...
Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant.
Je fais une petite appli sous Excel avec quelques macros,
elle prend environ 1,5 Mo. Je fais une autre appli, quasi
équivalente, elle fait 43 Mo !!!!! Comment est-ce
possible ?
2- Comment désactiver la fermeture d'une Msgbox par la
croix. Je veux que l'utilisateur soit obligé de cliquer
sur le Ok de la boîte pour la fermer
Salut Franck, Pour ta premiere question, j'ai pas trop d'idée. Aurais tu ajouté des images ??? Pour ta deuxieme question essaye donc un truc du genre
Sub test() Dim mes As Integer Do mes = MsgBox("Test", vbYesNoCancel, "Mon test") Loop Until mes = 6 End Sub
"Franck" a écrit dans le message de news:2a5b01c373ab$5863c040$ Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant. Je fais une petite appli sous Excel avec quelques macros, elle prend environ 1,5 Mo. Je fais une autre appli, quasi équivalente, elle fait 43 Mo !!!!! Comment est-ce possible ?
2- Comment désactiver la fermeture d'une Msgbox par la croix. Je veux que l'utilisateur soit obligé de cliquer sur le Ok de la boîte pour la fermer
Merci Franck
Hervé
Salut Franck, A mettre dans le module de ta form : Private Sub UserForm_QueryClose( _ Cancel As Integer, _ CloseMode As Integer) If CloseMode = 0 Then Cancel = 1 End Sub
Pour le poids, éssai de refaire un classeur !
Hervé. "Franck" a écrit dans le message news: 2a5b01c373ab$5863c040$ Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant. Je fais une petite appli sous Excel avec quelques macros, elle prend environ 1,5 Mo. Je fais une autre appli, quasi équivalente, elle fait 43 Mo !!!!! Comment est-ce possible ?
2- Comment désactiver la fermeture d'une Msgbox par la croix. Je veux que l'utilisateur soit obligé de cliquer sur le Ok de la boîte pour la fermer
Merci Franck
Salut Franck,
A mettre dans le module de ta form :
Private Sub UserForm_QueryClose( _
Cancel As Integer, _
CloseMode As Integer)
If CloseMode = 0 Then Cancel = 1
End Sub
Pour le poids, éssai de refaire un classeur !
Hervé.
"Franck" <bernard@tolbiac.inserm.fr> a écrit dans le message news:
2a5b01c373ab$5863c040$a401280a@phx.gbl...
Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant.
Je fais une petite appli sous Excel avec quelques macros,
elle prend environ 1,5 Mo. Je fais une autre appli, quasi
équivalente, elle fait 43 Mo !!!!! Comment est-ce
possible ?
2- Comment désactiver la fermeture d'une Msgbox par la
croix. Je veux que l'utilisateur soit obligé de cliquer
sur le Ok de la boîte pour la fermer
Salut Franck, A mettre dans le module de ta form : Private Sub UserForm_QueryClose( _ Cancel As Integer, _ CloseMode As Integer) If CloseMode = 0 Then Cancel = 1 End Sub
Pour le poids, éssai de refaire un classeur !
Hervé. "Franck" a écrit dans le message news: 2a5b01c373ab$5863c040$ Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant. Je fais une petite appli sous Excel avec quelques macros, elle prend environ 1,5 Mo. Je fais une autre appli, quasi équivalente, elle fait 43 Mo !!!!! Comment est-ce possible ?
2- Comment désactiver la fermeture d'une Msgbox par la croix. Je veux que l'utilisateur soit obligé de cliquer sur le Ok de la boîte pour la fermer
Merci Franck
Franck
Non, pas d'images dans le fichier
pour ta macro, elle est un peu trop efficace, même un clic sur OK ne ferme plus la boite
-----Message d'origine----- Salut Franck, Pour ta premiere question, j'ai pas trop d'idée. Aurais tu ajouté des images
??? Pour ta deuxieme question essaye donc un truc du genre
Sub test() Dim mes As Integer Do mes = MsgBox("Test", vbYesNoCancel, "Mon test") Loop Until mes = 6 End Sub
"Franck" a écrit dans le message de
news:2a5b01c373ab$5863c040$ Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant. Je fais une petite appli sous Excel avec quelques macros, elle prend environ 1,5 Mo. Je fais une autre appli, quasi équivalente, elle fait 43 Mo !!!!! Comment est-ce possible ?
2- Comment désactiver la fermeture d'une Msgbox par la croix. Je veux que l'utilisateur soit obligé de cliquer sur le Ok de la boîte pour la fermer
Merci Franck
.
Non, pas d'images dans le fichier
pour ta macro, elle est un peu trop efficace, même un clic
sur OK ne ferme plus la boite
-----Message d'origine-----
Salut Franck,
Pour ta premiere question, j'ai pas trop d'idée. Aurais
tu ajouté des images
???
Pour ta deuxieme question essaye donc un truc du genre
Sub test()
Dim mes As Integer
Do
mes = MsgBox("Test", vbYesNoCancel, "Mon test")
Loop Until mes = 6
End Sub
"Franck" <bernard@tolbiac.inserm.fr> a écrit dans le
message de
news:2a5b01c373ab$5863c040$a401280a@phx.gbl...
Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant.
Je fais une petite appli sous Excel avec quelques macros,
elle prend environ 1,5 Mo. Je fais une autre appli, quasi
équivalente, elle fait 43 Mo !!!!! Comment est-ce
possible ?
2- Comment désactiver la fermeture d'une Msgbox par la
croix. Je veux que l'utilisateur soit obligé de cliquer
sur le Ok de la boîte pour la fermer
pour ta macro, elle est un peu trop efficace, même un clic sur OK ne ferme plus la boite
-----Message d'origine----- Salut Franck, Pour ta premiere question, j'ai pas trop d'idée. Aurais tu ajouté des images
??? Pour ta deuxieme question essaye donc un truc du genre
Sub test() Dim mes As Integer Do mes = MsgBox("Test", vbYesNoCancel, "Mon test") Loop Until mes = 6 End Sub
"Franck" a écrit dans le message de
news:2a5b01c373ab$5863c040$ Bonjour à tous,
J'ai 2 petits problèmes à soumettre aux cerveaux MPFiens:
1- Pas trop grave mais impressionnant. Je fais une petite appli sous Excel avec quelques macros, elle prend environ 1,5 Mo. Je fais une autre appli, quasi équivalente, elle fait 43 Mo !!!!! Comment est-ce possible ?
2- Comment désactiver la fermeture d'une Msgbox par la croix. Je veux que l'utilisateur soit obligé de cliquer sur le Ok de la boîte pour la fermer
Merci Franck
.
wilderwein
Tout dépend du code de retour (consulte l'aide sur msgbox)
vbOK =1 vbCancel=2 ... vbYes=6 vbNo=7
pour ta macro, elle est un peu trop efficace, même un clic sur OK ne ferme plus la boite
Tout dépend du code de retour (consulte l'aide sur msgbox)
vbOK =1
vbCancel=2
...
vbYes=6
vbNo=7
pour ta macro, elle est un peu trop efficace, même un clic
sur OK ne ferme plus la boite