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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
| Option Explicit
Private Sub UserForm_Initialize()
Dim i As Byte
'Mise en page de l'userform par l'appel de la sous routine MiseEnFormeUSF
MiseEnFormeUSF
'Remplissage des combobox par l'appel de la sous routine RempliCombo
RempliCombo Me.cboChoixSrce, 1 'Remplie à partir de la colonne 1 de la feuille Config
RempliCombo Me.cboMatParoi, 3 'Remplie à partir de la colonne 3 de la feuille Config
RempliCombo Me.cboTypParoi, 5 'Remplie à partir de la colonne 5 de la feuille Config
RempliCombo Me.cboNatParoi, 7 'Remplie à partir de la colonne 7 de la feuille Config
RempliCombo Me.ComboBox14, 9 'Remplie à partir de la colonne 9 de la feuille Config
'Remplissage des combobox par boucle
For i = 0 To 40
Me.cboSurFen.AddItem i
If i < 21 Then
Me.cboEpaisParoi.AddItem 10 + i
Me.cboEpaisMit.AddItem 10 + i
Me.cboOuvAutLoc.AddItem 10 + i
Me.cboPourcOuv.AddItem 5 * i
End If
' If i < 5 Then
' Me.ComboBox7.AddItem i
' Me.ComboBox8.AddItem i
' End If
Next i
End Sub
'Sous routine qui permet la mise en forme de l'userform
Private Sub MiseEnFormeUSF()
Dim i As Byte
Dim Tit
Tit = Array(65535, 65280, 16776960, 255)
For i = 1 To 4
Me.Controls("CommandButton" & i).BackColor = Tit(i - 1)
Next i
Tit = Array("Local d'émission", "Caractéristique de la paroi excitée", "Dimensions du mitoyen", "Local de réception", "Ouvertures du local d'émission", "Dimensions du local d'émission", "Nature et positionnement de la source sonore")
For i = 1 To 7
Me.Controls("Frame" & i).Caption = Tit(i - 1)
Next i
For i = 1 To 2
Me.Controls("OptionButton" & i).Visible = False
Next i
Me.Caption = "Mon projet"
Me.ScrollBars = fmScrollBarsBoth
End Sub
'Sous routine qui remplit la ComboBox Cbo des données de la colonne Col de la feuille Config à partir de la 2ème ligne
'/!\ Laisser la ligne 1 vide et une ligne vide entre chaque liste de données
Private Sub RempliCombo(ByVal Cbo As ComboBox, ByVal Col As Integer)
Cbo.RowSource = "Config!" & ThisWorkbook.Worksheets("Config").Cells(2, Col).CurrentRegion.Address
End Sub |
Partager