Combobox et textbox problème

[Novice]

Bonjour, a tous
Voila mon problème, bien que c'est une question récurante sur ce site, et malgré les nombreuses Démos téléchargés, je n'arrive pas à réaliser une selection avec une combobox.
Sui novice mais je progresse, mais la je bloque

Sur la page d'accueil de mon fichier j'expose se que je souhaite réellement.

J'ai déja bien avancé grace à vos conseils Merci [file name=essaiprets_20060106085922.zip size=35917]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaiprets_20060106085922.zip[/file]

 

[Blunet]

Merveilleuse Année 2006 Novice

J'espère ce que fichier joint pourra t'aider !!

Ciao

 

[Blunet]

Le fichier Joint [file name=essaipretsVersion1.zip size=38256]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaipretsVersion1.zip[/file]

 

[Novice]

Bonjour blunet,
C'est simplement ce que je voulait Grand MERCI,

J'ai juste réactualisé les numéros aprés offset afin que les données voulues se mettents dans les bonnes cases.

'Code de BLUNET sur XLD Merci à lui
Private Sub ComboBox1_Change()
Dim i, j As Integer
i = 1
For j = 2 To ComboBox1.ListIndex + 2
i = i + 1
If ComboBox1.ListIndex + 2 = j Then
'Pour Offset 'selection de la colonne' Numérotation par de la gauche A=0, B=1, C=2, etc
TextBox2.Value = Sheets('PRETS').Cells(i, 1).Offset(0, 2).Value
TextBox3.Value = Sheets('PRETS').Cells(i, 1).Offset(0, 4).Value
Dateretour.Value = Sheets('PRETS').Cells(i, 1).Offset(0, 7).Value
observations.Value = Sheets('PRETS').Cells(i, 1).Offset(0, 8).Value
End If
Next j

End Sub


Kénavo....