Textbox vba dans excel

Résolu
mbess -  
 Utilisateur anonyme -
Bonjour,
J'ai conçu des textBox (Texbox1, Texbox2, Texbox3).
Pour la 1ère serie de saisie
Je voudrais que la saisie dans Texbox1 soit copiée dans la cellule A1, et que celle de Texbox2 soit copiée dans la cellule B1 et celle de Texbox3 dans soit copiée dans la cellule C1 d'excel
Pour la première série de copie
Texbox1 dans A2, Texbox2 dans B2, Texbox3 dans C et ainsi de suite

1 réponse

  1. Utilisateur anonyme
     
    Bonjour,

    Exemple : 

    Option Explicit

Private Sub cmd_Execute_Click()

    Dim Limite As Long

    Sheets("Feuil1").Select
    If (Range("A1").Value = "") Then
        Limite = Range("A65536").End(xlUp).Row
    Else
        Limite = Range("A65536").End(xlUp).Row + 1
    End If
    
    
    Range("A" & Limite).Select
    
    ActiveCell.Offset(0, 0).Value = Me.TextBox1.Text
    ActiveCell.Offset(0, 1).Value = Me.TextBox2.Text
    ActiveCell.Offset(0, 2).Value = Me.TextBox3.Text
    
End Sub
'

Private Sub cmd_Quitter_Click()
    Unload Me
End Sub
'


    Cdt

    Lupin
    0