tester si un form est ouvert

[titcoeur]

Bonjour à tous

Pouvez-vous me dire s'il existe un moyen de tester dans une macro si un form quelconque est ouvert.

Je m'explique :

Une macro de type
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

se lance dès qu'une cellule est modifiée.

mais j'aimerais que cette macro se lance dès que la cellule est modifiée ET qu'aucun form n'est ouvert à ce moment là.

j'aimerais donc faire :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if aucun form ouvert alors
code
endif
endsub

Merci d'avance pour vos réponses

 

[_Thierry]

Bonjour TitCoeur, le Forum

C'est assez tordu comme histoire...

Disons que je ne vois pas vraiment de syntax usant d'une propriété spécififique pour tester si un UserForm est résidant en mémoire ou pas...(A moins que... ?)

Mais on peut facilement détourner le problème à la seule condition sine qua none que tu utilises 'Unload' et pas 'Hide' lors de ta procédure de supression de ce UserForm.

Dans ce Cas, un simple TextBox, ou autre, hors champs visible du UserForm peut faire l'affaire...

A l'initialise du UserForm en RunTime tu envoie par exemple une string 'Open' :
TextBoxX = 'Open'...

Et lors de ton évènementielle tu fais
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If UserFormX.TexboxX <> '' Then Exit Sub
'Etc....

Ce devrait le faire
Bon Appétit
[ol]@+Thierry[/ol]

 

[titcoeur]

Merci Thierry pour ta réponse,

Ce n'est pas si tordu (ou du moins je pense ).

Je t'explique en gros :

1) sheet dans laquelle on encode des paramètres.

soit directement pour les initiés; soit par USF successifs.

2) ma macro fait en sorte que si on modifie le param X (zone A1) dans la sheet, alors Excel met un défaut différent dans le param Y (zone A25). et sélectionne la zone y pour attirer l'attention de l'utilisateur sur celle-ci.

3) ceci sert dans le cas où la sheet est modifiée directement

mais quand les param sont modifiés via usf, alors ma macro se lance et plante lors du range('A25').select car usf active.

mon idée était donc de ne lancer la macro que lorsque la sheet est modifiée manuellement et non via USF.

Ta solution me semble compliquée à mettre en oeuvre car j'ai bcp de usf.

Mais peut-être que c'est mon idée de départ qui est trop compliquée ?

:unsure:

 

[_Thierry]

Re Bonjour JOsé et TitCoeur, le Forum


Non non c'est simple vous ne m'avez pas capté.. LOL

Pas besoin de variables publiques non plus...

Etape Number One
Tu planques simplement un TextBox (Exemple 'TexBoxHidden' en dehors de la taille affichée de ton UserForm1 OK ?

Etape Number Two
Dans l'initialise du même UserForm1 tu mets en plus ceci :

Private Sub UserForm_Initialize()
TexBoxHidden = 'Toto'
End Sub


Etape Number Three
Dans le début de ton évènementielle tu mets
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If UserForm1.TexBoxHidden <> '' Then Exit Sub


Processus
La TextBoxHidden n'est uniquement non vide que si le UserForm a été initialisé... Si tu le décharges avec 'Unload UserForm1' , cette TextBoxHidden sera de nouveau Vide...

That's All Folk !!!

Bon Je file j'ai faim


Bon App
[ol]@+Thierry[/ol]

EDITION !!!
Wouarf le Nombre de Coquilles de frappe, c'est que j'ai l'estomac dans les talons !

Message édité par: _Thierry, à: 17/08/2005 12:36

 

[titcoeur]

Thierry, jmps,

sans vouloir jouer les arbitres LOL,
je suis plutot d'accord avec jmps et son compteur.
Thierry, j'espère que ça ne t'empêchera pas de bien digérer

Merci beaucoup à tous les deux.
J'apprécie votre aide!

:evil:

 

[Minick]

Salut ticoeur, jmps Thierry,

Pour savoir si des UserForms sont chargé utilise simplement

UserForms.Count

si ca retourne 0 c'est que rien n'est chargé

@+

 

[titcoeur]

Bonjour Minick,

Tournée de Duvel made in Belgium pour tous les 3!

Super simple ta solution, je l'adore !!


:kiss:

 

[Minick]

re,

Heuuu merci pour les Duvel mais pour moi ce sera plutot sans alcool
(désolé personne n'est parfait )

jmps ca tombe bien que tu sois en wacance tu va pouvoir faire peter le score sur Demolition...
mais attention quand meme hein je connais pas les effets secondaires ...


@+

 

[_Thierry]

Wouarf !

Bravo Minick !!!

Heureusement que j'ai eu le temps de faire une dizaine d'Extractions ADO SQL avec les mails qui sont générés avec, avant de revenir sur ce Post :

UserForms.Count

Sinon j'aurai eu le hoquet sur ma digestion !

Heureusement j'avais bien dit à 11:56 : ...(A moins que... ?)

Mais franchement ça fait partie des trucs qui sont vraiment pas très utile pour la programmation que je fais habituellement.

Par contre j'ai voulu savoir si à partir de là on pouvait aussi identifier ce méchant UserForm ouvert... Cà n'a pas l'air 'livré' avec...

Il semble qu'il faille faire : 'You can use the UserForms collection to iterate through all loaded user forms in an application. It identifies an intrinsic global variable named UserForms. You can pass UserForms(index) to a function whose argument is specified as a UserForm class.' (Sorry je bosse en version américaine...)

Enfin le principal c'est que ça puisse répondre aux besoins de Val.

Merci donc Minick !

Sinon de la Duvel sans alcool, impossible c'est une bière naturelle en triple fermentation, et pas de la Buckler !!!

Et sinon (bis) non non José, juste une Buckler pour toi !!! lol

Bon Aprèm
[ol]@+Thierry[/ol]