Répartir 32 textbox par ligne de 4

Bonjour,

J'ai 32 textbox je voudrais que le texte que je rentre dedans se répartisse comme suit

TB1 / TB2 / TB3 / VIDE / TB4

TB5 / TB6/ TB7 / VIDE / TB8

etc...

Si vous avez une idée quelconque merci beaucoup !

J'ai un début avec ça mais ca ne fonctionne pas

Private Sub CommandButton2_Click()
    L = Worksheets("Fiche Famille").Range("A65536").End(xlUp).Row + 1
    MsgBox (L)

    'Select Case Cells(aj, 19)

    'Case 1
       'Worksheets("Fiche Famille").Cells(L  = Me.Controls("TextBox" & nf).Value
       aj = ajoutmf.ListIndex + 4
       f = Cells(aj, 19) - 1
      'For L = L To L + f - 1
       For k = 1 To 29 '4 * f + 1 '/ f * 8
            Worksheets("Fiche Famille").Cells(L, 1) = ajoutmf
            Worksheets("Fiche Famille").Cells(L, 2) = Me.Controls("TextBox" & k).Value
            Worksheets("Fiche Famille").Cells(L, 3) = Me.Controls("TextBox" & k + 1).Value
            Worksheets("Fiche Famille").Cells(L, 4) = Me.Controls("TextBox" & k + 2).Value
            Worksheets("Fiche Famille").Cells(L, 6) = Me.Controls("TextBox" & k + 3).Value

            k = k + 3

           L = L + 1

           End sub

Bonjour

sans modèle dur de comprendre

voila une macro sur 4 ligne

a toi de voir

A+

Maurice

Private Sub CommandButton2_Click()
Set Sh = Worksheets("Fiche Famille")
    L = Sh.Range("A65536").End(xlUp).Row + 1
    T = 1
    For I = 1 To 4
        Sh.Cells(L, 1) = ajoutmf
          For k = 1 To 8
               Sh.Cells(L, k + 1) = Controls("TextBox" & T).Value
               T = T + 1
          Next
        L = L + 1
    Next
End Sub

Salut,

Déjà pour moi le titre "Répartir 32 textbox par ligne de 4" me fait plus penser au positionnement .top et .left X)

Ce n'est pas très clair tout ça, tu veux faire quoi exactement?

ECG

@archer le code que tu as proposé ne permet pas de sauter une colonne. je vous joins mon fichier

Pour résumé, si le nombre de personne dans le foyer = 6, 5 frames sont afficher, il faut alors saisir les données qui vont alors s'ajouter a la fiche famille.

Finalement j'ai trouvé la solution merci a vous je vous joins le code

Private Sub CommandButton2_Click()

    Dim t As Integer

        L = Worksheets("Fiche Famille").Range("A65536").End(xlUp).Row + 1
        aj = ajoutmf.ListIndex + 4
        f = Cells(aj, 19)
        q = (Cells(aj, 19).Value * 3 - 1)
      For t = L To f - 1
        Worksheets("Fiche Famille").Cells(t, 1) = ajoutmf
      For k = 1 To q
            Worksheets("Fiche Famille").Cells(t, 1) = ajoutmf
            Worksheets("Fiche Famille").Cells(t, 2) = Me.Controls("TextBox" & k).Value
            Worksheets("Fiche Famille").Cells(t, 3) = Me.Controls("TextBox" & k + 1).Value
            Worksheets("Fiche Famille").Cells(t, 4) = Me.Controls("TextBox" & k + 2).Value
            Worksheets("Fiche Famille").Cells(t, 6) = Me.Controls("TextBox" & k + 3).Value

            k = k + 3

           t = t + 1
          Next
         Next

End Sub