Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

userform

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
 

jeanpierre

Nous a quitté
Repose en paix
Re : userform

Bonjour Pierre,

Pour faire ce que tu veux, tu vas sous VBE, et sur ton projet faire Insertion/Userform...

Tu y colles des Labels, tes Textbox et autres bizarreries, et ensuite tu codes derrière chaque élément...

Par Recherche en haut à droite sous ton pseudo, ou en bas dans les cinq discussions similaires, tu dois trouver de quoi t'aider. Il y a des milliers d'exemples, dont certains ne sont pas des moindres.

Bonne recherche.

Jean-Pierre
 

kjin

XLDnaute Barbatruc
Re : userform

Bonsoir,
Un exemple simple pour t'aider à démarrer
A+
kjin
 

Pièces jointes

  • Pierre.xls
    30.5 KB · Affichages: 63
  • Pierre.xls
    30.5 KB · Affichages: 60
  • Pierre.xls
    30.5 KB · Affichages: 62

Discussions similaires

Réponses
2
Affichages
298
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…