TheProdigy
XLDnaute Impliqué
bonsoir tout l monde,
Je vaudrais sovoir comment ne pas permettre à l'utilisateur de saisir dans le combobox. Parcontre il peut seulement défiler la liste.
Merci
Je vaudrais sovoir comment ne pas permettre à l'utilisateur de saisir dans le combobox. Parcontre il peut seulement défiler la liste.
Merci
Code:
Dim Cell As Range, Derli As Integer, Col As Byte
Private Sub UserForm_Initialize()
For Each Cell In Range("opération")
ComboBox1.AddItem Cell
Next
For Each Cell In Range("libellé")
ComboBox2.AddItem Cell
Next
For Each Cell In Range("affectation1")
ComboBox3.AddItem Cell
Next
For Each Cell In Range("affectation2")
ComboBox4.AddItem Cell
Next
End Sub
Private Sub CommandButton1_Click()
Derli = Range("A65000").End(xlUp).Row + 1
For Col = 1 To 4
Cells(Derli, Col) = Controls("ComboBox" & Col)
Next
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub