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