TexBox vers 1 colonne

[apdf1]

Bonsoir,

Voila j'ai un petit souci avec mon code je n'arrive pas a enregistrer la totalité de mes textbox dans une colonne.

j'avais tenté le code suivant mais ça marche pas...

Private Sub BtnValider_Click()
  L = Sheets("Feuil1").Range("B65000").End(xlUp).Row + 1
            With Sheets("Feuil1")
            
            For t = 1 To 100
            
            If Me.Controls("TextBox" & t) <> "" Then
              .Cells(6, 3) = Me.Controls("TextBox" & t)
             End If
            Next t
     End With
End Sub

Ci joint le fichier exemple

Si quelqu'un peut m'aider je le remercie d'avance

Cordialement

Max

 

[Yaloo]

Re : TexBox vers 1 colonne

Bonsoir apdf1, le forum,

comme ça :

Private Sub BtnValider_Click()
  L = Sheets("Feuil1").Range("B65000").End(xlUp).Row + 1
    With Sheets("Feuil1")
    j = 6
        For t = 1 To 100
            If Me.Controls("TextBox" & t) <> "" Then
            .Cells(j, 3) = Me.Controls("TextBox" & t)
            j = j + 1
            End If
        Next t
    End With
End Sub

A+
Yaloo

 

[apdf1]

Re : TexBox vers 1 colonne

Bonsoir Yaloo

Je te remercie nickel

Bonne soirée

@+
Max