Effacer texte aprés ajout VBA
Résolu
Tortua
-
kadeh Messages postés 341 Statut Membre -
kadeh Messages postés 341 Statut Membre -
Bonjour, j'ai créé un code pour enregistrer un client
Sub Ajout_Info()
Code_Client = Range("B3").Value
Nom_Client = Range("B5").Value
Categorie_Client = Range("B7").Value
Mail_Client = Range("B9").Value
Telephone_Client = Range("B11").Value
Chiffre_Affaire_Client = Range("B13").Value
Departement = Range("B15").Value
Num_Departement = Range("B17").Value
Qualité_Client = Range("B19").Value
Sheets("Base de données Client").Select
Range("B3").Select
If Range("B4").Value <> "" Then Range("B3").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Code_Client
ActiveCell.Offset(0, 1).Value = Nom_Client
ActiveCell.Offset(0, 2).Value = Categorie_Client
ActiveCell.Offset(0, 3).Value = Mail_Client
ActiveCell.Offset(0, 4).Value = Telephone_Client
ActiveCell.Offset(0, 5).Value = Chiffre_Affaire_Client
ActiveCell.Offset(0, 6).Value = Departement
ActiveCell.Offset(0, 7).Value = Num_Departement
ActiveCell.Offset(0, 8).Value = Qualité_Client
Sheets("Saisie").Select
End Sub
J'aimerais que quand je rentre les caractéristiques du client (nom_client, departement...) sur la feuille saisie que une fois que le client est enregistré dans la base que ce que j'ai écrit s'éfface lorsque je revien sur la feuille.
Merci de m'éclairer
Cordialement
Tortua
Sub Ajout_Info()
Code_Client = Range("B3").Value
Nom_Client = Range("B5").Value
Categorie_Client = Range("B7").Value
Mail_Client = Range("B9").Value
Telephone_Client = Range("B11").Value
Chiffre_Affaire_Client = Range("B13").Value
Departement = Range("B15").Value
Num_Departement = Range("B17").Value
Qualité_Client = Range("B19").Value
Sheets("Base de données Client").Select
Range("B3").Select
If Range("B4").Value <> "" Then Range("B3").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Code_Client
ActiveCell.Offset(0, 1).Value = Nom_Client
ActiveCell.Offset(0, 2).Value = Categorie_Client
ActiveCell.Offset(0, 3).Value = Mail_Client
ActiveCell.Offset(0, 4).Value = Telephone_Client
ActiveCell.Offset(0, 5).Value = Chiffre_Affaire_Client
ActiveCell.Offset(0, 6).Value = Departement
ActiveCell.Offset(0, 7).Value = Num_Departement
ActiveCell.Offset(0, 8).Value = Qualité_Client
Sheets("Saisie").Select
End Sub
J'aimerais que quand je rentre les caractéristiques du client (nom_client, departement...) sur la feuille saisie que une fois que le client est enregistré dans la base que ce que j'ai écrit s'éfface lorsque je revien sur la feuille.
Merci de m'éclairer
Cordialement
Tortua
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonjour,
Sub Ajout_Info()
Code_Client = Range("B3").Value
Nom_Client = Range("B5").Value
Categorie_Client = Range("B7").Value
Mail_Client = Range("B9").Value
Telephone_Client = Range("B11").Value
Chiffre_Affaire_Client = Range("B13").Value
Departement = Range("B15").Value
Num_Departement = Range("B17").Value
Qualité_Client = Range("B19").Value
Sheets("Base de données Client").Select
Range("B3").Select
If Range("B4").Value <> "" Then Range("B3").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Code_Client
ActiveCell.Offset(0, 1).Value = Nom_Client
ActiveCell.Offset(0, 2).Value = Categorie_Client
ActiveCell.Offset(0, 3).Value = Mail_Client
ActiveCell.Offset(0, 4).Value = Telephone_Client
ActiveCell.Offset(0, 5).Value = Chiffre_Affaire_Client
ActiveCell.Offset(0, 6).Value = Departement
ActiveCell.Offset(0, 7).Value = Num_Departement
ActiveCell.Offset(0, 8).Value = Qualité_Client
' initialisation de la feuille de saisie
Sheets("ta feuille de saisie").Range("B3").Value =""
Sheets("ta feuille de saisie").Range("B5").Value =""
Sheets("ta feuille de saisie").Range("B7").Value =""
Sheets("ta feuille de saisie").Range("B9").Value =""
Sheets("ta feuille de saisie").Range("B11").Value =""
Sheets("ta feuille de saisie").Range("B13").Value =""
Sheets("ta feuille de saisie").Range("B15").Value =""
Sheets("ta feuille de saisie").Range("B17").Value =""
Sheets("ta feuille de saisie").Range("B19").Value =""
Sheets("Saisie").Select
End Sub
bonne journée
