Boucles sur textbox

[KTM]

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 sur mes nombreuses textbox (bien ordonnées bien sur :Texbox1, Textbox2,.....) afin de renseigner le tableau avec mon bouton enregistrer .Merci

 

[cp4]

Bonjour,
Dans ce genre

For i = 1 to 3 'à adapter au nombre de textbox
If Me.Controls("TextBox" & i) = "" Then
  MsgBox " Pas de valeur"
Else
    MsgBox "Valeur"
End If
Next i

Bonne journée.

 

[KTM]

Merci Cp4 mais on dirait que ceci ne règle pas mon problème

 

[cp4]

Merci Cp4 mais on dirait que ceci ne règle pas mon problème

On dirait que tu ne t'es pas rendu compte qu'il n'y avait aucun userform dans ton fichier.

 

[KTM]

Effectivement . voici le fichier pour exemple. Merci

 

[cp4]

comme ceci

Option Explicit

Private Sub CommandButton1_Click()
   Dim i As Byte, j As Byte
   With Feuil1
      For j = 0 To 2
         For i = 1 To 4
            .Cells(5 + i, j + 3) = Me.Controls("TextBox" & i + j)
         Next i
      Next j
   End With
End Sub

 

[BOISGONTIER]

Bonjour,

  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

 

[KTM]

Merci infiniment