Pb Combox / Textbox (s)

youky(BJ) à dit:

Bonjour,
Tous d'abord merci, d'avoir répondu à ma question.
J'ai testé ce que vous m'avez proposé, mais hélas cela ne fonctionne pas.
J'ai sans doute mal expliqué ma demande.
Ci dessous je réexplique avec plus de détail

La CboCivilité est une combobox et quand je fais apparaitre un nom via la liste déroulante, elle doit m'afficher dans 2 combobox + 5 textebox
les informations de la ligne concerné et de la colonne concerné le tous situé dans la feuille concernée

En gros je souhaite que quand j'affiche un nom dans CboRecherche, il faut que les informations contenu dans :
la ligne concernée de la colonne 1 de mon tableau situé en feuille1 s'affiche dans la CboCivilité
la ligne concernée de la colonne 2 de mon tableau situé en feuille1 s'affiche dans la TxtNom
la ligne concernée de la colonne 3 de mon tableau situé en feuille 1 s'affiche dans la TxtPrenom
ect....

de plus il faut qu'elle m'affiche les noms même s'il y en a deux (car il se peut que dans ma liste il y a dans une ligne un Dupont George et un Dupont Pauline)



voici mon code :
Private Sub CboRecherche_Change()

With ThisWorkbook.Sheets("Agents")
For Each Variable In .Range("B1:B" & .[A65000].End(xlUp).Row)
If CStr(Variable) = (Me.CboRecherche.Value) Then


Me.CboCivilite.Value = Cells(Variable.Row, 1)
Me.TxtNom.Value = Cells(Variable.Row, 2)
Me.TxtPrenom.Value = Cells(Variable.Row, 3)
Me.TxtNNI.Value = Cells(Variable.Row, 4)
Me.CboStatut.Value = Cells(Variable.Row, 5)
Me.TxtTelPortable.Value = Cells(Variable.Row, 6)
Me.TxtTelBureau.Value = Cells(Variable.Row, 7)

End If
Next
End With

End Sub



Merci

Cliquez pour agrandir...

youky(BJ) à dit:

Bonjour,
Donc voici un fichier exemple qui répond à la demande.
Dommage de devoir le faire moi même . . . .
Bruno

Cliquez pour agrandir...