Sujet Précédent Sujet Suivant

Textbox vba dans excel

Résolu/Fermé
mbess - 30 mars 2011 à 18:51
 Utilisateur anonyme - 30 mars 2011 à 22:26
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





A voir également:

1 réponse

Réponse 1 / 1
Utilisateur anonyme
30 mars 2011 à 22:26
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