Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes
boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs sommes
ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 =
J'annule " )
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
Jacky
Bonsoir,
Le MSGBOX n'est pas vraiment adapter pour faire cela, il faudrait utiliser un petit UserForm qui conviendrait mieux. Néanmoins, utilisé comme ceci, cela pourrait convenir........ '---------------- Sub jj() rep = MsgBox("Boite de saisie" & Chr(10) & Chr(10) & "Clique sur:" _ & Chr(10) & "OUI pour saisir une somme" & Chr(10) & "NON pour saisir plusieurs sommes", 3, Application.UserName) If rep = 6 Then MsgBox "Ici traitement pour une somme" End If If rep = 7 Then MsgBox "Ici traitement pour plusieurs sommes" End If End Sub '--------------------- -- Salutations JJ
"Stéphane B." a écrit dans le message de news:
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs sommes ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 > J'annule " )
Merçi pour votre aide
Stéphane B.
Bonsoir,
Le MSGBOX n'est pas vraiment adapter pour faire cela, il faudrait utiliser
un petit UserForm qui conviendrait mieux.
Néanmoins, utilisé comme ceci, cela pourrait convenir........
'----------------
Sub jj()
rep = MsgBox("Boite de saisie" & Chr(10) & Chr(10) & "Clique sur:" _
& Chr(10) & "OUI pour saisir une somme" & Chr(10) & "NON pour saisir
plusieurs sommes", 3, Application.UserName)
If rep = 6 Then
MsgBox "Ici traitement pour une somme"
End If
If rep = 7 Then
MsgBox "Ici traitement pour plusieurs sommes"
End If
End Sub
'---------------------
--
Salutations
JJ
"Stéphane B." <StphaneB@discussions.microsoft.com> a écrit dans le message
de news: 59155D10-926F-4DDF-A919-459C72225D47@microsoft.com...
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes
boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs
sommes
ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 > J'annule " )
Le MSGBOX n'est pas vraiment adapter pour faire cela, il faudrait utiliser un petit UserForm qui conviendrait mieux. Néanmoins, utilisé comme ceci, cela pourrait convenir........ '---------------- Sub jj() rep = MsgBox("Boite de saisie" & Chr(10) & Chr(10) & "Clique sur:" _ & Chr(10) & "OUI pour saisir une somme" & Chr(10) & "NON pour saisir plusieurs sommes", 3, Application.UserName) If rep = 6 Then MsgBox "Ici traitement pour une somme" End If If rep = 7 Then MsgBox "Ici traitement pour plusieurs sommes" End If End Sub '--------------------- -- Salutations JJ
"Stéphane B." a écrit dans le message de news:
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs sommes ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 > J'annule " )
Merçi pour votre aide
Stéphane B.
Jacky
Re... Exemple simple ici http://www.cijoint.fr/cjlink.php?file=cj200905/cijg60XCTu.xls
-- Salutations JJ
"Jacky" a écrit dans le message de news: %23IJ%
Bonsoir,
Le MSGBOX n'est pas vraiment adapter pour faire cela, il faudrait utiliser un petit UserForm qui conviendrait mieux. Néanmoins, utilisé comme ceci, cela pourrait convenir........ '---------------- Sub jj() rep = MsgBox("Boite de saisie" & Chr(10) & Chr(10) & "Clique sur:" _ & Chr(10) & "OUI pour saisir une somme" & Chr(10) & "NON pour saisir plusieurs sommes", 3, Application.UserName) If rep = 6 Then MsgBox "Ici traitement pour une somme" End If If rep = 7 Then MsgBox "Ici traitement pour plusieurs sommes" End If End Sub '--------------------- -- Salutations JJ
"Stéphane B." a écrit dans le message de news:
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs sommes ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 >> J'annule " )
Merçi pour votre aide
Stéphane B.
Re...
Exemple simple ici
http://www.cijoint.fr/cjlink.php?file=cj200905/cijg60XCTu.xls
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23IJ%23rlb0JHA.2656@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Le MSGBOX n'est pas vraiment adapter pour faire cela, il faudrait utiliser
un petit UserForm qui conviendrait mieux.
Néanmoins, utilisé comme ceci, cela pourrait convenir........
'----------------
Sub jj()
rep = MsgBox("Boite de saisie" & Chr(10) & Chr(10) & "Clique sur:" _
& Chr(10) & "OUI pour saisir une somme" & Chr(10) & "NON pour saisir
plusieurs sommes", 3, Application.UserName)
If rep = 6 Then
MsgBox "Ici traitement pour une somme"
End If
If rep = 7 Then
MsgBox "Ici traitement pour plusieurs sommes"
End If
End Sub
'---------------------
--
Salutations
JJ
"Stéphane B." <StphaneB@discussions.microsoft.com> a écrit dans le message
de news: 59155D10-926F-4DDF-A919-459C72225D47@microsoft.com...
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes
boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs
sommes
ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 >> J'annule " )
Re... Exemple simple ici http://www.cijoint.fr/cjlink.php?file=cj200905/cijg60XCTu.xls
-- Salutations JJ
"Jacky" a écrit dans le message de news: %23IJ%
Bonsoir,
Le MSGBOX n'est pas vraiment adapter pour faire cela, il faudrait utiliser un petit UserForm qui conviendrait mieux. Néanmoins, utilisé comme ceci, cela pourrait convenir........ '---------------- Sub jj() rep = MsgBox("Boite de saisie" & Chr(10) & Chr(10) & "Clique sur:" _ & Chr(10) & "OUI pour saisir une somme" & Chr(10) & "NON pour saisir plusieurs sommes", 3, Application.UserName) If rep = 6 Then MsgBox "Ici traitement pour une somme" End If If rep = 7 Then MsgBox "Ici traitement pour plusieurs sommes" End If End Sub '--------------------- -- Salutations JJ
"Stéphane B." a écrit dans le message de news:
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs sommes ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 >> J'annule " )
Merçi pour votre aide
Stéphane B.
Daniel.j
Bonjour Des trucs ici http://dj.joss.free.fr/msg.htm
Daniel -- FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/ "Stéphane B." a écrit dans le message de news:
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs sommes ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 > J'annule " )
Merçi pour votre aide
Stéphane B.
Bonjour
Des trucs ici http://dj.joss.free.fr/msg.htm
Daniel
--
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Stéphane B." <StphaneB@discussions.microsoft.com> a écrit dans le message
de news: 59155D10-926F-4DDF-A919-459C72225D47@microsoft.com...
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes
boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs
sommes
ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 > J'annule " )
Bonjour Des trucs ici http://dj.joss.free.fr/msg.htm
Daniel -- FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/ "Stéphane B." a écrit dans le message de news:
Merçi de m'indiquer comment creer une boite de dialogue Msgbox avec mes boutons personalisés ( exemple : Veux-tu entrer une somme ou plusieurs sommes ou annuler ? " Bouton 1 = une " " Bouton 2 = Plusieurs " " Bouton 3 > J'annule " )