Inserer ligne Excel 2007
Résolu
westerndigit
Messages postés
161
Statut
Membre
-
westerndigit Messages postés 161 Statut Membre -
westerndigit Messages postés 161 Statut Membre -
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
______________________________________________________________
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:
- Inserer ligne Excel 2007
- Insérer liste déroulante excel - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Insérer video powerpoint - Guide
- Aller à la ligne excel - Guide
- Partager photos en ligne - Guide
1 réponse
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
Bonne Journée.