[RESOLU] Manipuler une MsgBox

[guyvano24]

Bonsoir à vous tous,

Après des heures de recherche sur les forums, je n'ai pas trouvé de solution à mon problème que voici.

Dans un formulaire j'ai le choix entre deux séries de cases à cocher. je souhaiterai trouver le code afin que lorsque j'appuie sur le bouton test, s'affiche les options choisies. Ensuite je valide la MsgBox qui m'écrit dans les cellules les deux options (B4 et B6).
Evidemment le fichier ci joint n'est qu'une partie de mon classeur.
Merci pour votre aide.

 

[xhudi69]

Re : Manipuler une MsgBox

Bonsoir guyvano24, le Forum,

Pas sur d'avoir compris 😕

Voir PJ.

@+ 😎

 

[guyvano24]

Re : Manipuler une MsgBox

Bonsoir xhudi69

Désolé j'ai excel 2003 et je ne peux pas ouvrir le fichier que vous m'avez joint

 

[xhudi69]

Re : Manipuler une MsgBox

Re guyvano24, le Forum,

Voir en PJ.

@+ 😎

 

[guyvano24]

Re : Manipuler une MsgBox

Voici le fichier auquel j'ai durant tout ce temps fait quelques modifs.
Il faudrait en réalité remplacer le texte de la case option par deux txtbox et mettre le résultat dans la cellule (B4 ou B6)

 

[JBARBE]

Re : Manipuler une MsgBox

Bonsoir à tous,

Je n'ai guère compris mais voici des inputbox pour la saisie voulue en B4 et B6

Option Explicit

Sub Macro1()
Dim Message As String
Message = MsgBox("Voulez-vous saisir en B4", vbYesNo)
If Message = vbYes Then
Range("B4") = InputBox("Saisie en B4")
End If
Message = MsgBox("Voulez-vous saisir en B6", vbYesNo)
If Message = vbYes Then
Range("B6") = InputBox("Saisie en B6")
End If
End Sub

bon feu d'artifice

 

[guyvano24]

Re : Manipuler une MsgBox

Bonjour
Merci JBARBE, mais ce n'est pas ce que je recherche
Dans le fichier joint dans mon précédent envoi, on ouvre un
formulaire qui me donne le choix entre deux cadres d'options (2x3 cases à options.)
Je désire :
1 - Remplacer "Optionbutton.." par un txtbox contenant mon texte. (Boutons sans fonction plus pratique!). C'est fait
2 - Sélectionner 1 des options dans les cadres (Frame.....)
3 - Valider mes options par le bouton "Test" qui m'afficherait le résultat de mes choix dans une MsgBox
4 - Confirmer mes choix et les inscrire dans les cellules B4 B6 .......(et la suite pour le fichier réel trop lourd à télécharger)
J'espère avoir été plus précis. La nuit ayant été propice à la réflexion 🙂
Merci d'avance pour l'aide que vous me donnerez.
Fichier retransformé pour aide.
Ce que je souhaite c'est trouvé les codes afin de rendre opérationnel le formulaire.

 

[xhudi69]

Re : Manipuler une MsgBox

Bonsoir guyvano24, le Forum,

Je n'ai pas pu ouvrir ton UserForm 😛 , mais ajoutes cette macro dans ton bouton "tester".

Private Sub BtnTest_Click()
        With Frame1
            Select Case True
                Case OptBtn1.Value
                    a = CommandButton1.Caption
                Case OptBtn2.Value
                    a = CommandButton2.Caption & " " & CommandButton8.Caption
                Case OptBtn3.Value
                    a = CommandButton3.Caption & " " & CommandButton9.Caption & " " & CommandButton15.Caption
                Case OptBtn4.Value
                    a = CommandButton4.Caption
                Case OptBtn5.Value
                    a = CommandButton5.Caption & " " & CommandButton11.Caption
                Case OptBtn6.Value
                    a = CommandButton6.Caption & " " & CommandButton12.Caption & " " & CommandButton14.Caption
            End Select
        End With
        With Frame2
            Select Case True
                Case OptBtn1Bt.Value
                    b = CommandButton16.Caption
                Case OptBtn2Bt.Value
                    b = CommandButton17.Caption
                Case OptBtn3Bt.Value
                    b = CommandButton18.Caption
                Case OptBtn4Bt.Value
                    b = CommandButton19.Caption
            End Select
        End With
        
Select Case MsgBox("Voulez-vous valider ce choix" & Chr(10) & _
    a & Chr(10) & _
    b, vbOKCancel, "Confirmation")
    
    Case vbYes

    'Ici ta macro..................................

    Case vbNo
        Exit Sub
End Select
End Sub

@+ 😎

 

[guyvano24]

Re : Manipuler une MsgBox

Bonjour et merci à toi xhudi69

J'ai utilisé ta macro et je la transforme pour convenir à ce que je recherche.
Super travail de ta part encore un grand merci