Copier des textbox si non vide

bonjour a tous

voici ma recherche , dans cet userform d'exemple je cherche a envoyer les textbox non vide dans ma base de données en ce suivant

ex: si le textbox"TV1" et remplie alors le copier sur feuil2 en C9 et copier le textbox "T" en B9

si le textbox "TV23" et vide alors ne pas copier & passer au suivant

si le textbox "TV3"et remplie alors le copier en sur feuil2 en C10 et copier le textbox "T" en B10

ect.... j'ai 30 textbox dans mon userform d'origine

amicalement

Bonsoir teddy33, le forum,

Pas sur d'avoir compris....

A tester:

Private Sub CommandButton1_Click()
 Dim i%

  For i = 1 To 30
   If Me.Controls("TV" & i) <> "" Then
    With Sheets("Feuil2")
     .Cells(i + 8, 3) = Test.Controls("TV" & i).Value
     .Cells(i + 8, 2) = Test.Controls("T" & i).Value
    End With
   End If
  Next i
   MsgBox "Traitement effectué": Unload Me
End Sub

Cordialement,

Bonsoir

A tester

Private Sub CommandButton1_Click()
Dim ctrl
Dim i As Byte
Dim j
i = 9
For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.TextBox Then
        j = Mid(ctrl.Name, 3, Len(ctrl.Name) + 2)
        If ctrl.Name Like "TV*" And Controls(ctrl.Name) <> "" Then
            With Sheets("Feuil2")
                .Range("C" & i) = Me.Controls("TV" & j).Value
                .Range("B" & i) = Me.Controls("T" & j).Value
                i = i + 1
            End With
        End If
    End If
Next ctrl
End Sub

Cordialement

edit : oups désolé xorsankukai, j'ai posté sans vérifier... pfff

Bonsoir Dan,

oups désolé xorsankukai, j'ai posté sans vérifier... pfff

Pas de souci, tu me rassures, j'obtiens bien les mêmes résultats....donc 2 solutions pour teddy33,

Amitiés,