Autres Formulaire de saisies

[BARBET Dominique]

Bonjour à tous, c'est par curiosité que j'ai essayé de créer un formulaire de saisie, par ce que je voulais savoir le faire.
j'ai donc cherché beaucoup sur internet.
J'ai réussi a faire quelque chose au niveau des commandes mais cela ne doit pas être le top.
Je voudrais pouvoir monter ou descendre avec le masque dans la base de donnée avec un curseur montée/descente, je n'y arrive pas.
Merci de m'aider

Voir fichier joint

 

[Compte Supprimé 979]

Bonjour Dominique et bienvenue 😉

Joli boulot pour un débutant 👍
Voici une possibilité, en modifiant quelque peu le code pour que tu aies ce que tu souhaites

Le scrollbar s'adapte au nombre d'enregistrements, il suffit de se mettre tout à la fin pour saisir un nouveau client.

@+

 

[BARBET Dominique]

Merci Bruno, c'est ce que je voulais - tout en restant simple.
J'avais pris les premiéres lignes sur internet, et par la suite c'est ajouté tout seul une multitude de lignes.
Mais cela ne fonctionné pas trés bien.
Merci d'avoir corrigé.
Dominique

 

[BARBET Dominique]

Merci Bruno, c'est ce que je voulais - tout en restant simple.
J'avais pris les premiéres lignes sur internet, et par la suite c'est ajouté tout seul une multitude de lignes.
Mais cela ne fonctionné pas trés bien.
Merci d'avoir corrigé.
Dominique

Rebon jour, aprés réflexion je voudrais qu'à l'initiation le masque s'ouvre sur la derniére ligne, je n'y arriva pas.
Merci d'avance - Dominique

 

[Compte Supprimé 979]

Bonjour Dominique

Question qui me taraude, êtes-vous Français ?

Si oui, qu'est-ce que vous ne comprenez pas dans

    ' Dernière ligne de la feuille
  dLig = Sheets("Base").Range("A" & Rows.Count).End(xlUp).Row

et

' A l'initialisation on se positionne sur la 1ère ligne
  LigBase = 2

Je m'évertue à commenter mes codes, parfois je me demande à quoi ça sert 🤔☹️

Voici le fichier avec une petite modification, car il faut changer également la valeur du Scrollbar 😜

A+

 

[BARBET Dominique]

Bonjour Dominique

Question qui me taraude, êtes-vous Français ?

Si oui, qu'est-ce que vous ne comprenez pas dans

    ' Dernière ligne de la feuille
  dLig = Sheets("Base").Range("A" & Rows.Count).End(xlUp).Row

et

' A l'initialisation on se positionne sur la 1ère ligne
  LigBase = 2

Je m'évertue à commenter mes codes, parfois je me demande à quoi ça sert 🤔☹️

Voici le fichier avec une petite modification, car il faut changer également la valeur du Scrollbar 😜

A+

Merci beaucoup, en fait je n'y rien, mis à part quelques balbutiements dans les macros.
Merci encore