Discussion :

[frunch]

Bonsoir le forum,
Je fais des applications sur mon blog et j'ai mis en place une option à cocher pour fermer le formulaire automatiquement ou pas.

code du formulaire:

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
Private Sub ok_Click()
    Dim i%, tb1 As ListObject, ws1 As Worksheet
    Application.ScreenUpdating = False
    Set ws1 = Sheets("listes")
    Set tb1 = ws1.ListObjects("fermUF")
            If Me.unload1.Value = True Then
                tb1.DataBodyRange(1, 1).Value = "unload1"
                tb1.DataBodyRange(1, 1).Font.Color = RGB(0, 204, 153) 'vert
            ElseIf Me.unload1.Value = False Then
                tb1.DataBodyRange(1, 1).Value = "unload1"
                tb1.DataBodyRange(1, 1).Font.ColorIndex = 3 'rouge
            End If
        Unload Me
    Application.ScreenUpdating = True
End Sub

code dans la page concernée:

Code :

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

1
2
    'fermeture UF si option coche en parametres
    If tb3.DataBodyRange(1, 1).Value = "unload1" And tb3.DataBodyRange(1, 1).Font.Color = RGB(0, 204, 153) Then Unload Me

Maintenant j'aimerais savoir s'il est possible de le faire pour les confirmation de messages:

Code :

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

1
2
 If MsgBox("Confirmez-vous l'enregistrement ?", vbYesNo, _
            "Demande de confirmation") = vbYes Then

Merci

[Valtrase]

Salut,
Bien entendu que c'est possible.
Comme un exemple vaut plus que moulte explications, ci-joint un petit exemple avec une fonction de Pierre Fauconnier
Tout se passe dans le module Settings, et dans les modules des deux formulaires.

Je te laisse regarder et revenir vers moi si tu ne comprends pas

Notes: Les clés pour les paramètres sont stockées dans le tag des contrôle ça facilite leurs utilisations et évite les erreurs de saisie.

Fichier exemple :
Pièce jointe 647910

[frunch]

Bonjour
Je comprends pas le rapport avec ma demande, et je verrais à la xième lecture si j'ai compris qqchose.
Merci

[deedolith]

Hello,

Un jour, il faudra arrêter avec cette maladie d'optimisations prématurée et inutile qui ne sert qu'a te gêner dans tes développements.
L'optimisation, s'il y a lieu d'être, ca se fait à la fin du projet, après avoir analysé les performances.

Ensuite, il faudra apprendre à décorréler la donnée de sa représentation cosmétique.
La valeur d'une donnée influe sur sa représentation, toi tu as fait l'inverse: tu as inversé la cause et la conséquence.
Pour imager mon propos:
Une lampe brille parce qu'elle reçoit un courant électrique, toi tu dis: Elle reçoit un courant électrique parce qu'elle brille.
En conséquence, tu écris du code lourdingue, peut performant et difficilement compréhensible.

Ce que tu cherches à faire est une gestion de paramètres.
Au minima, c'est une table qui associe un nom et une valeur (soit 2 colonnes), les considérations cosmétiques n'ont aucune place la dedans.

Concernant les boites de dialogue standard (MsgBox, InputBox), leur comportement est prédéfinit et tu n'as aucune influence dessus.
Soit tu l'accepte et les utilises, soit tu te fait des boites de dialogue personnalisées (donc des formulaires) pour répondre à tes besoins spécifiques.