Inserer ligne Excel 2007 [Résolu/Fermé]

Signaler
Messages postés
134
Date d'inscription
mercredi 16 février 2011
Statut
Membre
Dernière intervention
18 avril 2012
-
Messages postés
134
Date d'inscription
mercredi 16 février 2011
Statut
Membre
Dernière intervention
18 avril 2012
-
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
______________________________________________________________



1 réponse

Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 512
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
Messages postés
134
Date d'inscription
mercredi 16 février 2011
Statut
Membre
Dernière intervention
18 avril 2012

Je te remercie pour ton aide

Bonne Journée.