bonsoir Cvs , bonsoir chere Brigitte
tes problemes d'envoi de messages sont certainement dus aux symboles 'superieur' et 'inferieur' qui ne passent pas sur le forum
ci joint une adaptation à tester dans ton classeur
Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Value
'explications :
'Cells(ComboBox1.ListIndex + 1 , 2)
'correspond à :
'Cellule(num Ligne, num Colonne)
'ComboBox1.ListIndex correspond à la position de l'élément sélectionné dans la combobox
'le 1er index est egal à 0
'ListIndex renvoie -1 si aucun element n'est selectionné
'la premiere donnée du tableau étant dans la cellule A1 ,
'on peut ecrire ComboBox1.ListIndex + 1 pour indiquer la 1ere ligne de la feuille
TextBox2.Value = Cells(ComboBox1.ListIndex + 1, 2)
TextBox3.Value = Cells(ComboBox1.ListIndex + 1, 3)
TextBox4.Value = Cells(ComboBox1.ListIndex + 1, 4)
End Sub
Private Sub UserForm_Initialize()
Dim x As Integer, i As Integer
'pour recupere la derniere ligne non vide de la colonne A
x = Range('A65536').End(xlUp).Row
For i = 1 To x
ComboBox1.AddItem Cells(i, 1)
Next i
End Sub
bonne soirée
MichelXld
Message édité par: michelxld, à: 12/04/2006 22:15