Faire une pause durant un SelectionChange

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Septembre 2012

• #2

Re : Faire une pause durant un SelectionChange

Bonjour lemimelo,

J'ai un Private Sub Worksheet_SelectionChange qui me permet d'ouvrir un UserForm

Cliquez pour agrandir...

et comment demandes-tu l'ouverture de l'Usf

UserForm1.Show ne permettra pas de revenir sur la feuille
UserForm1.Show (0) permettra pas de revenir sur la feuille

à+
Philippe

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 26 Septembre 2012

• #3

Re : Faire une pause durant un SelectionChange

Bonjour Lemimelo, Philippe

Sinon, tu peux tester avec:

Code:

onkey

ou mettre une variable boolean et la tester pendant le selectionchange.

 

Vote positif 0 Vote négatif

L

Lemimelo

Guest

• 26 Septembre 2012

• #4

Re : Faire une pause durant un SelectionChange

Bonjour à tous et merci pour vos réponses.
Effectivement j'appelle mon userform ainsi UserForm1.Show

Vos deux remarques sont intéressantes mais en consultant l'aide sur OnKey, j'ai toujours du mal à voir comment je pourrais m'en sortir, notamment comment inverser la valeur du boolean... J'ai pas fait vraiment de prog...

Mon code pour l'instant est ainsi (j'ai sciemment supprimé mes tentatives pour plus de clarté) :
Dim activate As Boolean
activate = True

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TargetRow = Target.Row
TargetCol = Target.Column
UserForm1.Show
End Sub

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 26 Septembre 2012

• #5

Re : Faire une pause durant un SelectionChange

bonjour tous🙂
regarde du cote de
Application.EnableEvents

 

Vote positif 0 Vote négatif

L

Lemimelo

Guest

• 26 Septembre 2012

• #6

Re : Faire une pause durant un SelectionChange

Bonjour laetitia90 et merci
Le problème avec l'aide excel c'est que pour de telles propriétés l'exemple n'est pas très approprié par rapport à mon problème.
En gros je ne vois pas bien si je fais un Ctrl w comment faire comprendre à la machine qu'il faut mettre le Application.Events = False... Et quoi mettre après pour que si je retape Ctrl w tout redevienne OK...

C'est pas que je ne veux pas mais je ne comprends pas !

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 26 Septembre 2012

• #7

Re : Faire une pause durant un SelectionChange

re si j'ai le temps ce soir je te ferais un exemple
ps: as tu tenue compte de la remarque de l'ami philippe trés important

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 27 Septembre 2012

• #8

Re : Faire une pause durant un SelectionChange

Re-Bonjour à tous

laetitia90 à dit:

re si j'ai le temps ce soir je te ferais un exemple
ps: as tu tenue compte de la remarque de l'ami philippe trés important

Cliquez pour agrandir...

je me contenterai de suggérer à Lemimelo d'aller lire le point 3 après avoir cliqué ci-dessous
Lien supprimé

UserForm1.Show (0) est une solution mais a-t'elle été testée ?????

une autre solution, mettre un "flag" dans une cellule quelconque qui sera inversé par un Ctrl+W

et conditionner l'ouverture de l'usf par rapport à ce flag

............... voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  21.2 KB · Affichages: 35
• 111.xlsm

  21.2 KB · Affichages: 46
• 111.xlsm

  21.2 KB · Affichages: 41

Dernière édition: 27 Septembre 2012

Vote positif 0 Vote négatif

L

Lemimelo

Guest

• 27 Septembre 2012

• #9

Re : Faire une pause durant un SelectionChange

Bonjour et merci de votre gentillesse et de votre patience.

J'avais pensé à l'utilisation d'un flag dans une cellule en me disant que je pouvais peut être mieux en mettre un à un endroit en amont du code de l'UserForm... Mes quelques tentatives ne furent pas glorieuses.
Merci Philippe pour cet exemple, en revanche je n'arrive par du tout à mettre la main sur l'emplacement du code où tu déclares le changement de valeur du flag (en A1), et c'est ce qui est le plus important !

Désolé pour mon temps de compréhension...
Lemimelo

Pour l'UserForm.Show(0), je pense comprendre, je l'utiliserai une fois que j'aurai compris le code du Ctrl w 🙂

 

Vote positif 0 Vote négatif