Message Box proposant un choix

[guigui4901]

bonjour a tous, toutes.

Je n'arrive pas à trouver ce que je veux sur ce forum, c'est pourquoi je crée ce nouveau sujet.

Je crée une msgbox à l'ouverture de mon fichier (jusque là, je sais faire). Seulement, ce que je sais créer ce sont les msgbox sur lesquelles il suffit de cliquer "ok".

Je veux aujourd'hui faire un peu plus précis: je veux qu'a l'ouverture de mon fichier, apparaisse la message box mais que la elle me propose deux choix: aller à la feuille 1 et aller à la feuille 2.

Pouvez vous m'aider à faire l'écriture vba?

Merci a tous d'avance,

bonne soirée

Guillaume

 

[Papou-net]

Re : Message Box proposant un choix

bonjour a tous, toutes.

Je n'arrive pas à trouver ce que je veux sur ce forum, c'est pourquoi je crée ce nouveau sujet.

Je crée une msgbox à l'ouverture de mon fichier (jusque là, je sais faire). Seulement, ce que je sais créer ce sont les msgbox sur lesquelles il suffit de cliquer "ok".

Je veux aujourd'hui faire un peu plus précis: je veux qu'a l'ouverture de mon fichier, apparaisse la message box mais que la elle me propose deux choix: aller à la feuille 1 et aller à la feuille 2.

Pouvez vous m'aider à faire l'écriture vba?

Merci a tous d'avance,

bonne soirée

Guillaume

Bonsoir guigui4901,

Tu ne peux pas faire ceci avec un msgbox : tu dois simuler cette boite en passant par un userform.

Regardes un exemple sur le fichier joint.

Cordialement.

 

[guigui4901]

Re : Message Box proposant un choix

super merci beaucoup c'est top

bonne soirée

a bientôt peut être

guillaume

 

[CBernardT]

Re : Message Box proposant un choix

Bonsoir à tous,


Un exemple avec une InputBox

 

[pou pouille]

Re : Message Box proposant un choix

bonjour, petite contribution qui n'est absolument pas de moi mais permet de renommer les boutons d'une msgbox:

Option Explicit

'---------------------------------------------|
' ******************************************* |
' * Sujet : Boutons de MsgBox personnalisés * |
' ******************************************* |
'---------------------------------------------|

Private Declare Function SetWindowsHookEx& Lib "USER32" Alias "SetWindowsHookExA" (ByVal idHook&, ByVal lpfn&, ByVal hmod&, ByVal dwThreadId&)
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function CallNextHookEx Lib "USER32" (ByVal hHook As Long, ByVal CodeNo As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetWindow Lib "USER32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SetWindowText Lib "USER32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Private Declare Function UnhookWindowsHookEx& Lib "USER32" (ByVal hHook&)
Private msgHook&
Private TitreBtn$(1 To 2)

Function MsgBoxPerso(Titr$, Msg$, Btn1$, Btn2$, BtnCancel As Boolean) As Byte
Dim Reply%, hInstance&
      TitreBtn(1) = Btn1
      TitreBtn(2) = Btn2
      msgHook = SetWindowsHookEx(5, AddressOf CaptionBoutons, hInstance, GetCurrentThreadId())
      Reply = MsgBox(Msg, IIf(BtnCancel, vbYesNoCancel, vbYesNo) + vbQuestion, Titr)
      MsgBoxPerso = Application.Max(Reply - 5, 0)
      Erase TitreBtn
End Function

Private Function CaptionBoutons&(ByVal nCode&, ByVal wParam&, ByVal lParam&)
Dim hWndChild&
   If nCode < 0 Then
      CaptionBoutons = CallNextHookEx(msgHook, nCode, wParam, lParam)
      Exit Function
   End If
   If nCode = 5 Then
      hWndChild = GetWindow(wParam, 5)
      Call SetWindowText(hWndChild, TitreBtn(1))
      hWndChild = GetWindow(hWndChild, 2)
      Call SetWindowText(hWndChild, TitreBtn(2))
      UnhookWindowsHookEx msgHook
   End If
   CaptionBoutons = False
End Function
sub message()
' Affiche le message. pour savoir le nombre de faces 1 ou 2
Dim Msg, Style, Title, MyString ', response
Msg = "La carte comporte t elle 2 faces ?"    ' Définit le message.
Style = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal  ' Définit les boutons.
Title = "Nombre de faces "    ' Définit le titre.
'response = MsgBox(Msg, Style, Title)
    
Dim choix As Byte
      choix = MsgBoxPerso("Nombre de faces", "Combien de faces comporte la carte ?", "1", "2", False)
      Select Case choix
      Case 1
            response = 7
      Case 2
            response = 6
      End Select
end sub

il suffi de changer le "1" et "2" avec le texte choisi.