Salut à tous,
je rencontre des difficultés pour faire accepter le resultats d'une recherche Find. comme l'une des rowsources de mes combobox.
Voici le code d'ou vient l'erreur :
Private Sub UserForm_Initialize()
Dim dercell As String
Dim cellcourante As Variant
Columns("A:A").Select
Set cellcourante = selection.Find(What:="Entrées", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
dercell = cellcourante.End(xlDown).Address
cbfixprix.RowSource = cellcourante.Address & dercell
End Sub
Merci de votre aide
Ronana