'------------------------------------------------------------------------------------------
'Fonction simulant un InputBox.
'Utilise le UserFrom "UserForm_InputBoxPerso"
'
'Fonction:
'InputBoxPerso( _
'Prompt As String, _ Message
'Optional Title As String = "Microsoft Excel", _ Titre. Si le titre est vide, le Caption du Userform_InputBoxPerso est retiré
'Optional Default As String = "", _ Valeur par défaut
'Optional Left As Double = 0, _ Position gauche en points du coin supérieur gauche du UserForm, Left + Top = 0 (défaut) pour centrage standard
'Optional Top As Double = 0, _ Position haute en points du coin supérieur gauche du UserForm, Left + Top = 0 (défaut) pour centrage standard
'Optional ReposFunction As String = "", _ Fonction utilisateur de repositionnement du UserForm après qu'il a pris ses dimensions définitives
'Optional MaxTimeSec As Integer = 0, _ Nombre de secondes d'affichage du UserForm, ou 0 (défaut) si permanent
'Optional ShowModal As Integer = vbModal) vbModeless ou vbModal pour l'affichage du UserForm
'As Variant - vbModeless permet de ne pas bloquer l'utilisateur sur la fenêtre du dialogue.
' Il peut maniper sur le classeur. Le code attend la réponse pour garder un fonctionnement Modal.
'Retour:
' Type vbBoolean = False
' Bouton Annuler cliqué
' Timer à échéance
' Fermeture du UserForm via menu système ou fermeture du classeur
'
' Type vbString = Saisie utilisateur
' Bouton OK cliqué
'
'Exemple 1:
'---------
'Dim Réponse As Variant
'Réponse = InputBoxPerso("Enter code", "Code Input", "12")
'If VarType(Réponse) = vbBoolean Then Exit Sub
'MsgBox "Code = " & Réponse
'------------------------------------------------------------------------------------------
j'en ai tout plein d'autres pour les dimanches matin à venir)
