Modification d'un UserForm dès son ouverture

Version imprimable

Bonjour à tous, je débute en VBA et je suis coincé avec mon UserForm (modifierProduit).

Je m'explique: j'aimerai qu'en ouvrant celui-ci (après avoir cliqué sur un bouton) il s'ouvre à une position définit et que certain de ses composants (Label , ComboBox, ...) soit apparents aussi avec chacun leur position (Height, Left, Top, Width).

Ensuite j'aimerai qu'en cliquant sur un bouton, certain des composants soient cachés et que d'autres apparaissent à des positions différentes.
Comme mon nombre de composant est assez important, j'ai décidé de créer une fonction (majPosition) qui récupère les informations d'une autre fonction (SetPosition) et qui change les valeurs de : Height, Left, Top, Width et Visible pour un composant choisi (aussi bien la fenêtre de mon UF que ses composants).

J'ai cherché sur internet et j'ai lu qu'on pouvait utiliser le fonction "Me" mais j'ai l'impression que celle-ci ne concernce que les UF et pas ses composants.

PS: j'ai bien créé un type position que j'ai mis dans mon module:
Code:

1 2 3 4 5 6 7 Type Position Hauteur As Single Gauche As Single Haut As Single Large As Single Voir As Boolean End Type
Voici mon code si vous savez m'aider...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Dim posLabel_ancienMP As Position, posmodifierProduit As Position Private Sub UserForm_Initialize() posmodifierProduit = SetPosition(1, 48, 18, 18, True) Call majPosition(posmodifierProduit, modifierProduit.Height, modifierProduit.Left, modifierProduit.Top, modifierProduit.Width, modifierProduit.Visible) posLabel_ancienMP = SetPosition(18, 48, 18, 18, True) Call majPosition(posLabel_ancienMP, Label_ancienMP.Height, Label_ancienMP.Left, Label_ancienMP.Top, Label_ancienMP.Width, Label_ancienMP.Visible) End Sub Private Function majPosition(element As Position, H As Single, L As Single, T As Single, W As Single, V As Boolean) H = element.Haut L = element.Gauche T = element.Haut W = element.Large V = element.Voir End Function Private Function SetPosition(Hauteur As Single, Gauche As Single, Haut As Single, Large As Single, Voir As Boolean) As Position SetPosition.Hauteur = Hauteur SetPosition.Gauche = Gauche SetPosition.Haut = Haut SetPosition.Large = Large SetPosition.Voir = Voir End Function

25/03/2020, 19h04
marot_r
Bonjour.

Je viens de faire un petit test avec le code suivant.
Code:

1 2 3 Private Sub CommandButton1_Click() Me.TextBox1.Left = Me.TextBox1.Left + 10 End Sub
Et mon contrôle TextBox1 c'est déplacé de 10 unités (des twips ? pas sûr de ce dont se sert Excel pour les mesures) vers la droite à chaque appuis du bouton jusqu'à même sortir du formulaire.

A+

Bonsoir,

Merci à vous pour votre réponse, j'ai essayé d'ajouter la commande Me. dans la fonction majPosition mais j'ai maintenant une erreur de compilation m'indiquant que mes méthodes n'existaient pas.

Avez-vous une idée pour faire reconnaître à cette fonction que mes H, L, T, W et V sont en réalité des modifierProduit.Height, modifierProduit.Left, ...

Voir le code ci-après :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Dim posLabel_ancienMP As Position, posmodifierProduit As Position
 
 
Private Sub UserForm_Initialize()
 
    posmodifierProduit = SetPosition(1, 48, 18, 18, True)
    Call majPosition(posmodifierProduit, modifierProduit.Height, modifierProduit.Left, modifierProduit.Top, modifierProduit.Width, modifierProduit.Visible)
 
    posLabel_ancienMP = SetPosition(18, 48, 18, 18, True)
    Call majPosition(posLabel_ancienMP, Label_ancienMP.Height, Label_ancienMP.Left, Label_ancienMP.Top, Label_ancienMP.Width, Label_ancienMP.Visible)
 
End Sub
 
Private Function majPosition(element As Position, H As Variant, L As Variant, T As Variant, W As Variant, V As Variant)
 
    Me.H = element.Haut
    Me.L = element.Gauche
    Me.T = element.Haut
    Me.W = element.Large
    Me.V = element.Voir
 
End Function
 
 
Private Function SetPosition(Hauteur As Single, Gauche As Single, Haut As Single, Large As Single, Voir As Boolean) As Position
 
    SetPosition.Hauteur = Hauteur
    SetPosition.Gauche = Gauche
    SetPosition.Haut = Haut
    SetPosition.Large = Large
    SetPosition.Voir = Voir
 
End Function

A+

Bonjour.

Je suis désolé mais je ne saisi pas ce que tu veux faire avec ce code car il ne fait référence à aucun contrôle sur le formulaire.
Là tu as utilisé un Type qui est une structure interne de ton code et tu change ses valeurs donc à priori il ne se passe rien sur ton formulaire.
En gros tu te parles de toi à toi.

Si tu veux déplacer et redimentionner un contrôle, personnellement je ferai quelque chose comme :
Code:

1 2 3 4 5 6 private sub MAJPositionControle(prmControl as Control, prmPositionHaut as long, prmPositionGauche as long, prmHauteur as long, prmLargeur as long) prmControl.top=prmPositionHaut prmControl.Left=prmPositionGauche prmControl.Height=prmHauteur prmControl.Width=prmWidth end sub
Exemple d'utilisation :

Code:

call MAJPositionControle(me.Text1, 10, 20, 1000, 500) 'Va placer le contrôle Text1 à la position 10, 20 avec une hauteur de 1000 et une largeur de 500.

En passant l'intérêt des Type est de manipuler toute une structure de données en un seul élément donc quand tu t'en sers comme paramètre tu peux écrire quelque chose comme :

Code:

private sub MAJPositionControl(prmControl as control, prmInfoPosition as Position)

Évidement dans le code de la procédure, tu peux récupérer les attributs individuels.

Tu fais l'appel comme ceci par exemple :

Code:

call MAJPositionControl(me.TonControlProduit, posModifierProduit)

Personnellement je trouve me. très cool maintenant mais cela m'a pris un peu de temps à l'apprivoiser.

Note : le préfixe prm est un truc à moi qui veut dire Paramètre est qui me permet de savoir que cette variable vient de l'extérieur de ma procédure ou fonction.

A+

26/03/2020, 13h47
Philippe Tulliez

Bonjour,

Citation:

j'ai essayé d'ajouter la commande Me. dans la fonction majPosition mais j'ai maintenant une erreur de compilation m'indiquant que mes méthodes n'existaient pas.

Cela signifie que la fonction n'est pas présente dans le module du UserForm mais dans un module standard.

Bonjour,

Merci pour vos réponse, mais je n'y arrive toujours pas...

J'ai utilisé ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub UserForm_Initialize() Call MAJPositionControle(Me.Label_ancienMP, 18, 48, 18, 18) End Sub Private Sub MAJPositionControle(prmControl As Control, prmHauteur As Double, prmPositionGauche As Variant, prmPositionHaut As Variant, prmLargeur As Double) prmControl.Top = prmPositionHaut prmControl.Left = prmPositionGauche prmControl.Height = prmHauteur prmControl.Width = prmLargeur End Sub
Avec :
Code:

1 2 3 4 5 6 Type Control Hauteur As Double Gauche As Variant Haut As Variant Large As Double End Type
J'ai alors une erreur de compilation avec un type d'argument ByRef incompatible sur cette ligne :

Call MAJPositionControle(Me.Label_ancienMP, 18, 48, 18, 18, True)

J'ai pourtant bien vérifier et c'est bien le nom de ma zone de texte de mon UserForm (qui s'appelle modifierProduit)...

A+

Bonjour,
Une procédure vite faite
A placer dans un module standard
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function ResizePosition(ByVal oCtrl As Object, _ pLeft As Double, _ pTop As Double, _ Optional pHeight As Double, _ Optional pWidth As Double) With oCtrl .Left = pLeft .Top = pTop If pHeight Then .Height = pHeight If pWidth Then .Width = pWidth End With End Function
La procédure qui l'invoque placée dans un module standard (pour le test, les procédures étaient placées dans le même module)
Le formulaire nommé UserForm1 avec deux contrôles nommés Label1 et TextBox1
Code:

1 2 3 4 5 6 7 Sub Main() With UserForm1 ResizePosition .Label1, pLeft:=10, pTop:=20, pWidth:=30 ResizePosition .TextBox1, pLeft:=50, pTop:=20 .Show End With End Sub
J'ai prévu deux arguments optionnels parce-qu' en général la hauteur et la largeur ne doivent pas être modifiées

Merci !!

Visiblement cela fonctionne très bien !!

Est-ce que vous savez si maintenant il est possible d'y ajouter un .Visible afin d'afficher ou non mes Label et TextBox ?
Et comment, grâce à cette fonction modifier les dimensions de mon UserForm ?

J'ai essayé ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub UserForm_Initialize()
 
  With modifierProduit
 
    ResizePosition .modifierProduit, pHeight:=280, pLeft:=-0.75, pTop:=-0.75, pWidth:=215, pVisible = True
    ResizePosition .Label_ancienMP, pHeight:=24, pLeft:=54, pTop:=18, pWidth:=108, pVisible = True
    ResizePosition .Label_ancien2MP, pHeight:=24, pLeft:=18, pTop:=48, pWidth:=168, pVisible = True
 
  End With
 
End Sub
 
 
Function ResizePosition(ByVal oCtrl As Object, _
                       pLeft As Double, _
                       pTop As Double, _
                       Optional pHeight As Double, _
                       Optional pWidth As Double, _
                       Optional pVisible As Boolean)
  With oCtrl
  .Left = pLeft
  .Top = pTop
  If pHeight Then .Height = pHeight
  If pWidth Then .Width = pWidth
  If pVisible Then .pVisible = pVisible
  End With
End Function

Et pour ma culture personnelle, pourriez vous expliquez votre code svp ? ( ByVal, oCtrl, qu'est-ce que le type Object ? Et ce que vous appelez un module non standard ?)

28/03/2020, 16h21
Philippe Tulliez

Bonjour,

Citation:

Est-ce que vous savez si maintenant il est possible d'y ajouter un .Visible afin d'afficher ou non mes Label et TextBox ?

Il te suffit d'ajouter un nouvel argument (par exemple nommé pVisible) et dans le UserForm, tu prévois d'invoquer la procédure au départ d'une procédure événementielle

C'est ce que j'ai essayé de faire mais j'ai une erreur d'execution '438' (propriété ou méthode non gérée par cet objet)

Et je n'arrive pas à utiliser cette fonction pour modifier la taille de mon UserForm..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub UserForm_Initialize()
 
  With modifierProduit
 
    ResizePosition .modifierProduit, pHeight:=280, pLeft:=-0.75, pTop:=-0.75, pWidth:=215, pVisible = True
    ResizePosition .Label_ancienMP, pHeight:=24, pLeft:=54, pTop:=18, pWidth:=108, pVisible = True
    ResizePosition .Label_ancien2MP, pHeight:=24, pLeft:=18, pTop:=48, pWidth:=168, pVisible = True
 
  End With
 
End Sub
 
 
Function ResizePosition(ByVal oCtrl As Object, _
                       pLeft As Double, _
                       pTop As Double, _
                       Optional pHeight As Double, _
                       Optional pWidth As Double, _
                       Optional pVisible As Boolean)
  With oCtrl
  .Left = pLeft
  .Top = pTop
  If pHeight Then .Height = pHeight
  If pWidth Then .Width = pWidth
  If pVisible Then .pVisible = pVisible
  End With
End Function

28/03/2020, 16h33
Philippe Tulliez

Bonjour,
Un UserForm n'a pas de propriété Visible, il vaut mieux ne pas avoir cet argument dans cette procédure et prévoir dans le UserForm une procédure qui gère cette propriété sur l'ensemble des contrôles que tu veux masquer. Par exemple en inversant le boolean avec le Not
Exemple : With Control: .Visible = Not .Visible: End With où Control peut représenter TextBox1 ou TextBox2, etc.

Ok, j'ai essayé d'intégrer ça dans ma fonction mais j'ai l'impression d'être un peu dépassé ... Sauriez-vous me dire comment intégrer votre exemple dans le code correctement ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub UserForm_Initialize()
 
  With modifierProduit
 
    ResizePosition .modifierProduit, pHeight:=280, pLeft:=-0.75, pTop:=-0.75, pWidth:=215
    ResizePosition .Label_ancienMP, pHeight:=24, pLeft:=54, pTop:=18, pWidth:=108, .Label_ancienMP
    ResizePosition .Label_ancien2MP, pHeight:=24, pLeft:=18, pTop:=48, pWidth:=168, Me.Label_ancien2MP
 
  End With
 
End Sub
 
 
Function ResizePosition(ByVal oCtrl As Object, _
                       pLeft As Double, _
                       pTop As Double, _
                       Optional pHeight As Double, _
                       Optional pWidth As Double, _
                       Optional Control As Object)
  With oCtrl
  .Left = pLeft
  .Top = pTop
  If pHeight Then .Height = pHeight
  If pWidth Then .Width = pWidth
  If pVisible Then .pVisible = pVisible
  End With
 
  With Control: .visible = Not .visible: End With
 
End Function

28/03/2020, 16h59
Philippe Tulliez

Bonjour,

Citation:

Sauriez-vous me dire comment intégrer votre exemple dans le code correctement ?

Je ne vois pas ce que je peux faire de plus.
J'ai donné le code des deux procédures en indiquant où les placer et j'ai décrit la situation
28/03/2020, 17h06
SixPrixUn

Ok, c'est pas grave je vais faire sans...

Par contre est-ce que vous savez comment faire pour que la fonction ResizePosition modifie la taille de mon UserForm ?

J'ai utilisé : ResizePosition .modifierProduit, pHeight:=280, pLeft:=-0.75, pTop:=-0.75, pWidth:=215
mais ça ne fonctionne pas ...

Bonjour,
Voilà

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Main()
  ResizePosition oCtrl:=UserForm1, pLeft:=50, pTop:=100, pHeight:=150, pWidth:=500
  With UserForm1
   ResizePosition oCtrl:=.ToggleButton1, pLeft:=200, pTop:=70
   ResizePosition .Label1, pLeft:=10, pTop:=20, pWidth:=30
   ResizePosition .TextBox1, pLeft:=50, pTop:=20
   ResizePosition .Label2, pLeft:=10, pTop:=35, pWidth:=30
   ResizePosition .TextBox2, pLeft:=50, pTop:=35
  .Show
  End With
End Sub

28/03/2020, 18h11
SixPrixUn

C'est parfait, ça marche, merci à vous !!