Ajouter des textbox à une multipage automatiquement

Bonjour,

Je resollicite votre aide, j'ai déjà grâce à ce forum avancé dans mon projet, mais je bloque à nouveau. J'ai réussi à faire apparaitre des multipage en fonction du nombre d'analyse de l'utilisateur,. Cependant j'aimerais pouvoir faire apparaitre des textbox sur ces multipages, j'ai essayé de codé quelques lignes, mais ça ne fonctionne pas, c'est peut-être une simple erreur de code, mais je ne vois où elle peut-être. Je vous joint le fichier excel, les lignes de code qui ne fonctionne pas sont sont en vertes.

Merci par avance pour votre aide ^^

Bonjour,

Ne serait-il pas plus simple de créer directement vos multipages avec le nombre max de textbox.

Ensuite vous utiliser la fonction Visible=True ou False pour faire apparaître les pages et le nombre de textbox souhaitées.

Bonjour,

Xmenpl a un argument de poids > méthode que je privilégierai ...

Mais si tu tiens au côté dynamique ...

Un essai ...

Private Sub CB_Suivant_Click()
   nb_ana = TB_nb_ana.Value
   Dim pge As Object
   Dim click1 As Integer
   Dim i As Integer
   Dim edtBox_n As Control

   click1 = click1 + 1
   i = 0
   While i < nb_ana
      Set pge = MP_heure_analyse.Pages.Add
      i = i + 1
      pge.Caption = "Analyse" & i

      Set edtBox_n = UF_nombre_analyse.MP_heure_analyse.Pages(i - 1).Controls.Add("Forms.TextBox.1", "edtBox_n", True)
      With edtBox_n
         .Top = 20
         .Left = 20
         .MultiLine = True
         .EnterKeyBehavior = True
         .Height = 100
         .Name = i & "6"
      End With
   Wend
End Sub

ric

Bonjour,

Merci pour votre aide Xmenpl et ric.

ric j'ai testé votre programme et il fonctionne merci ^^

Laurine