Index

Créer un formulaire

Pour créer un formulaire:

• Alt+F11 pour accéder à VBA
• Insertion/Userform

Boite à outils

Affichage/Boîteà outils

Pour créer la zone de saisie du nom (TextBox)

• Cliquer sur l’icône de la boîte à outils(Affichage/Boîte à outils)
• Dessiner la zone de saisie dans le formulaire
• Définir le nom de la zone de saisie dans la fenêtre Propriétés(nom)

Créer des zones de saisie pour le prénom et la ville.

Pour créer le libellé Nom (Label)

• Cliquer sur l’icône de la boîte à outils
• Frapper le libellé Nom

Bouton de validation

• Créer un bouton
• Le nommer B_validation
• Double-clic sur le bouton

Private Sub b_validation_Click()
  '--- Positionnement dans la base
  [A65000].End(xlUp).Offset(1, 0).Select
  '--- Transfert Formulaire dans BD
  ActiveCell.Value = Application.Proper(Me.nom)
  ActiveCell.Offset(0, 1).Value = Me.Prenom
  ActiveCell.Offset(0, 2).Value = Me.Ville
End Sub

Fermeture du formulaire

Private Sub b_fin_Click()
  Unload Me
End Sub

Lancement du formulaire

• Le nommer F_création_simple
• Créer une macro dans un module

Clic-droit/Affecter une macro

Sub appel_Simple()
  F_création_simple.Show
End Sub