Dans cet article vous verrez un exemple simple d’un formulaire d’inscription permettant de sauvegarder les éléments enregistrés par l’utilisateur et ensuite vider le formulaire (pour l’inscription suivante)

Si vous ne savez pas comment créer un formulaire vous pouvez lire l’article suivant le montrant pas à pas avec quelques autres exemples d’utilisation

creer-et-utiliser-un-formulaire-excel

 

Vous trouverez l’exemple de la procédure dans ce fichier

FormulaireInscription

 

Dans un premier temps pour ouvrir le formulaire, lancez la macro « montrerformulaire » associée au fichier

Un formulaire demandant le nom, prénom et age va s’afficher

Une fois ces champs complétés appuyez sur le bouton s’inscrire et ce nouvel enregistrement se retrouvera en dernière ligne du fichier

 

Voici le code derrière le bouton d’inscription

 

Private Sub Inscription_Click() ‘le bouton s’inscire porte le nom Inscription, la procédure pour déclencher le code à l’appui estdonc d’office Inscription_click
Dim Age, Nom, Prenom
Dim DateJour As Date
Dim i As Integer

’1 on regarde à quelle ligne vont être encodées les informations
i = ActiveSheet.UsedRange.Rows.Count + 1 ‘cette fonction compte le nombre de ligne utilisées du fichier, on ajoutera le nouvel enregistrement la ligne suivante
’2 on reprend les valeurs encodées dans des variables

DateJour = Now() ‘now() est une fonction excel reprend la date et l’heure actuelle

Age = Formulaireinscription.Age
Nom = Formulaireinscription.Nom
Prenom = Formulaireinscription.Prenom
’3 on met les valeurs dans le fichier excel à la bonne ligne

Cells(i, 1) = DateJour
Cells(i, 2) = Nom
Cells(i, 3) = Prenom
Cells(i, 4) = Age

’4 on vide le formulaire

Formulaireinscription.Age = «  »
Formulaireinscription.Nom = «  »
Formulaireinscription.Prenom = «  »

End Sub