sélection multipleFermé

Question

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

leaemileemma · Answer

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

Utilisateur anonyme · Answer

Bonjour,
en mettant la propriété auto centrer à oui ????

A+

f894009 · Answer

Bonjour,

A voir:

https://www.developpez.net/forums/d380908/logiciels/microsoft-office/access/contribuez/ihm-gerer-resolution-formulaires/

Sélection multiple

3 réponses

Discussions similaires

Newsletters