Scrollbar sur une userform

Bonjour a vous !!!

ceci me semblait au depart assez facile mais bon voila jy suis debout un bout de temps.

j´aimerai simplement inserer une barre deroulnte a mon userform enfin de pouvoir acceder au controle cacher en dessous.

je joins a ce message une Userform que j´ai expresse reduit pour exemple. Le code doit en fait s´appliquer a une userform bcp plus grande.

Merci bien pour vos reations

Bonjour

A tester

Je t'ai enlevé toutes les lignes en commentaire pour alléger le code, à toi de les remettre

Private Sub UserForm_Initialize()

  Sheets("Namen").Select
  'Me.ScrollBars = fmScrollBarsVertical  ' Inutile positionné en "dur"
  Me.ScrollHeight = Me.Height * 2

  Me.StartUpPosition = 2
  If Icre = True Then TextBox1 = WorksheetFunction.Max(Tabelle2.Range("A3:A10000")) + 1

  ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
  ComboBox2.List = Range("B2:B" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub

Rajoutes cette procédure

Private Sub UserForm_Activate()
  Me.ScrollTop = 0
End Sub

Merci pour ton aide ca marche a merveille..