Discussion :

[Arkham46]

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…)

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.




Retrouver tous les meilleurs cours et tutoriels pour apprendre Microsoft Office

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

le 3 eme
un calendrier tout rikiki tout simple

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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/

[galopin01]

bonjour,

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

A+

[patricktoulon]

re
bonjour galopin
comment ca impossible?

[galopin01]

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


A+

[patricktoulon]

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

[Pierre Fauconnier]

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

[patricktoulon]

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

[curt]

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

[cairve]

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.