XL 2016 AGRANDIR; MODIFIER; MULTIPAGE

Private Sub UserForm_Initialize()
With MultiPage1
With .Font
.Name = "ALGERIAN"
.Italic = False
.Size = 18

End With
End With
End Sub

Private Sub UserForm_Initialize()
Dim LongueurLabel As String, X As Byte, i As Byte, DerLig As Integer
LongueurLabel = Me.Width

RechCoul 'Recupere la valeur RGB des codes couleurs

For i = 1 To 4
    Me.Controls("LblTitre" & i).Width = LongueurLabel / 4               'Dimensionne les labels des titres
    Me.Controls("LblTitre" & i).SpecialEffect = 0                       'Effet sur le label des titres
    Me.Controls("LblTitre" & i).BackColor = Feuil5.Range("G" & i + 1)   'Cel "G2" à "G4" (la valeur a été recuperé par RechCoul)
Next i

For i = 2 To 4
    Me.Controls("LblTitre" & i).Left = Me.Controls("LblTitre1").Width * (i - 1)     'Positionne les titres
Next i

LblTitre1.SpecialEffect = 3                 'Effet sur le label 1 des titres car il a le focus
UserForm1.BackColor = Feuil5.Range("G2")    'Couleur de fond identique à la couleur du label 1 des titres car il a le focus

'Contrôle les labels sur l'userform hormis les titres
For i = 5 To 14                             'Couleur de fond des labels de USF identique à la couleur du label des titres
    Me.Controls("Label" & i).BackColor = Feuil5.Range("G2")
Next i

For i = 1 To 3                                              'Contrôle les labels des totaux sur l'userform hormis les titres
    Me.Controls("LblTotal" & i).BackColor = Feuil5.Range("G2")          'Couleur de fond des labels de USF identique à la couleur du label des titres
    Me.Controls("LblTotal" & i).Caption = Feuil4.Range("D" & i + 1) & " " & Format(Feuil1.Range("Q" & i + 1), "# ##0.00 €") ' Cel "Q2" à "Q4"
    Me.Controls("LblTitre" & i).Caption = "Exemple " & Worksheets("Parametre").Range("B" & i + 1).Value    'Nom des titres Cel "B2" à "B4"
Next i

Sub RechCoul()

For i = 2 To 5
  Feuil5.Range("G" & i) = Feuil5.Range("G" & i).Interior.Color
Next i

End Sub

Private Sub LblTitre1_Click()
UserForm1.BackColor = Feuil5.Range("G2")   ' &HC0C0FF

'Contrôle les labels de titres
For i = 1 To 4
    Me.Controls("LblTitre" & i).SpecialEffect = 0
    Me.Controls("LblTitre" & i).Font.Bold = False
Next i
LblTitre1.SpecialEffect = 3
LblTitre1.Font.Bold = True

'Contrôle les labels sur l'userform hormis les titres
For i = 5 To 17
    Me.Controls("Label" & i).BackColor = Feuil5.Range("G2")  ' &HC0C0FF
Next i

'Contrôle les labels des totaux sur l'userform hormis les titres
For i = 1 To 3
    Me.Controls("LblTotal" & i).BackColor = Feuil5.Range("G2") '  &HC0C0FF            'Couleur de fond des labels de USF identique à la couleur du label des titres
    Me.Controls("LblTotal" & i).Caption = Feuil4.Range("D" & i + 1) & " " & Format(Feuil1.Range("Q" & i + 1), "# ##0.00 €")
Next i

'Contrôle les boutons options sur l'userform
For i = 1 To 2
    Me.Controls("Opt" & i).BackColor = Feuil5.Range("G2") '  &HC0C0FF
Next i

'Contrôle la frame sur l'userform
Me.Controls("Frame1").BackColor = Feuil5.Range("G2") '  &HC0C0FF







'********* Vidage des champs au changement de label des titres

'Vider des boutons option
For i = 1 To 2
    Me.Controls("Opt" & i).Value = False                    'Vider des boutons option
Next i

'Vider tous les champs des textbox
For i = 3 To 11
    Me.Controls("Textbox" & i).Text = ""
Next i

'Vider la combobox
Me.ComboBox1.Value = ""






End Sub