Discussion :

[ouskel'n'or]

Dans un userform j'ai une procédure assez longue que je souhaiterais pouvoir interrompre à l'aide d'un clic de souris quand j'ai obtenu un certain résultat, mais pas nécessairement, pouvant souhaiter que la procédure se poursuive.
Un test sur le résultat en question qui interromprait la procédure n'est pas possible, ce résultat n'étant pas connu à l'avance.
Seul l'oeil peut dire au bon moment "j'arrête !" ou "j'arrête pas !"
J'ai pensé le faire en interceptant la frappe d'une touche mais j'ai le souvenir d'un code assez lourd et peu fiable, faisant appel entre autres à GetAsyncKeyState, Addressof, SetTimer et autres amusant KillTimer (qui, lui, fonctionnait une fois sur deux)
Bref, ça fonctionne parfois mais cépaça.
En fait, ce que je veux, c'est pouvoir interrompre une macro quand je veux mais conserver les résultats déjà obtenus.

Il y a peut-être quelque chose à faire avec EnableEvents mais je ne vois pas
Si quelqu'un avait une idée, je serais très content
Par avance, merci.

[fring]

Salut Ousk,

Jette un oeil sur le fichier joint si ce petit bout de code répond à tes attentes.

Pièce jointe 28098

[ouskel'n'or]

Merci, Fring,
Ça y est, je me suis levé bien réveillé et j'ai trouvé !
J'avais essayé ta solution mais elle ne fonctionnait pas parce que je voulais utiliser le même bouton. Or j'avais mis le code dans l'événement Click si bien que le bouton restait inaccessible ("enfoncé")
La solution ? Passer le code dans MouseUp. Le bouton conserve le focus mais répond aux événements.
C'est tout à fait ce qui me convient.
Ainsi je peux utiliser le même bouton qui passe de "Lancer la macro" à "Interrompre la macro" selon que le boolean est true ou false.
Merci beaucoup, c'est bien ta solution qui m'a conduit à voir un peu plus loin que le click d'un bouton

Si ça t'intéresse de savoir ce que j'en ai fait, regarde l'userform, ici

[fring]

Joli

Mais j'ai un bug au survol de la souris, sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function ChercherPartout(PathRep As String, NomFich As String, Optional SousRep As Boolean = True) As Boolean
Dim fs, f, NomRep, RepFich As Variant
Set fs = CreateObject("Scripting.FileSystemObject")
    If Not Go Then Exit Function
    Me.Label1.Caption = "Recherche dans le répertoire " & vbCr & PathRep
    DoEvents
    PathRep = PathRep & "\"
    If Dir(PathRep & NomFich) <> "" Then   <---
        Me.ListBox1.AddItem PathRep
    End If
    If SousRep Then
        For Each RepFich In fs.GetFolder(PathRep).SubFolders
            PathRep = RepFich.shortpath
            ChercherPartout = ChercherPartout + ChercherPartout(PathRep, NomFich, SousRep)
        Next RepFich
    End If
    ChercherPartout = ListBox1.ListCount > 0
End Function

Je verrais bien aussi 2 Combo's, une qui permettrait de sélectionner la partition (à l'initialisation du Usf un check serait fait pour vérifier les partitions existantes) et l'autre qui permettrait de sélectionner le type de fichier (choix de l'extension via une liste déroulante) avec pour cette dernière une possibilité "autre" qui laisserait l'utilisateur introduire l'extension manuellement afin de se limiter à faire une liste d"extensions courantes

[ouskel'n'or]

Mais j'ai un bug au survol de la souris, sur cette ligne

Là, je ne comprends pas, je n'ai aucun test sur un événement mousemove dans l'userform. Seuls s'affichent les ControlTipText mais là, je ne comprendrais pas une interaction...
Tu peux préciser les conditions ?
Pour une liste des volumes, j'y ai pensé mais ce sera pour une prochaine version. Au départ, je voulais compter les fichiers d'un répertoire... Et puis je me suis dit...
pour les extensions, je pourrais carrément les supprimer du test. Mais je devrai alors les ajouter dans la listbox. C'est faisable. On verra ça dans "V.0.2" s'il s'avère que mon bidule intéresse les gens
Tu me dis pour le passage de la souris ?
Merci
A+

[fring]

Tu peux préciser les conditions ?

• Température : 8°C
• Vent : 19km/h, orientation Ouest
• Pression : 1010 millibars
• Humidité : 93%

Edit : Apparement le lien vers l'autre post n'est plus valide
ReEdit : même si je le laisse terminer sa recherche, il bug sur cette même ligne lorqu'elle est terminée