Sélection multiple
leaemileemma
Messages postés
38
Date d'inscription
Statut
Membre
Dernière intervention
-
leaemileemma Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
leaemileemma Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Sélection multiple
- Ecran multiple pc - Guide
- Excel cellule choix multiple - Guide
- Copier coller multiple - Guide
- Paris multiple 2/6 explication ✓ - Forum Loisirs / Divertissements
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
3 réponses
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
Qu'en pensez vous ?
Toutes les critiques seront les bien venues
Bonne soirée
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
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+
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+
