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
jps
bonjour andréSch AMHA non mais si tu crées un Userform, tu pourras y installer des boutons avec le texte qui te convient... moi, par exemple, j'en ai un avec 2 boutons : le premier avec le mot "VIN", le second avec "BEAUJOLAIS"... jps
"AndréSch" a écrit dans le message de news:
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
bonjour andréSch
AMHA non mais si tu crées un Userform, tu pourras y installer des boutons
avec le texte qui te convient...
moi, par exemple, j'en ai un avec 2 boutons : le premier avec le mot "VIN",
le second avec "BEAUJOLAIS"...
jps
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de
news:OVAGdzkKFHA.3340@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non
Annuler...
par exemple Banque caisse Annuler
bonjour andréSch AMHA non mais si tu crées un Userform, tu pourras y installer des boutons avec le texte qui te convient... moi, par exemple, j'en ai un avec 2 boutons : le premier avec le mot "VIN", le second avec "BEAUJOLAIS"... jps
"AndréSch" a écrit dans le message de news:
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
sniper
jp,
...le premier avec le mot "VIN", le second avec "BEAUJOLAIS"...
en toute amitié, je préfère le premier,
amicalement
-----Original Message----- bonjour andréSch AMHA non mais si tu crées un Userform, tu pourras y installer des boutons
avec le texte qui te convient... moi, par exemple, j'en ai un avec 2 boutons : le premier avec le mot "VIN",
le second avec "BEAUJOLAIS"... jps
"AndréSch" a écrit dans le message de
news:
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non
Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
.
jp,
...le premier avec le mot "VIN",
le second avec "BEAUJOLAIS"...
en toute amitié, je préfère le premier,
amicalement
-----Original Message-----
bonjour andréSch
AMHA non mais si tu crées un Userform, tu pourras y
installer des boutons
avec le texte qui te convient...
moi, par exemple, j'en ai un avec 2 boutons : le premier
avec le mot "VIN",
le second avec "BEAUJOLAIS"...
jps
"AndréSch" <cephaspierre@aol.com> a écrit dans le
message de
news:OVAGdzkKFHA.3340@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre
chose que Oui Non
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
MichDenis
Bonjour AndréSch,
Michel Perron a déjà proposé ceci :
Tu copie tout ceci dans un module Standard :
et tu exécute la procédure : Sub changeTexte()
'Déclaration des API dans le haut du module Option Explicit Private Type tagCWPRETSTRUCT lResult As Long lParam As Long wParam As Long Message As Long hWnd As Long End Type Private Declare Function SetDlgItemText Lib "user32" Alias _ "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long _ , ByVal lpString As String) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Private Declare Function GetCurrentThreadId& Lib "kernel32" () Private Declare Function SetWindowsHookEx Lib "user32" Alias _ "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long _ , ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private lgHook As Long
Sub changeTexte() Const WH_CALLWNDPROCRET = 12 Dim rep As VbMsgBoxResult lgHook = SetWindowsHookEx(WH_CALLWNDPROCRET _ , AddressOf CallWndRetProc, 0, GetCurrentThreadId) rep = MsgBox("Texte des boutons changés", vbYesNoCancel) If rep = vbCancel Then MsgBox "Annuler", vbInformation, "API" If rep = vbYes Then MsgBox "Banque", vbInformation, "API" If rep = vbNo Then MsgBox "Caisse", vbInformation, "API" End Sub
Private Function CallWndRetProc(ByVal nCode As Long _ , ByVal wParam As Long, s As tagCWPRETSTRUCT) As Long Const WM_INITDIALOG = &H110 If s.Message = WM_INITDIALOG Then Call SetDlgItemText(s.hWnd, vbYes, "Banque") Call SetDlgItemText(s.hWnd, vbNo, "Caisse") Call SetDlgItemText(s.hWnd, vbCancel, "Annuler") UnhookWindowsHookEx lgHook End If End Function
Salutations!
"AndréSch" a écrit dans le message de news: Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
Bonjour AndréSch,
Michel Perron a déjà proposé ceci :
Tu copie tout ceci dans un module Standard :
et tu exécute la procédure : Sub changeTexte()
'Déclaration des API dans le haut du module
Option Explicit
Private Type tagCWPRETSTRUCT
lResult As Long
lParam As Long
wParam As Long
Message As Long
hWnd As Long
End Type
Private Declare Function SetDlgItemText Lib "user32" Alias _
"SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long _
, ByVal lpString As String) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Private Declare Function GetCurrentThreadId& Lib "kernel32" ()
Private Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long _
, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private lgHook As Long
Sub changeTexte()
Const WH_CALLWNDPROCRET = 12
Dim rep As VbMsgBoxResult
lgHook = SetWindowsHookEx(WH_CALLWNDPROCRET _
, AddressOf CallWndRetProc, 0, GetCurrentThreadId)
rep = MsgBox("Texte des boutons changés", vbYesNoCancel)
If rep = vbCancel Then MsgBox "Annuler", vbInformation, "API"
If rep = vbYes Then MsgBox "Banque", vbInformation, "API"
If rep = vbNo Then MsgBox "Caisse", vbInformation, "API"
End Sub
Private Function CallWndRetProc(ByVal nCode As Long _
, ByVal wParam As Long, s As tagCWPRETSTRUCT) As Long
Const WM_INITDIALOG = &H110
If s.Message = WM_INITDIALOG Then
Call SetDlgItemText(s.hWnd, vbYes, "Banque")
Call SetDlgItemText(s.hWnd, vbNo, "Caisse")
Call SetDlgItemText(s.hWnd, vbCancel, "Annuler")
UnhookWindowsHookEx lgHook
End If
End Function
Salutations!
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news: OVAGdzkKFHA.3340@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non
Annuler...
par exemple Banque caisse Annuler
'Déclaration des API dans le haut du module Option Explicit Private Type tagCWPRETSTRUCT lResult As Long lParam As Long wParam As Long Message As Long hWnd As Long End Type Private Declare Function SetDlgItemText Lib "user32" Alias _ "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long _ , ByVal lpString As String) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Private Declare Function GetCurrentThreadId& Lib "kernel32" () Private Declare Function SetWindowsHookEx Lib "user32" Alias _ "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long _ , ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private lgHook As Long
Sub changeTexte() Const WH_CALLWNDPROCRET = 12 Dim rep As VbMsgBoxResult lgHook = SetWindowsHookEx(WH_CALLWNDPROCRET _ , AddressOf CallWndRetProc, 0, GetCurrentThreadId) rep = MsgBox("Texte des boutons changés", vbYesNoCancel) If rep = vbCancel Then MsgBox "Annuler", vbInformation, "API" If rep = vbYes Then MsgBox "Banque", vbInformation, "API" If rep = vbNo Then MsgBox "Caisse", vbInformation, "API" End Sub
Private Function CallWndRetProc(ByVal nCode As Long _ , ByVal wParam As Long, s As tagCWPRETSTRUCT) As Long Const WM_INITDIALOG = &H110 If s.Message = WM_INITDIALOG Then Call SetDlgItemText(s.hWnd, vbYes, "Banque") Call SetDlgItemText(s.hWnd, vbNo, "Caisse") Call SetDlgItemText(s.hWnd, vbCancel, "Annuler") UnhookWindowsHookEx lgHook End If End Function
Salutations!
"AndréSch" a écrit dans le message de news: Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
jps
ah sniper je vois que tu n'as pas été sensible à mon auto-dérision... jps
"sniper" a écrit dans le message de news:06b001c52a53$b7ce2600$ jp,
...le premier avec le mot "VIN", le second avec "BEAUJOLAIS"...
en toute amitié, je préfère le premier,
amicalement
-----Original Message----- bonjour andréSch AMHA non mais si tu crées un Userform, tu pourras y installer des boutons
avec le texte qui te convient... moi, par exemple, j'en ai un avec 2 boutons : le premier avec le mot "VIN",
le second avec "BEAUJOLAIS"... jps
"AndréSch" a écrit dans le message de
news:
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non
Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
.
ah sniper
je vois que tu n'as pas été sensible à mon auto-dérision...
jps
"sniper" <sniper@discussions.microsoft.com> a écrit dans le message de
news:06b001c52a53$b7ce2600$a401280a@phx.gbl...
jp,
...le premier avec le mot "VIN",
le second avec "BEAUJOLAIS"...
en toute amitié, je préfère le premier,
amicalement
-----Original Message-----
bonjour andréSch
AMHA non mais si tu crées un Userform, tu pourras y
installer des boutons
avec le texte qui te convient...
moi, par exemple, j'en ai un avec 2 boutons : le premier
avec le mot "VIN",
le second avec "BEAUJOLAIS"...
jps
"AndréSch" <cephaspierre@aol.com> a écrit dans le
message de
news:OVAGdzkKFHA.3340@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre
chose que Oui Non
merci à toi, j'y va andré "anonymousA" a écrit dans le message de news: 423888b1$0$20253$
bonjour,
à voir eventuellement
http://xcelfiles.homestead.com/API_11.html
A+
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
AndréSch
Mon cher Michel je te remercie une fois de plus pour ton excellente réponse... C'est de la haute performance... J'en reste "quoi.."
amitiés andré
"MichDenis" a écrit dans le message de news:
Bonjour AndréSch,
Michel Perron a déjà proposé ceci :
Tu copie tout ceci dans un module Standard :
et tu exécute la procédure : Sub changeTexte()
'Déclaration des API dans le haut du module Option Explicit Private Type tagCWPRETSTRUCT lResult As Long lParam As Long wParam As Long Message As Long hWnd As Long End Type Private Declare Function SetDlgItemText Lib "user32" Alias _ "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long _ , ByVal lpString As String) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Private Declare Function GetCurrentThreadId& Lib "kernel32" () Private Declare Function SetWindowsHookEx Lib "user32" Alias _ "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long _ , ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private lgHook As Long
Sub changeTexte() Const WH_CALLWNDPROCRET = 12 Dim rep As VbMsgBoxResult lgHook = SetWindowsHookEx(WH_CALLWNDPROCRET _ , AddressOf CallWndRetProc, 0, GetCurrentThreadId) rep = MsgBox("Texte des boutons changés", vbYesNoCancel) If rep = vbCancel Then MsgBox "Annuler", vbInformation, "API" If rep = vbYes Then MsgBox "Banque", vbInformation, "API" If rep = vbNo Then MsgBox "Caisse", vbInformation, "API" End Sub
Private Function CallWndRetProc(ByVal nCode As Long _ , ByVal wParam As Long, s As tagCWPRETSTRUCT) As Long Const WM_INITDIALOG = &H110 If s.Message = WM_INITDIALOG Then Call SetDlgItemText(s.hWnd, vbYes, "Banque") Call SetDlgItemText(s.hWnd, vbNo, "Caisse") Call SetDlgItemText(s.hWnd, vbCancel, "Annuler") UnhookWindowsHookEx lgHook End If End Function
Salutations!
"AndréSch" a écrit dans le message de news:
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
Mon cher Michel
je te remercie une fois de plus pour ton excellente réponse...
C'est de la haute performance...
J'en reste "quoi.."
amitiés
andré
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ODlpU6lKFHA.3512@TK2MSFTNGP15.phx.gbl...
Bonjour AndréSch,
Michel Perron a déjà proposé ceci :
Tu copie tout ceci dans un module Standard :
et tu exécute la procédure : Sub changeTexte()
'Déclaration des API dans le haut du module
Option Explicit
Private Type tagCWPRETSTRUCT
lResult As Long
lParam As Long
wParam As Long
Message As Long
hWnd As Long
End Type
Private Declare Function SetDlgItemText Lib "user32" Alias _
"SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long _
, ByVal lpString As String) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Private Declare Function GetCurrentThreadId& Lib "kernel32" ()
Private Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long _
, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private lgHook As Long
Sub changeTexte()
Const WH_CALLWNDPROCRET = 12
Dim rep As VbMsgBoxResult
lgHook = SetWindowsHookEx(WH_CALLWNDPROCRET _
, AddressOf CallWndRetProc, 0, GetCurrentThreadId)
rep = MsgBox("Texte des boutons changés", vbYesNoCancel)
If rep = vbCancel Then MsgBox "Annuler", vbInformation, "API"
If rep = vbYes Then MsgBox "Banque", vbInformation, "API"
If rep = vbNo Then MsgBox "Caisse", vbInformation, "API"
End Sub
Private Function CallWndRetProc(ByVal nCode As Long _
, ByVal wParam As Long, s As tagCWPRETSTRUCT) As Long
Const WM_INITDIALOG = &H110
If s.Message = WM_INITDIALOG Then
Call SetDlgItemText(s.hWnd, vbYes, "Banque")
Call SetDlgItemText(s.hWnd, vbNo, "Caisse")
Call SetDlgItemText(s.hWnd, vbCancel, "Annuler")
UnhookWindowsHookEx lgHook
End If
End Function
Salutations!
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
OVAGdzkKFHA.3340@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non
Annuler...
par exemple Banque caisse Annuler
Mon cher Michel je te remercie une fois de plus pour ton excellente réponse... C'est de la haute performance... J'en reste "quoi.."
amitiés andré
"MichDenis" a écrit dans le message de news:
Bonjour AndréSch,
Michel Perron a déjà proposé ceci :
Tu copie tout ceci dans un module Standard :
et tu exécute la procédure : Sub changeTexte()
'Déclaration des API dans le haut du module Option Explicit Private Type tagCWPRETSTRUCT lResult As Long lParam As Long wParam As Long Message As Long hWnd As Long End Type Private Declare Function SetDlgItemText Lib "user32" Alias _ "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long _ , ByVal lpString As String) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Private Declare Function GetCurrentThreadId& Lib "kernel32" () Private Declare Function SetWindowsHookEx Lib "user32" Alias _ "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long _ , ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private lgHook As Long
Sub changeTexte() Const WH_CALLWNDPROCRET = 12 Dim rep As VbMsgBoxResult lgHook = SetWindowsHookEx(WH_CALLWNDPROCRET _ , AddressOf CallWndRetProc, 0, GetCurrentThreadId) rep = MsgBox("Texte des boutons changés", vbYesNoCancel) If rep = vbCancel Then MsgBox "Annuler", vbInformation, "API" If rep = vbYes Then MsgBox "Banque", vbInformation, "API" If rep = vbNo Then MsgBox "Caisse", vbInformation, "API" End Sub
Private Function CallWndRetProc(ByVal nCode As Long _ , ByVal wParam As Long, s As tagCWPRETSTRUCT) As Long Const WM_INITDIALOG = &H110 If s.Message = WM_INITDIALOG Then Call SetDlgItemText(s.hWnd, vbYes, "Banque") Call SetDlgItemText(s.hWnd, vbNo, "Caisse") Call SetDlgItemText(s.hWnd, vbCancel, "Annuler") UnhookWindowsHookEx lgHook End If End Function
Salutations!
"AndréSch" a écrit dans le message de news:
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
AndréSch
Ah mais je ne suis pas ennemi de trinquer avec toi apporte la bouteille, j'ai le tire bouchon...
salut andré "jps" a écrit dans le message de news:
ah sniper je vois que tu n'as pas été sensible à mon auto-dérision... jps
"sniper" a écrit dans le message de news:06b001c52a53$b7ce2600$ jp,
...le premier avec le mot "VIN", le second avec "BEAUJOLAIS"...
en toute amitié, je préfère le premier,
amicalement
-----Original Message----- bonjour andréSch AMHA non mais si tu crées un Userform, tu pourras y installer des boutons
avec le texte qui te convient... moi, par exemple, j'en ai un avec 2 boutons : le premier avec le mot "VIN",
le second avec "BEAUJOLAIS"... jps
"AndréSch" a écrit dans le message de
news:
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre chose que Oui Non
Annuler... par exemple Banque caisse Annuler
Pas possible, surement ...
Mais avec excel ... tout est possible... alors...
merci d'avance
André
.
Ah mais je ne suis pas ennemi de trinquer avec toi
apporte la bouteille, j'ai le tire bouchon...
salut
andré
"jps" <pensez@liege.be> a écrit dans le message de news:
ex0iOomKFHA.1280@TK2MSFTNGP09.phx.gbl...
ah sniper
je vois que tu n'as pas été sensible à mon auto-dérision...
jps
"sniper" <sniper@discussions.microsoft.com> a écrit dans le message de
news:06b001c52a53$b7ce2600$a401280a@phx.gbl...
jp,
...le premier avec le mot "VIN",
le second avec "BEAUJOLAIS"...
en toute amitié, je préfère le premier,
amicalement
-----Original Message-----
bonjour andréSch
AMHA non mais si tu crées un Userform, tu pourras y
installer des boutons
avec le texte qui te convient...
moi, par exemple, j'en ai un avec 2 boutons : le premier
avec le mot "VIN",
le second avec "BEAUJOLAIS"...
jps
"AndréSch" <cephaspierre@aol.com> a écrit dans le
message de
news:OVAGdzkKFHA.3340@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Encore une question surement farfelue :
Peut on inscrire sur les boutons d'une Msgbox autre
chose que Oui Non
