Fermer USERFORM sans la croix

J'ai posté hier matin sur un autre forum et j'ai eu une réponse satisfaisante.

J'ai continué à poser une autre question à savoir Fermer l'USERFORM sans la croix et là ça ne "bouge" plus?

Autre question lorsque je mets le bouton dans plage K:M le bouton ne se ferme t-il pas aussi au double click de cellule A2?

Merci pour vos éventuels retours

Cordialement

Bonjour toutes et tous et bon weekend /week-end

@Al87

1/ protection de la feuille qui bloquait , j'ai mis mot de passe : toto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect ("toto")
  If Target.Address = "$A$3" Then
    DbClic = True

    Run "Init" & MEDICAMENT                      ' Le 28/01/2021 dans le Module posologie

    Target = IIf(Target.Value <> "", "", Date): Cancel = True
    DbClic = False
  ElseIf Target.Address = "$A$2" Then
      Columns("K:M").Hidden = Not Columns("K:M").Hidden
      Cancel = True
  End If
  ActiveSheet.Protect ("toto")
End Sub

pour la cellule A2 de la feuiller par double clic gauche, en rajoutant si l'userform est visible on le décharge

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect ("toto")
  If Target.Address = "$A$3" Then
    DbClic = True

    Run "Init" & MEDICAMENT                      ' Le 28/01/2021 dans le Module posologie

    Target = IIf(Target.Value <> "", "", Date): Cancel = True
    DbClic = False
  ElseIf Target.Address = "$A$2" Then
      Columns("K:M").Hidden = Not Columns("K:M").Hidden
      Cancel = True
  End If

  ActiveSheet.Protect ("toto")
  If Usf_Annees.Visible = True Then
  Unload Usf_Annees
  Else
  End If
End Sub

ci-joint,

crdlt,

André

Bonjour Andre13

Lorsque j'active l'userform et fait le choix de 2022 par exemple ça passe bien à 2022 mais l'USERFORM reste ouvert.

D'autre part lorsque je double click sur cellule A2 le bouton reste visible colonnes N à Q.

Tu tu arrives à résoudre les petits problèmes tu peux enlever le mot de passe STP (que moi qui m'en sert)

Merci à toi et peut-être à +

Bonjour Al87,

Vous avez l'air pressé
Un post vendredi matin sur un autre forum, pas de réponse donc du coup on se rabat sur celui-ci.

Sur les forums tout le monde est bénévole, rien n'oblige personne à vous répondre immédiatement !

Ceci dit, pour gérer la croix il faut utiliser l'évènement

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If CloseMode = 0 Then MsgBox "Fermeture via la croix"
End Sub

@+

Bonsoir le forum

Voilà