Aide sur un code VBA

[link93]

BOnjour,

J'ai un fichier qui me permet via un userform d'afficher des données d'une base de donné excel.

L'ensemble marche correctement mais sur l'affichage du téléphone et de l'adresse le changement en se fait pas est n'affiche que celui de la première ligne.

Je sais pas trop comment lui le faire évoluer pour qu'il puisse s'adapter en fonction de la recherche.

Je mets un fichier joint le fichier si une âme charitable veux bien regarde ce qu'il en est ^^

Merci pour votre aide

 

[Bebere]

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

 

[link93]

Re : Aide sur un code VBA

Du grand art merci pour ton aide ^^