Discussion :

[oscar.cesar]

bonjour
une question sur l'alignement et le centrage des frames, bouton,....

j'ai un formulaire qui contient 3 frame et qql bouton et qql combobox
peut centrer AUTOMATIQUEMENT dans le userform ces differents elements ...

[Invité]

Bonjour

Est-ce par le code ou manuellement ?

En attendant manuellement : Sélectionne ton ou tes contrôles, ensuite dans le menu Format/Centrer sur la feuille, et lç tu as le choix.

Sinon un petit bout de code pour centrer tous tes contrôles textbox horizontalement.

Starec

[oscar.cesar]

bonsoir starec
j'ai un code pour regler l'affichage en fonction de la def de l'ecran

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
'pour l'affichage plein ecran en fonction de la def
Res
Select Case H
Case 1024
With UserForm1
.Zoom = 100: .Height = 672: .Width = 750: '.Label3.Font.Size = 10
End With
Case 960
With UserForm1
.Zoom = 92: .Height = 625: .Width = 725: '.Label3.Font.Size = 9
End With
Case 864
With UserForm1
.Zoom = 82: .Height = 555: .Width = 700: '.Label3.Font.Size = 10
End With
Case 768 'def bureau
With UserForm1
.Zoom = 100: .Height = 560: .Width = 765: '.Label3.Font.Size = 9:
End With
Case 720
With UserForm1
.Zoom = 100: .Height = 445: .Width = 730: '.Label3.Font.Size = 9:
End With
Case 600
With UserForm1
.Zoom = 53: .Height = 370: .Width = 790: '.Label3.Font.Size = 9:
End With
Case Else
MsgBox "Résolution de : " & L & " x " & H & " : non paramétrée."
End Select

maintenant je souhaite centrer tout le contenu de chaque userform , si cela est possible

[tirex28]

Bonsoir,

Code :

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

1
2
3
4
5
6
Private Sub CentrerControles()
    Dim ctl As Control
    For Each ctl In Me.Controls
        ctl.Left = (Me.Width - ctl.Width) / 2
    Next
End Sub

Cordialement,

Tirex28/