FORMULAIRE: BOUTONS OPTIONS

Bonjour Lauret, bonjour à toutes et à tous 🙂

Tu trouveras une proposition dans le fichier joint. J'ai remarqué que tu avais placé des doublons dans ta base, et ton module de recherche ne prend que le premier de la liste : peut-être à creuser, si tu veux le dernier par exemple, tu peux mettre xlPrevious dans ton Find.

[file name=LAURET_creationV1.zip size=24015]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/LAURET_creationV1.zip[/file]

EDITION : Dans le fichier, il faut modifier InitOptionButton ainsi :

Sub InitOptionButton(Cell As Range)
'
Dim NumBO As Byte
'
  If IsEmpty(Cell) Then Exit Sub
  On Error Resume Next
  With WorksheetFunction
    NumBO = .Search(Cell, TabBO, 1) \\\\\\\\ 20 + 1
    If Err.Number ‹› 0 Then Err.Clear Else _
                    Me.Controls('OptionButton' & NumBO) = True
  End With
End Sub

Cliquez pour agrandir...

A+ 😉

Message édité par: Charly2, à: 31/03/2006 07:58

Message édité par: Charly2, à: 31/03/2006 08:00