Formulaire, valider enregistrement

[vallesm77]

Bonjour,

Voici un fichier excel dans lequels je renseigne des zones de texte et coche une case.
Je voudrais que lorsque l'on clique sur le bouton "Ajouter" les informations saisies s'enregistre sur la deuxieme feuille et qu'un message apparaisse du genre "Serveur enregistrer, veuillez saisir à nouveau" et que les champs se vide pour un nouvelle saisie ?

Etant un peu nul en macro et vba je demande votre aide !!!

Merci d'avance et bonne journée

 

[gilbert_RGI]

Re : Formulaire, valider enregistrement

Bonjour,

Voici un fichier excel dans lequels je renseigne des zones de texte et coche une case.
Je voudrais que lorsque l'on clique sur le bouton "Ajouter" les informations saisies s'enregistre sur la deuxieme feuille et qu'un message apparaisse du genre "Serveur enregistrer, veuillez saisir à nouveau" et que les champs se vide pour un nouvelle saisie ?

Etant un peu nul en macro et vba je demande votre aide !!!

Merci d'avance et bonne journée

Bonjour

Voilà

Salutations

RGI

 

[vallesm77]

Re : Formulaire, valider enregistrement

Quelle rapidité Merci !

Je vais décortiquer le code pour essayer de comprendre tout çà.

 

[vallesm77]

Re : Formulaire, valider enregistrement

Ah si autre question
Si je veux que le formulaire s'ouvre dans un userForm et non dans la feuille, je fais comment ?

 

[cbea]

Re : Formulaire, valider enregistrement

Bonjour à tous,

Voici une solution avec la saisie dans un userform.

 

[gilbert_RGI]

Re : Formulaire, valider enregistrement

Ah si autre question
Si je veux que le formulaire s'ouvre dans un userForm et non dans la feuille, je fais comment ?

voilà

salutations

RGI

 

[vallesm77]

Re : Formulaire, valider enregistrement

Ok super Merci !

Je vais pouvoir me débrouiller avec tout ca !!!

Dans l'ensemble j'arrive a comprendre le code.
Par contre je ne comprend pas comment tu positionne les enregistrement sur l'autre feuille.
Surment par cette ligne :

ligvide = Range("a65536").End(xlUp).Row + 1

Peux-tu stp si tu as 2 min me décrire ce que fait cette ligne ?

Merci d'avance

 

[gilbert_RGI]

Re : Formulaire, valider enregistrement

Ok super Merci !

Je vais pouvoir me débrouiller avec tout ca !!!

Dans l'ensemble j'arrive a comprendre le code.
Par contre je ne comprend pas comment tu positionne les enregistrement sur l'autre feuille.
Surment par cette ligne :

ligvide = Range("a65536").End(xlUp).Row + 1

Peux-tu stp si tu as 2 min me décrire ce que fait cette ligne ?

Merci d'avance

Range("a65536").End(xlUp).Row
indique la premiére ligne non vide à partir de A65536 en remontant (xlup) de la colonne A

de là j'ajoute 1 ce qui me donne le n° de la première ligne vide de la colonne A


Voilà