Boîtes de dialogue personnalisées sous Office (Excel, Word…)

Bonjour,

Je vous propose un article pour apprendre à créer des boîtes de dialogue personnalisées avec des UserForm :
Boîtes de dialogue personnalisées sous Office (Excel, Word…)

Citation:

---

Enrichissez vos applications Office avec des boîtes de dialogue personnalisées.
Ces boîtes de dialogue basées sur des UserForm permettent une personnalisation complète de la saisie.

---

Vous pouvez commenter cet article à la suite de ce message.

:merci:


:fleche: Retrouver tous les meilleurs cours et tutoriels pour apprendre Microsoft Office

bonjour a tous
arkham46 nous montre sur ce petit tutoriel comment créer des boites de dialogues perso avec des userforms

l'archive contenant les exemplaires n'etant plus accessible (archive corrompu) ,je vous livre 3 exemples

1. msgbox
2. dialogue fichier
3. un calendrier

le premier (msgbox )

exemple d'apel du msgbox

Code:

---

1 2 3 4 5 6 7

Sub test() titre = " test de msgbox perso"'titre de la fenetre couleur = Array(3, 8, 15)'couleur pour les 3 lignes de texte msg = Array("ligne texte1", "ligne texte2", "ligne texte3")'texte des 3 lignes response = msgboxX(msg, titre, couleur)'on l'appelle comme un msgbox classique msgbox "vous avez cliqué sur " & response' le retour End Sub

---

Pièce jointe 379730

le 2d le dialog folder ouvre la boite avec la liste des fichier contenu dans le dossier en parametre le bouton valider renvoie le tableau de noms selectionné dans la liste
j'ai ajouté quelque fantaisies de style comme a mon habitude;)
exemple d'apel de ce faux filedialog

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test11() Dim fichiers As ch ChDir Environ("userprofile") & "\DeskTop" fichiers = GetOpenFileNameX(CurDir, aero) If fichiers.Count > 0 Then   For Each fich In fichiers.list i = i + 1: Cells(i, 1) = fich Next 'ou 'For i = 0 To UBound(fichiers.list) 'Debug.Print fichiers.list(i) 'Next Else MsgBox "pas de fichier selectionné" End If End Sub

---

Pièce jointe 379732

le 3 eme
un calendrier tout rikiki tout simple

exemple d'apel pour ce calendrier dans un sheet au click droit

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim ladate If Target.Column = 1 Then Cancel = True ladate = calendrier.Value If IsDate(ladate) Then Target.Value = ladate Else: Cancel = False End If End Sub

---

Pièce jointe 379736

le principe est simple pour tous ces exemples
il est que ces userforms sont appelés en modal par la fonction et celle ci est tamporisée tant que le userform est affiché puisque en mode modal un userform bloque tout intervention manuelle ce qui élimine tout gestions d'attente
je redonne le lien au cas ou
arkham46.developpez.com/articles/office/userformdialog/

bonjour,

Il semble impossible de sélectionner une année antérieure sur le calendrier.

A+

re
bonjour galopin
comment ca impossible?
Pièce jointe 379756

bonjour,
l'ascenseur vertical ne s'affiche pas (même en jouant un peu avec l'ascenseur horizontal, il ne s'affiche qu'une zone blanche)
les jours au delà de 9 n'affichent que les dizaines...
W10 Pro 2016 32 bits
Pièce jointe 379768

A+

re
j'ai apporté quelques modifs ca devrait etre bon reprends le dans le post 1

Le zip est de nouveau téléchargeable et le tutoriel explique en détails comment mettre en place des boites de dialogue perso.

re
merci pierre j'etais curieux de voir les idées developpées avec ce principe
pas mal le calendrier ;)

Salut les jeunes (pour Patrick et Pierre)

toujours intéressant de "déterrer" les sujets emblématiques (j'ai utilisé et abusé des msgbox du tuto) et de les voir actualiser…. bravo à vous deux.

Curt

Salut,
Désolé pour le terrage d'un vieux topic, mais j'ai voulu tester le minuteur pour la forme de remplacement du msgbox sous Word, mais impossible de le faire marcher.

Donc il faudrait peut-être préciser que ca ne foncitonne pas sous Word.

Par contre, je croix que c'est OK sous Excel.