pierre 77930
XLDnaute Nouveau
Bonsoir à tous ,
ce sont mes tous premiers en vba, je voudrais dans ce cas faire apparaitre un userform à la place de l'input box.
Private Sub Workbook_Open()
reponse = MsgBox("voulez-vous créer une demande d'offre ?", vbYesNo, "DEMANDES D'OFFRES PIERRE")
If reponse = 7 Then Exit Sub
Message = InputBox("rentrez votre nom:", "mon prog test", "utilisateur 1")
If Message = "" Then Exit Sub
Range("A1").Value = Message
End Sub
bonne soirée à tous
Pierre
ce sont mes tous premiers en vba, je voudrais dans ce cas faire apparaitre un userform à la place de l'input box.
Private Sub Workbook_Open()
reponse = MsgBox("voulez-vous créer une demande d'offre ?", vbYesNo, "DEMANDES D'OFFRES PIERRE")
If reponse = 7 Then Exit Sub
Message = InputBox("rentrez votre nom:", "mon prog test", "utilisateur 1")
If Message = "" Then Exit Sub
Range("A1").Value = Message
End Sub
bonne soirée à tous
Pierre