Inserer ligne Excel 2007Résolu/Fermé

Question

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
______________________________________________________________



Configuration: pc - mac

f894009 · Answer

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

Inserer ligne Excel 2007

1 réponse

Discussions similaires

Newsletters