User Form

Bonjour à tout le Forum.

J'ai créé une macro qui me permet de faire des recherche dans une base de donnée avec un UserForm qui est composé d'un TextBox et de deux CommndButton "Annuler" et "Suivant".
Voici la macro en question.

Private Sub Disponible()
'Déclaration des variables
Dim Titre As String
'Dim Msg, Style, Title, Response

With Worksheets(1).Range("A1:A500")
    Set c = .Find(TextBox1.Value, LookIn:=xlValues)
   
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Titre = c.Value
            If c.Offset(0, 1).Value = "" Then
               Unload Me
               Disponible.Label2.Caption = c.Value
               Disponible.Show
            End If
            Set c = .FindNext(c)

        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub


Juqu'ici pas de problème ça marche.

Par la suite j'ai créé un autre Form ,("Disponible") avec deux  Label (1et2) et deux CommandButton (Annuler et Suivant), pour pouvoir afficher les résultats de mes recherches.

Le résultat s'affiche sans problème. Lorsque je clique sur le bouton "Suivant" ça marche aussi sans problème. Mais les choses se gatent pour le bouton "Annuler". En effet  je n'arrive pas à programmer correctement le bouton "Annuler" de l'UserFrm "Disponible".

Voila je vous demande un petit coup de main pour m'aider sur ce fichu Bouton Annuler.

Je vous remercie de l'attention que vous porterez à ma demande.

Goose 17

Salut,
Qu'est ce que tu veux que ton bouton annuler fasse?

S.L.B.

---

*********************************************************************************
<>

Bonjour lillith212 .

J'aimerai que mon bouton "Annuler"  sorte de la Sub Disponible (arréter la recherche), et qu'il ferme l'Userform Disponible.

Merci d'avance

Re:

Donc tu veux simplement fermer ta form "Disponible" quand tu clique sur ton bouton annuler. C'est ca?
tu a testé le unload.me?

S.L.B.

---

*********************************************************************************
<>

Re :

Oui j'ai déja testé la fonction Unload.me mais ça ne marche pas. Mon problème c'est que je n'ai sais pas quel code utilisé et ou le taper.

Oki,
où le saisir c'est dans l'événement click,
tu as testé le unload.me dans l'évenement click?

S.L.B.

---

*********************************************************************************
<>

Salut,

Je recaptule, sur annuler fermer disponible?

sur la commande on cliq de ton boutton :

disponible.close mais ils faut que tes forms soit independante les une des autres ou tu risque de quiter ton applications

besoin d'info ? : [ Lien ]

oui

et ça ne marche pas

  If c.Offset(0, 1).Value = "" Then
               Unload Me
remplacer le Unload Me par me.close

plus d info : klh-competence

Salut,
Et passer par un booléen testé a chaque passage dans ta boucle?

Ton bouton annuler le met à True. si dans la boucle de Disponible tu le vois à true, tu le mets à False et tu sors avec Exit Sub

@+: Ju£i¤n
Pensez: Réponse acceptée