Inserer ligne Excel 2007
Résolu/Fermé
westerndigit
Messages postés
134
Date d'inscription
mercredi 16 février 2011
Statut
Membre
Dernière intervention
18 avril 2012
-
26 févr. 2012 à 07:41
westerndigit Messages postés 134 Date d'inscription mercredi 16 février 2011 Statut Membre Dernière intervention 18 avril 2012 - 26 févr. 2012 à 08:50
westerndigit Messages postés 134 Date d'inscription mercredi 16 février 2011 Statut Membre Dernière intervention 18 avril 2012 - 26 févr. 2012 à 08:50
A voir également:
- Inserer ligne Excel 2007
- Aller à la ligne excel - Guide
- Insérer liste déroulante excel - Guide
- Insérer signature word - Guide
- Formule excel - Guide
- Hors ligne instagram - Guide
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
26 févr. 2012 à 08:35
26 févr. 2012 à 08:35
Bonjour,
Option Explicit
Private Sub BtnAnnuler_Click()
txtNom.Text = ""
txtAdresse = ""
txtPhone = ""
End Sub
Private Sub BtnSauvegarder_Click()
Dim D_L_A As Long
'Recherche derniere ligne colonne 1
With Worksheets("Feuil1")
D_L_A = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
Cells(D_L_A, 1) = txtNom.Text
Cells(D_L_A, 2) = txtAdresse.Text
Cells(D_L_A, 3) = txtPhone.Text
End With
'Effacement TexteBox
BtnAnnuler_Click
End Sub
A vous de rajouter ou non les tests pour controler le contenu des TexteBox.
Bonne suite
Option Explicit
Private Sub BtnAnnuler_Click()
txtNom.Text = ""
txtAdresse = ""
txtPhone = ""
End Sub
Private Sub BtnSauvegarder_Click()
Dim D_L_A As Long
'Recherche derniere ligne colonne 1
With Worksheets("Feuil1")
D_L_A = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
Cells(D_L_A, 1) = txtNom.Text
Cells(D_L_A, 2) = txtAdresse.Text
Cells(D_L_A, 3) = txtPhone.Text
End With
'Effacement TexteBox
BtnAnnuler_Click
End Sub
A vous de rajouter ou non les tests pour controler le contenu des TexteBox.
Bonne suite
26 févr. 2012 à 08:50
Bonne Journée.