Re selection

Bonjour Michel,


Voici un exemple : Combobox dans un formulaire.

J'ai supposé que la propriété RowSource du Combobox avait été renseigné de cette façon : Feuil1!B5:B20

'--------------------------------------
Private Sub CommandButton1_Click()

'Déclaration des variables
Dim Rg As Range, A As Long

'Variable objet Range récupérant la
'valeur de la propriété RowSource du Combobox
Set Rg = Range(Me.ComboBox1.RowSource)

' A = Valeur de l'index du combobox de la sélection faite par l'usager
A = Me.ComboBox1.ListIndex + 1

'Un petit test pour s'assurer que l'usager a réellement effectuer son choix

If Me.ComboBox1.ListIndex <> -1 Then
'Récupère la valeur de la première cellule(colonne) à droite de l'item sélectionné
'dans la feuille de calcul. En faisant varier le chiffre "2" tu obtiendras
'la valeur approprié à la colonne désirée.
MsgBox Rg(A, 2).Value
Else
'message si l'usager n'a pas effectué de choix
MsgBox "le combobox n'affiche aucune sélection"
End If

End Sub
'--------------------------------------


Salutations!


"Michel" <jmp@calixo.net> a écrit dans le message de news:3f79230b$0$31720$ba620e4c@reader1.news.skynet.be...
Apparemment mon pbl doit être ardu je n'ai pas eu de réponse, mais si vous
pouviez me mettre sur la voie.

Est t'il possible de sélectionner toute la ligne de mon tableau quand un
combobox pointe sur la colonne A
afin d'utiliser le contenu des autres colonnes dans des textbox


Merci pour votre aide