Modification d’une fiche

Modif.xls

Initialisation de la liste du choix du nom

Private Sub UserForm_Initialize()
   [A2:H1000].Sort key1:=[B9]           ' Tri la BD
   For Each c In Range([B9], [b65000].End(xlUp))
     Me.ChoixNom.AddItem c.Value
   Next c
End Sub

Transfert des infos de la BD dans le formulaire

Private Sub ChoixNom_Change()
  [B2].Offset(ChoixNom.ListIndex, 0).Select
  Me.nom = ActiveCell
  '-- civilité
  Select Case ActiveCell.Offset(0, -1)
     Case "Mme"
       Me.Civilité.Controls(0) = True
     Case "Mle"
       Me.Civilité.Controls(1) = True
     Case "M."
       Me.Civilité.Controls(2) = True
   End Select
   '--
   Me.prenom = ActiveCell.Offset(0, 1)
   Me.Marié = ActiveCell.Offset(0, 2)
   Me.date_naissance = ActiveCell.Offset(0, 3)
   Me.Service = ActiveCell.Offset(0, 4)
   Me.Ville = ActiveCell.Offset(0, 5)
   Me.Salaire = ActiveCell.Offset(0, 6)
End Sub

Validation

Private Sub ChoixNom_Change()
  [B2].Offset(ChoixNom.ListIndex, 0).Select
  Me.nom = ActiveCell
  '-- civilité
  Select Case ActiveCell.Offset(0, -1)
    Case "Mme"
      Me.Civilité.Controls(0) = True
    Case "Mle"
      Me.Civilité.Controls(1) = True
    Case "M."
      Me.Civilité.Controls(2) = True
   End Select
   '--
   Me.prenom = ActiveCell.Offset(0, 1)
   Me.Marié = ActiveCell.Offset(0, 2)
   Me.date_naissance = ActiveCell.Offset(0, 3)
   Me.Service = ActiveCell.Offset(0, 4)
   Me.Ville = ActiveCell.Offset(0, 5)
   Me.Salaire = ActiveCell.Offset(0, 6)
End Sub