Boucle sur textbox dans userform

Bonjour chers tous

Dans mon fichier test que je vous présente je voudrais renseigner mon tableau via un userform

.Pour la confection du userform pas de souci

.Je voudrais savoir comment faire une boucle avec mes textbox afin de renseigner le tableau avec mon bouton Valider ou les vider avec le bouton Annuler.Merci

Bonjour

tien a voir

Private Sub CommandButton1_Click()
C = 3
L = 6
    For Lig = 1 To 12
'        Controls("Textbox" & Lig).Value = Lig
        Cells(L, C).Value = Controls("Textbox" & Lig).Value
        C = C + 1
        If Lig = 3 Then L = L + 1: C = 3
        If Lig = 6 Then L = L + 1: C = 3
        If Lig = 9 Then L = L + 1: C = 3
    Next Lig
End Sub

a toi de jouer

A+

Maurice

Bonjour,

Private Sub CommandButton1_Click()
  For i = 1 To 4
     For j = 1 To 3
       Sheets("feuil1").Cells(i + 5, j + 2) = Me("textbox" & (i - 1) * 3 + j)
     Next j
  Next i
End Sub

Boisgontier

Impeccable et Merci

Un autre detail:

Il se trouve que le contenu des textbox est récupéré mais en format texte au lieu de numeric , comment géré cela? Encore merci

Bonjour,

Private Sub CommandButton1_Click()
  For i = 1 To 4
     For j = 1 To 3
       temp = Me("textbox" & (i - 1) * 3 + j)
       If IsNumeric(temp) Then Sheets("feuil1").Cells(i + 5, j + 2) = CDbl(temp)
     Next j
  Next i
End Sub

Boisgontier

Merci chef et à plus.