Re,
tu n'as pas dit que tu avais des cellules fusionnées, , je comprend mieux avec ton fichier.
dans le code de l'userform:Dim plage1 As Range, plage2 As Range, plage3 As Range
Private Sub UserForm_Initialize()
Set plage1 = Sheets("Feuil1").Range("B5:B31")
Set plage2 = Sheets("Feuil1").Range("B38:B40")
Set plage3 = Sheets("Feuil1").Range("B45:B48")
For Each c In plage1
Me.ComboBox1.AddItem c.Value
Next c
For Each c In plage2
Me.ComboBox2.AddItem c.Value
Next c
For Each c In plage3
Me.ComboBox3.AddItem c.Value
Next c
End Sub
ensuite toujours dans le code de l'userform les codes pour chaque combobox:
combobox1:Private Sub ComboBox1_Change()
'je donne à la variable vval la valeur du combobox
vval = Me.ComboBox1.Value
For Each c In plage1
If c = vval Then
Me.TextBox1 = c.Offset(0, 1)
Exit For
End If
Next c
End Sub
combobox2: Private Sub ComboBox2_Change()
'je donne à la variable vval la valeur du combobox
vval = Me.ComboBox2.Value
For Each c In plage2
If c = vval Then
Me.TextBox2 = c.Offset(0, 1)
Exit For
End If
Next c
End Sub
combobox3 : Private Sub ComboBox3_Change()
'je donne à la variable vval la valeur du combobox
vval = Me.ComboBox3.Value
For Each c In plage3
If c = vval Then
Me.TextBox3 = c.Offset(0, 1)
Exit For
End If
Next c
End Sub
@+