Userform avec boutton et textbox
Fermé
ilies
-
17 nov. 2009 à 12:25
boromba Messages postés 702 Date d'inscription samedi 14 novembre 2009 Statut Membre Dernière intervention 18 août 2011 - 22 nov. 2009 à 06:19
boromba Messages postés 702 Date d'inscription samedi 14 novembre 2009 Statut Membre Dernière intervention 18 août 2011 - 22 nov. 2009 à 06:19
A voir également:
- Userform avec boutton et textbox
- Récupérer valeur textbox vba ✓ - Forum VB / VBA
- Fermer userform vba ✓ - Forum Excel
- Userform liste déroulante - Forum VB / VBA
- Vba textbox backcolor - Forum VB / VBA
- Afficher userform vba a l'ouverture d'excel - Forum Programmation
1 réponse
boromba
Messages postés
702
Date d'inscription
samedi 14 novembre 2009
Statut
Membre
Dernière intervention
18 août 2011
201
22 nov. 2009 à 06:19
22 nov. 2009 à 06:19
SALUT,
Private Sub LE NOM DE TON BOUTON_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("LE NOM DE TA FEUILLE")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = Me.LE NOM DE TON TEXTBOX.Value
Me.LE NOM DE TON TEXTBOX.Value = ""
End Sub
Private Sub LE NOM DE TON BOUTON_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("LE NOM DE TA FEUILLE")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = Me.LE NOM DE TON TEXTBOX.Value
Me.LE NOM DE TON TEXTBOX.Value = ""
End Sub
