Re : Aide sur un code VBA
bonjour Link
essaye comme suit
Private Sub Critere3_Change() 'prénom
Dim tel, L As Integer
Me.Critere2.Clear
'quand le prénom change, les âges changent aussi
For Each c In Range([B2], [B65000].End(xlUp))
If c = Me.Critere3 Then Me.Critere2.AddItem c.Offset(0, 2): L = c.Row
Next c
On Error Resume Next
Me.Critere2.ListIndex = 0
Me.Label67.Caption = Me.Critere3.Value
tel = Sheets("Donnees").Cells(L, 3).Text
Me.Label66.Caption = tel
Adresse = Sheets("Donnees").Cells(L, 5)
Me.Label71.Caption = Adresse
End Sub
à bientôt