XL 2010 Clic "croix" sur UserForm et arrêt code

[Usine à gaz]

Bonsoir à toutes et à tous,

Je bute sur un nouveau souci.

Mes recherches m'ont permis de trouver sur le Forum et ailleurs des fils et des codes qui semblent traiter ma demande.
Malheureusement, je n'y arrive pas.

Mon besoin :
UNIQUEMENT au clique sur la croix (haut à droite) de l'UserForm, l'UF se ferme et le code suivant de la feuille ne s'exécute pas

LOL, ça peut sembler simple mais pour moi, rien à faire et je ne comprends pas.
Le fichier joint pour tests sera, je l'espère explicite.

Avec mes remerciements pour vos interventions toujours salutaires,
Je vous souhaite une bonne fin de dimanche,
Amicalement,
Lionel,

 

[pierrejean]

bonsoir Arthour

A tester

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False

If Not Intersect(R, Range("n7:n20")) Is Nothing And R.Count = 1 Then
R.Offset(0, 1) = ""
PratiqueSuivisAppels01.Show
If R <> "" Then R.Offset(0, 1) = "Pas bon"
'PratiqueSuivisAppels01.Top = ActiveCell.Top - PratiqueSuivisAppels01.Height + 103

End If
If Not Intersect(R, Range("r7:r20")) Is Nothing And R.Count = 1 Then
R.Offset(0, 1) = ""
PratiqueSuivisAppels02.Show
If R <> "" Then R.Offset(0, 1) = "Pas bon"
'PratiqueSuivisAppels02.Top = ActiveCell.Top - PratiqueSuivisAppels02.Height + 103
End If

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[mapomme]

Bonsoir à tous,

Voir fichier joint.

Pour ne pas avoir de message intempestif, refermer la fenêtre VBE quand vous testez.

edit : Bonsoir @pierrejean

 

[Usine à gaz]

Bonsoir Mapomme,

Merci pour cette si rapide réponse
J'ai testé ta pièce jointe mais le "Pas bon" s'affiche tjrs ce qui voudrait dire que le code de la feuille s'exécute jusqu'à sa fin.

 

[Usine à gaz]

je rectifie Mapomme, ça marche ;
Un grand merci.
Bonne fin de dimanche,
Amicalement,
Lionel,

 

[Usine à gaz]

Bonsoir PierreJean,

Merci de m'avoir répondu
Je teste et je reviens...

 

[Usine à gaz]

Re-Bonsoir PierreJean,

En fait, j'avais oublié de précisé que dans mon fichier de travail, la cellule cliqué n'est pas forcément vide.
Le code de Mapomme dans le code de l'uf permet de contourner cet obstacle.

Un grand merci PierreJean
Bonne fin de dimanche,
Amicalement,
Lionel,

 

[Si...]

Bon_jour

Je suppose, arthour, que tu as cela dans ton projet qui est déjà très chargé.

Pour l'alléger un tant soit peu, tu peux n'utiliser qu'un formulaire (comme dans la copie jointe).

Nota : j'ai réduit la largeur de la liste pour laisser apparent le X de fermeture (sans modifier la place du formulaire) et donné la possibilité de corriger éventuellement le choix déjà fait.

 

[Usine à gaz]

Bonjour Si, Le Forum,

Pardon, j'avais pas vu ton post.
Je regarde et je reviens

 

[Usine à gaz]

Re-Si,

ça marche tout bien
Un grand merci,
Bonne journée,
Amicalement,
Lionel,