Valeur dans UserForm

Bonjour Bruno,

J'ai supposé que les dates de naissance étaient 2 colonnes à droite du nom dans ta feuille de données.

'-----------------------------------------
Private Sub ComboBox1_Change()

Dim LaDate As Date
If Me.ComboBox1.ListIndex <> -1 Then
If Me.ComboBox1.Text <> "" Then
With Me.ComboBox1
LaDate = Range(.RowSource).Offset(, 2).Rows(.ListIndex + 1)
Me.TextBox1 = Format(LaDate, "DD MMM")
Me.TextBox2 = VBA.DateDiff("yyyy", LaDate, Date) & " ans"

End With
End If
End If
End Sub
'-----------------------------------------


Salutations!



"Bruno ALEMANNO" <balemanno@skynet.be> a écrit dans le message de news: u1mj5raKFHA.1476@TK2MSFTNGP09.phx.gbl...
Bonsoir le groupe

J'ai un UserForm1 dans lequelle je souhaiterais à partir d'une feuille
"Base"
Avec des colonnes, Index, Nom, Prénom, date de naiss, ...........
j'ai également nommé les plage de colonnes par leurs entêteIndex, Nom,
Prénom, date de naiss, ........... si cela peux servir.

Avoir une liste déroulante avec le contenu dans la colonne "B"dans "Base"
Après avoir sélectionné mon choix dans cette liste j'aimerais que
dans un TextBox1 il y aie sa date de naissance qui est dans "Base" mais pas
l'année "jj/mm" si possible le mois en lettre
et dans un autres TextBox2, avoir son âge + 1ans. ex: "43 ans" pour
connaitre son anniversaire.
--
Merci
Amicalement
Bruno