FORMULAIRE: BOUTONS OPTIONS

[LAURET]

BONJOUR à TOUS
je souhaite lors de ma recherche avec le formulaire faire réapparaitre les boutons d'options anciennement séléctionné.
exemple 'ate' dans le formulaire lors de la recherche.
merci d'avance
je vous joint mon fichier. [file name=creation_20060330192806.zip size=20103]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/creation_20060330192806.zip[/file]

 

[Charly2]

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

A+ 😉

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

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