Prorammatin VBA EXCEL
Christelle
-
ya_v_ka Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
ya_v_ka Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai besoin de votre aide sur la création d'une base de données.
Nous avons une fiche de saisie client, où on trouve les info habituelles comme nom et adresse mais aussi des informations ponctuelles comme le numéro de chambre où il a été logé.
Sur cette fiche de saisie, nous avons ajouter un bouton d'enregistrement qui ajoute la nouvelle saisie à ma base de données. Le problème est que je n'arrive pas à l'enregistrer à la ligne suivante. Donc il m'enregistre toujours sur la première ligne et m'efface le contenu précédent. Faut-il que je crée une nouvelle variable qui sera incrémenter de +1 et comment faire.
Merci d'avance et j'espère à bientôt
J'ai besoin de votre aide sur la création d'une base de données.
Nous avons une fiche de saisie client, où on trouve les info habituelles comme nom et adresse mais aussi des informations ponctuelles comme le numéro de chambre où il a été logé.
Sur cette fiche de saisie, nous avons ajouter un bouton d'enregistrement qui ajoute la nouvelle saisie à ma base de données. Le problème est que je n'arrive pas à l'enregistrer à la ligne suivante. Donc il m'enregistre toujours sur la première ligne et m'efface le contenu précédent. Faut-il que je crée une nouvelle variable qui sera incrémenter de +1 et comment faire.
Merci d'avance et j'espère à bientôt
A voir également:
- Prorammatin VBA EXCEL
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Salut,
je ne suis pas pro mais ai trouvé quelque chose:
If Activesheet.[A3] = " " Then ' première cellule à tester
Activesheet.[A3].Select
Else
ActiveSheet.Range("A2").End(xlDown).Offset(1, 0).Select ' recherche dans la colonne A la première cellule vide et se décale d'une ligne vers le bas, plus qu'a faire inserer dans la cellule active...
End If
en espérant que c'est ce que tu cherchais...
ya'v
je ne suis pas pro mais ai trouvé quelque chose:
If Activesheet.[A3] = " " Then ' première cellule à tester
Activesheet.[A3].Select
Else
ActiveSheet.Range("A2").End(xlDown).Offset(1, 0).Select ' recherche dans la colonne A la première cellule vide et se décale d'une ligne vers le bas, plus qu'a faire inserer dans la cellule active...
End If
en espérant que c'est ce que tu cherchais...
ya'v