Sélection multiple

Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
- - Dernière réponse : leaemileemma
Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
- 3 juil. 2019 à 09:26
Bonjour à tous,

Petite question : j'ai créé plusieurs boites dans un formulaire, je les regroupe dans une sélection multiple et j'aimerais avec VBA gérer cette sélection multiple. Problème il me faut lui donner un nom à cette sélection multiple et dans ses propriétés je ne vois pas comment la nommer ..... ou alors ça m'échappe.
Comment faire ?
Merci
Afficher la suite 

3 réponses

Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
0
Merci
Me voici de nouveau, je n'ai pas perdu mon temps et ai fait des recherches dont voici les résultats
1) on me suggère d'utiliser un Frame dans lequel j’intégrerai tous mes objets à centrer dans l'écran, mais problème mes objets perdent leur indépendance !
2) Je cogite, calcule et construit un bout de code VBA assez lourd selon moi, mais ça a le mérite de fonctionner
Je vous rappelle mon objectif : comme ma base sera utilisée sur plusieurs ordinateurs différents donc écrans de taille différente je veux que mon Form d'accueil soit agréable et que les objets soient toujours centrés dans l'écran quel que soit l'écran.
Voici une image et mon code



Le code ... certes tiré par les cheveux

Private Sub Commande15_Click()
        With Me.Boite1
            .Top = (Me.InsideHeight - Me.Boite1.Height) / 2
            .Left = (Me.InsideWidth - Me.Boite1.Width) / 2
        End With
         With Me.Boite6
            .Top = (Me.InsideHeight - Me.Boite6.Height) / 2 + 5
            .Left = (Me.Boite1.Left) + 150
        End With
         With Me.Boite8
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 5
            .Left = (Me.Boite1.Left + Me.Boite1.Width - Me.Boite6.Width) - 150
        End With
         With Me.Boite7
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 5
            .Left = (Me.InsideWidth / 2 - Me.Boite7.Width / 2)
        End With
        With Me.Etiquette10
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 700
            .Left = (Me.Boite1.Left + 50 + (Me.Boite6.Width - Me.Etiquette10.Width) / 2)
        End With
        With Me.Etiquette11
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 700
            .Left = (Me.Boite1.Left + Me.Boite1.Width / 2 - Me.Etiquette11.Width / 2)
        End With
        With Me.Etiquette12
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 700
            .Left = (Me.Boite1.Left + Me.Boite1.Width - (50 + (Me.Boite8.Width - Me.Etiquette12.Width) / 2 + Me.Etiquette12.Width))
        End With
        With Me.Creation
            .Top = (Me.Boite1.Top + Me.Boite8.Height - 1500)
            .Left = (Me.Boite1.Left + 50 + (Me.Boite6.Width - Me.Creation.Width) / 2)
        End With
        With Me.Lecture
            .Top = (Me.Boite1.Top + Me.Boite8.Height - 1500)
            .Left = (Me.Boite1.Left + Me.Boite1.Width / 2 - Me.Lecture.Width / 2)
        End With
        With Me.Imprimer
            .Top = (Me.Boite1.Top + Me.Boite8.Height - 1500)
            .Left = (Me.Boite1.Left + Me.Boite1.Width - (50 + (Me.Boite8.Width - Me.Imprimer.Width) / 2 + Me.Etiquette12.Width))
        End With
        With Me.Bt_Quitter
            .Top = (Me.Boite1.Top + Me.Boite1.Height + 1000)
            .Left = (Me.Boite1.Left + Me.Boite1.Width / 2 - Me.Lecture.Width / 2)
        End With

End Sub


Qu'en pensez vous ?
Toutes les critiques seront les bien venues
Bonne soirée
Commenter la réponse de leaemileemma
Messages postés
872
Date d'inscription
mercredi 5 juillet 2017
Statut
Membre
Dernière intervention
26 août 2019
22
0
Merci
Bonjour,
en mettant la propriété auto centrer à oui ????

A+
leaemileemma
Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
-
Bonjour,
Cette propriété concerne le Formulaire me semble-t-il et non les contrôles qu'ils contient.
De plus dans mon projet elle est mise à "oui" et ça ne change rien
Merci
HDU
Messages postés
872
Date d'inscription
mercredi 5 juillet 2017
Statut
Membre
Dernière intervention
26 août 2019
22 > leaemileemma
Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
-
Et si tu mets ces contrôles dans un sous-formulaire, lequel mis en auto centrer ?

A+
leaemileemma
Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
-
Oui c'est une idée
Je vais l'approfondir et te tiendrai au courant
HDU
Messages postés
872
Date d'inscription
mercredi 5 juillet 2017
Statut
Membre
Dernière intervention
26 août 2019
22 > leaemileemma
Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
-
OK

A+
leaemileemma
Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
-
Bonjour,
Je crains que cette idée ne soit pas la bonne. En effet sauf erreur de ma part la propriété "auto-center" n'est pas disponible pour un sous formulaire.
Et puis en y réfléchissant de plus près je me demande si mes objets, tout comme dans le formulaire, ne sont pas liés au sous formulaire ce qui entraînerait le même problème
A+
Commenter la réponse de HDU
Messages postés
14786
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 octobre 2019
1176
Commenter la réponse de f894009