Inserer ligne Excel 2007

Résolu
westerndigit Messages postés 134 Date d'inscription   Statut Membre Dernière intervention   -  
westerndigit Messages postés 134 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Excel

comment faire pour sauvegarder un nouveau nom dans mon tableau ?
Je tape mon nom, adresse, phone je sauvegarde il s'incrit dans ma ligne ça fonctionne.
je voudrais effacer mes champs pour taper un autre nom, adresse, phone.

Merci,

voici ce que j'ai fait :
______________________________________________________________

Option Explicit

Private Sub BtnAnnuler_Click()
txtNom.Text = ""
txtAdresse = ""
txtPhone = ""
End Sub

Private Sub BtnSauvegarder_Click()
Cells(1, 1) = txtNom.Text
Cells(1, 2) = txtAdresse.Text
Cells(1, 3) = txtPhone.Text
End Sub
______________________________________________________________



A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
westerndigit Messages postés 134 Date d'inscription   Statut Membre Dernière intervention  
 
Je te remercie pour ton aide

Bonne Journée.
0