1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
   | Private Sub nom_Change() ' menu deroulant noms
    Sheets("base").Select
    Position = UTILISATEUR.nom.ListIndex 'cherche le numero de ligne du menu deroulant
    contenu = UTILISATEUR.nom.List(Position) 'cherche le contenu du menu deroulant
    vnom = contenu
    initiale = Sheets("base").Range("a2:a8").Find(What:=vnom).Address 'donne valeur de la cellule
    Range(initiale).Select
    ActiveCell.Offset(0, 1).Select 'decale d'une colonne pour trouver les prenoms
'remplissage des champs avec les noms exactes
vprenom = ActiveCell.Value
vnom1 = ActiveCell.Offset(0, 1).Value
UTILISATEUR.TBPRENOM.Value = vprenom ' dans la boite de dialogue affiche la valeur
UTILISATEUR.TBNOM.Value = vnom1
'donnee.TBPRENOM.Value = vprenom 'dans boite donnée affiche
donnee.TBNOM.Value = vnom1
End Sub | 
Partager