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:

Textbox vba dans excel
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne dans une cellule excel - Guide
Mise en forme conditionnelle excel - Guide

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

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters