Passage entre plusieurs Dialogsheets - fermer un DialogsheetsRésolu

Question

Bonjour, Voilà quelques jours que je m'arrache les cheveux sur une chose qui peux paraitre facile, mais après de nombreuses recherches et de site différentes je n'arrive pas à trouver la solution. J'ai concrètement besoin de votre aide... Problématique : Sur Excel 2003, langage VBA Je travaille sur différents formulaires (type Boite de dialogue Microsoft Excel 5.0) J'ai 2 boites de dialogues que l'on nommera pour l'exemple "Dialogue1" et "Dialogue2" Représentant respectivement l'onglet "Dialogue1" et "Dialogue2" Afin d’empêcher l'ouverture de la boite de dialogue "Dialogue1" 2 fois je lui donne la condition suivante: - Ouverture de la boite de dialogue "Dialogue1" l'onglet actif est différent de "Dialogue1" - Ouverture de la boite de dialogue "Dialogue2" l'onglet actif est différent de "Dialogue2" Ainsi je n'ouvrirais pas une deuxième fois la même boite de dialogue est provoquerai une erreure Voici les codes que j'y ai intégré: une touche pour afficher la boite de dialogue "Dialogue1" [i]Sub Ouvrirdialoog1() nomOnglet = ActiveSheet.Name If nomOnglet <> "Dialogue1" Then DialogSheets("Dialogue1").Show End If End Sub/i une touche pour afficher la boite de dialogue "Dialogue2" [i]Sub Ouvrirdialoog2() nomOnglet = ActiveSheet.Name If nomOnglet <> "Dialogue2" Then DialogSheets("Dialogue2").Show End If End Sub /i [b]A partir de la la problématique c'est que les boites de dialogues se superposes et le truc est que j'aimerai que l'un écrase l'autre. En clair Dialogue1 ouvert => dialogue 2 fermer SI OUVERT Dialog2 ouvert => Dialogue 1 fermer SI OUVERT/b En bonus : [i]Sub Fermerdialoog1() nomOnglet = ActiveSheet.Name If nomOnglet <> "Dialogue1" Then Application.DialogSheets("Dialogue1").Hide End If End Sub Sub Fermerdialoog2() nomOnglet = ActiveSheet.Name If nomOnglet <> "Dialogue2" Then Application.DialogSheets("Dialogue2").Hide End If End Sub/i Bizarrement cela me ferme les deux en même temps alors que je précise bien la boite à masquer ou fermer, pourquoi? Merci d'avance pour votre temps de lecture et vos propositions Merci PS: N'hésiter pas à me contacter si je n'ai pas été suffisamment clair

ucfoutu · Accepted Answer

A demain garanti, car j'ai terminé.
Il va par contre falloir que je rédige de quoi te permettre d'en faire rigoureusement autant de ton côté === >> exemple sur projet tout neuf

deux feuilles :
Une feuille nommée Feuil1
Une Feuille nommée Feuil2
deux boîtes dialogsheets
Une boite Dialogue1
Une boîte Dialogue2

Dans la boite Dialogue1 : 
- Un bouton de commande (je me fiche de son nom) auquel tu affecte la macro  toto1 
- un bouton de commande (je me fiche de son nom) auquel tu affectes la macro termine

Dans la boite Dialogue2 : 
- Un bouton de commande (je me fiche de son nom) auquel tu affecte la macro toto2
- un bouton de commande (je me fiche de son nom) auquel tu affectes la macro termine

Dialogue1 est pour correspondre à Feuil1
Dialogue2 est pour correspondre à Feuil2
donne à tous ces boutons le texte explicite de ton choix (en sachant que le bouton termine est là pour tout arrêter au besoin)

Dans le module des macros (Module1, donc) :
Public fini As Boolean
Sub toto1()
 SendKeys "{ESC}"
 Sheets("Feuil2").Activate
End Sub
Sub toto2()
 SendKeys "{ESC}"
 Sheets("Feuil1").Activate
End Sub
Sub termine()
 fini  = True
End Sub
Public Sub allonsy()
  DialogSheets(Replace(ActiveSheet.Name, ("Feuil"), "Dialogue")).Show
 If Not fini Then
   Application.OnTime Now + TimeValue("00:00:01"), "allonsy"
 End If
End Sub
Ayé ?
Bon !
Dans l'évènement WorkBook_Open :
Private Sub Workbook_Open()
  toto2
  Application.OnTime Now + TimeValue("00:00:01"), "allonsy"
End Sub

Du condensé acrobatique, comme tu vois

Enregistre ===>> quitte ===>> relance
Dans chaque boite (tes 2 boutons rajoutés) : un bouton bascule à la fois sur l'autre feuille et sur sa boîte associée
l'autre bouton stoppe la machine infernale et tu peux ensuite quitter le classeur 
Je l'ai ainsi fait pour que tu puisses regarder. Rien n'empêche ensuite, si tu le préfères :
- tant de rendre totalement invisibles les feuilles de calcul elle-mêmes
que
- de carrément quitter le classeur (en sauvegardant ou non, selon ton choix) à partir du bouton "terminer" de l'une des deux boîtes.
Mais c'est là un aspect fort secondaire bien facile à traiter

Essaye et parle-m'en.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Bonjour,
1) un onglet n'est jamais qu'une manière de pointer vers une feuille.
Un onglet n'est pas une feuille
2) qu'entends-tu donc exactement par "écraser" ? Pour moi, si une feuille en écrase une autre, elle substitue toutes ses cellules à celles de l'autre !
2) J'ai 2 boites de dialogues que l'on nommera pour l'exemple "Dialogue1" et "Dialogue2"
une feuille toute entière pour une seule boîte chacune ?  
3) si tu ne veux pas de superposition possible : cache une pendant que tu montres l'autre (c'est évident) !
4) pour ton "bonus", encore faudrait-il savoir depuis quoi et comment tu appelles ces deux procédures !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Alors je réexplique différemment

J'ai un fichier Excel.
J'ai une feuille (ex:Feuil1)
C'est une feuille tout ce qu'il y a de plus banal
J'ai deux autres feuilles (ex:Dialogue1 et Dialogue2)
On la trouve en faisant Click droit sur le nom d'une feuille et insérer Boite de dialogue Microsoft Excel 5.0

Comme je le disais les deux feuilles Dialogue1 et Dialogue2 sont utilisés comme des formulaires
afin de remplir les informations saisis dans la feuille "Feuil1"
Une macro permet de visualiser sous forme d'une boite de dialogue la feuille Dialogue1 via le code suivant:
DialogSheets("Dialogue1").Show et pour la feuille Dialogue2 DialogSheets("Dialogue2").Show

Dans chacune de ces boites de dialogue un bouton renvoie à l'autre fenêtre...
Donc à un moment donné j'ai les 2 dialogsheets.show
En résumé : Dialogue1.show et Dialogue2.show

Problématique : Lorsque je veux revenir de Dialogue2.show vers Dialogue1.show, il ne veux pas car je pense le Dialogue1 est déjà ouvert

La solution est je pense est qu'il me ferme le Dialogue actif ( car ici je reprend 2 Dialogues mais dans mon projet il y en aura 8) et ouvre le Dialogue voulue afin de ne jamais me retrouver à demander à ouvrir une boite de dialogue déjà ouverte

Merci de ton aide

Si c'est pas clair je veux bien réessayer

ucfoutu · Answer

Et je pense t'avoir déjà répondu.
Masque donc tes deux onglets Dialogue1 et Dialogue2

genre :

Private Sub Worksheet_Activate() ' ===>> ou l'évènement open de ton classeur, par exemple
 DialogSheets("Dialogue1").Visible = False
 DialogSheets("Dialogue2").Visible = False
End Sub


Private Sub CommandButton1_Click()
  DialogSheets("Dialogue1").Show
End Sub

Private Sub CommandButton2_Click()
  DialogSheets("Dialogue2").Show
End Sub


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Je dois être trop naze...
Je n'y arrive pas,
Voici les essais que j'ai effectué :
Pour ce qui est de 
"Private Sub Worksheet_Activate() ' ===>> ou l'évènement open de ton classeur, par exemple
 DialogSheets("Dialogue1").Visible = False
 DialogSheets("Dialogue2").Visible = False
End Sub"
Je l'ai placé dans This Workbook même s'il n'a pas l'air de fonctionner

Une précision que j'ai omis :
Les boutons ne se trouve pas dans la Feuille "Feuil1" mais dans chaque boite de dialogue
2 Boutons dans le Dialogue1 (1 qui ouvre Dialogue 2 et l'autre qui ne fait que confirmer l'ouverture de Dialogue1)
2 Boutons dans le Dialogue2 (1 qui ouvre Dialogue 1 et l'autre qui ne fait que confirmer l'ouverture de Dialogue2)
Alors lorsque je veux attribuer un code au bouton les private sub n'apparaisse pas...

De plus le code "DialogSheets("Dialogue1").Visible False" masque la Feuille Dialogue1 du classeur mais pas la boite de dialogue ouvert part Dialogue1.show

la problématique est peut être aussi lié au vocabulaire...
Donc dans DialogSheets("Dialogue1").show
on a Sheets qui veux dire fenêtre, dialoguesheets ouvre la boite de dialogue nommé "Dialogue1" qui me sert de formulaire de saisi (qui apparait devant mon fichier excel un peu comme un msgbox. Lorsque je saisi dans ma boite de dialogue il apparait en même temps dans "feuille Dialogue1".
Le truc est que "DialogSheets("Dialogue1").Visible = False" agit sur la feuille "Dialogue1" et non la boite de Dialogue "Dialogue1"

J'espère être clair
Désolé d'abuser de ton temps

Kalagane75 · Answer

Un complément
La boite de dialogue "Dialogue1 reste ouvert malgré le fait que toutes les feuilles soit masqué or mi la feuille "Feuil1"

ucfoutu · Answer

Attends, là :
Réalises-tu qu'une boîte de dialogue est modale et ne saurait se fermer autrement que par les boutons OK ou Annuler ou la croix de fermeture ?
Ce ne saurait être un autre bouton que tu y aurais inséré qui la fermerait
Peux-tu nous exposer le but assez étrange de ces deux boites de dialogue que tu veux traiter comme des userforms non modaux, au bout du compte ?





____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Pour que tout soit bien clair dans ton esprit :
Les boîtes de dialogues ont une vocation très particulière. Elles sont modales et donc assurent une contrainte
Toute boîte de dialogue doit être fermée si l'on veut accomplir d'autres tâches dans l'appli. Elle ne peut l'être que par les boutons prévus à cet effet sur la boîte (les 2 signalés dans ton cas) ou par la croix de fermeture.
Les boîtes qui t'intéressent peuvent être complétées par toi (ajout de labels, boutons, etc ...) Les contrôles ainsi ajoutés aux objets de la collection DialogSheets ne peuvent être des composants activex, mais uniquement des contrôles Excel. Ces contrôles peuvent être assortis d'une macro définie par toi (on y accède non en double-cliquant, mais par clic droit ===>> Affecter une macro), mais en aucun cas les macros qui les accompagnent peuvent recevoir du code destiné à fermer la boîte elle-même.
Il t'est possible de construire une usine à gaz et d'utiliser SendKeys pour simuler le click sur le bouton Annuler ou sur le bouton OK, ce qui aura pour effet de fermer la boîte. Je te déconseille très vivement une telle méthode. Si tu veux toutefois te lancer dans cette folle direction en dépit de ce que je te dis-là, il te suffit "d'envoyer" la touche ENTER et celui des deux boutons (OK ou Annuler) ayant le focus sera considéré comme cliqué. J'appelle à ce sujet ton attention sur le fait que les boîtes de dialogue du type qui t'intéresse te permettent, en mode création, de choisir l'ordre de tabulation des contrôles qu'elles contient, y compris de ses propres boutons.
Voilà pour ce qui est de l'essentiel.
J'attends ta réponse à la question que je t'ai posée dans mon message précédent pour éventuellement t'orienter vers une voie plus adaptée.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Pour ne rien te cacher, j'ai pensé ce matin, en prenant mon petit déjeuner, à la raison qui pouvait te conduire à la recherche d'un tel mécanisme.
Je n'en ai trouvé qu'une jusqu'à présent : assortir chaque feuille de ton classeur d'une "boîte" différente selon la feuille en cours. Et je ne serais pas étonné d'apprendre que tu as en réalité prévu plus des deux boîtes dont tu nous parles. Et cette "boite-pour-feuille x" s'afficherait spontanément à chaque activation d'une feuille x. Elle devrait pouvoir être fermée, soit sur intervention de l'utilisateur, soit au passage à une autre feuille (qui afficherait alors la sienne).
Si c'est bien là le fond de ta pensée : dis-le. Et tu n'auras besoin que d'un seul Userform, contenant toutes tes "boîtes", une seule d'entre elles (celle adaptée à la feuille en cours) n'étant affichée lors de l'activation d'une feuille. Et il s'agirait alors là d'un mécanisme très simple à mettre en oeuvre.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Bonjour,
Ce que j'ai voulu faire, c'est creé un interface pour tous les utilisateurs du fichier.
Afin d'eviter que les utilisateurs saisissent en dehors ou modifie... Je me suis dit la meilleurs solution est de creer une interface plutot que de travailler dans une feuille excel.
Les informations sont repris dans des editbox,case a cocher....

Au debut j'utilisai un userform,j'etais limité 
Car je ne pouvaius y mettre des formes type cercle ou rectangle...

Alors je travaille principalement sur ces dialogsheets.
Chaque pages reprenne un certain nombre d'information(par theme) qui sont retransmis dans une feuille excel...

Puisque les dialogsheets sont en mode ".show", les utilisateurs ne voient pas le fichier excel et donc l'ensemble des feuilles qui la compose.
Pour complement,j'ai betement supprimer les touches ok et annuler qu'il me proposait sur chaque dialogsheets.

Pour finir sur mon idee:
l'utilisateur ouvre le fichier excel
Cela ouvre automatiquement la boite de dialogue numero1
L'utilisateur saisi ces donnees
L'utilisateur passe via une macro au dialoguesheets2
L'utilisateur saisi ces donnees
L'utilisateur passe via une macro au dialoguesheets3
Etc
Si toutefois il manque une info il pourrait revenir au dialogsheets2.

L'idee est dessiné, 
Peut etre ouvrir toutes les boites de dialogue .show dès l'ouveture et une macro qui permettrai de basculer entre boite de dialogue. Un peu comme si on le mettais au premier plan
Ou alors provoquer la fermeture du dialogsheets en cours un peu comme la fonction annuler et ouvrir une autre boite de dialogue...

Mais si tu vois une autre solution...

Merci encore pour ton aide

ucfoutu · Answer

La seule solution existante est farfelue et je te l'ai dite (fermer en utilisant sendkeys) et encore : 
1) à la seule condition de ne déclencher aucune autre action ni avoir besoin de garder les données éventuellement saisies dans ta boîte !
2) ne fermera rien si l'utilisateur a donné le focus à l'un de tes contrôles à toi (insérs dans la boîte)
Mon seul conseil (mais c'est ton appli) : abandonne une telle démarche (celle de telles boîtes, qui ne sont pas destinées à cela) 



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Et tu utiliserais qu'elle methode afin de créer une interface de saisie type formulaire d'access sauf que nous n'avons pas acces sur le site ou j'en ai besoin.

ucfoutu · Answer

Je n'en vois pas d'autres que celle dont tu dis ne pas vouloir : UserForm !
Je crains que tu ne tournes en rond, à vouloir  chercher l'inexistant.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et je viens de revérifier :
Tant qu'est ouverte l'une quelconque des 2 boites (modales, je le répète) Tu n'as la main sur rien d'autre que sur cette boîte. Et tu ne peux la fermer que par son bouton OK, son bouton Annuler ou s petite croix (et d'aucune autre manière, y compris depuis son propre code, dans un bouton rajouté), sauf à simuler (sendkeys) l'appui d'une touche.
Alors je te le dis de suite :
1) je viens de voir que la touche ESCAPE permettait de quitter une boîte de dialogue
2) je pense donc avoir une solution avec l'envoi de cette touche

3) je désapprouve toutefois totalement, insiste sur ce point et ne continuerais à "mettre en oeuvre" que si tu insistes vraiment (et vraiment fortement).
Je tiens par ailleurs à te dire que Sendkeys ne fonctionnerait, au delà de XP, qu'en désactivant l'UAC !

Je te laisse donc seul responsable de la décision que tu vas prendre et de ses conséquences éventuelles.
A toi de me dire, maintenant, le degré de ton insistance et de ta motivation. 




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et pour t'aider à prendre ta décision en meilleure connaissance de cause :
Je viens de commencer à me frotter à l'usine à gaz que tu veux construire ===>>
Mon idée de ESC était bonne, mais insuffisante ===>> il faut (ce que j'ai fait) y ajouter d'autres acrobaties en tous genres. Je te promets qu'une fois toutes les acrobaties bien "arrêtées", même toi n'y retrouveras plus tes petits sans un énorme mal au crâne en cas de maintenance à assurer moins d'un mois après 

Alors : réfléchis mille fois, hein ...


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Je vais essaye ce soir l'idee des Userforms.
LE truc c'est que j'avais quasiment déjà fait tout mes boites de dialogue avec des dizaines et dizaines page de code par boite de dialogues,d'ou mon insistante.
Avec des dessins que je ne peux faire apparaître dans un userform puisque je n'ai pas acces a la boite outil dessin dans l'userform.
Ayant quasi fini il me redtait cette etape...

Enfin si c'est vraiment compliquê avec 2 boites de dialogue, alors avec 8 ou 10 déjà completé...et liee a ma feuille receuillant toute les saisies...

Honnetement si tu as la solution, je veux bien essyé avant de faire abstraction de toutes les heures passèes et repartir sur de nouvelles.

Merci et desolé pour mon insistance

Kalagane75 · Answer

Au fait, une idée peux mettre au premier plan un dialoguesheet vis à vie de l'autre
Admettons que l'on ouvre l'ensemble des dialogsheets, puis on met au premier plan celui que l'on souhaite...

Sendkeys"{ENTER}",true vaux bien Ok n'est ce pas

ucfoutu · Answer

Non True ne vaut pas OK ! Ce n'est que le paramètre d'attende du Sendkeys, et rien d'autre !
Où en suis-je ?
Je passe à l'aise de feuil1 (avec sa boite) à Feuil (avec sa boite)
Mais je découvre un nouvel os : impossible de revenir sur Feuil1 avec sa boite. Je peux y revenir, mais sans boîte.
Je bataille pour combattre ce nouvel obstacle inattendu !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Je viens de voir pourquoi (lenteurs de Excel) mais le remède m'échappe encore (plus pour longtemps car je suis - c'est ma nature et je n'ai pas le choix - plus têtu que le mal).
Ce que je sais déjà faire : y parvenir dès que l'on change de cellule sélectionnée sur une feuille ===>> et ça marche, mais non élégant.
Je pense donc déjà à un autre stratagème (mais ce sera une acrobatie de plus) !)
A demain, donc.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Je continue aussi, je lâche rien...
en pas à pas ça avance mais lors de la mise en route de la macro ça marche plus voir bug du fichier. ctrl+alt+supp et on recommence autrement.
J'essai ave setFocus ou SetWindowPos.... Bon courage

et merci encore

ucfoutu · Answer

Oublie  le setfocus. Oublie également le SetXindowpos. Comment et depuis quoi (puisqu'en modal, pourrais-tu le faire ?). Kif-Kif avec ShowWindow, etc ... arrête de chercher dans cette direction, puisque tu n'as pas la main pour y parvenir.
Et en admettant d'ailleurs même (bien qu'impossible pour les raison exposées) que tu "planquerais" la fenêtre là où personne ne la verrait ===>> tu n'aurais pas pour autant "la main" (puisque modale), et ce : nulle part .
Je serai là demain (je suis plus agile de bon matin).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

merci,
à demain

ucfoutu · Answer

et tu auras compris qu'on peut ainsi rajouter autant de boites que l'on veut à raison d'une boîte par classeur et d'une macro totox par boîte, hein.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Impressionnant,
afin de comprendre ta méthode, car la solution est une chose mais pour apprendre il faut comprendre.

Si j'ai bien capté tu as créé une boucle infini...

A l'ouverture du fichier
Tu lui demande d'ouvrir la feuil1 et 1 seconde après de lancer l'application "Allons y"

L'application "Allons y" lance toutes les secondes le dialogsheet sous le même numéro de la feuille sélectionné
Fini étant un élément extérieur, tant que je ne lui ai pas donné le statut "Faux" via la macro "Terminé" la boucle continue.

A chaque fois que je lance Toto 1 ou 2 , il me ferme le Toto en cours et ouvre à nouveau via "Allons-y" le dialogue avec le numéro de la feuille activé a travers la macro.

Effectivement tu t'es bien creusé la tête et pas qu'un peu...

Pour info: 
  - moins que ("00:00:01") j'imagine qu'en langage VBA ça n'existe pas?
Pour traduction:
  - DialogSheets(Replace(ActiveSheet.Name, ("Feuil"), "Dialogue")).Show
Replacer quoi ? - J'ai bien capter qu'ActiveSheet.Name donné le nom de la feuil soit feuil1 par exemple mais pourquoi derrière la virgule Feuil à nouveaux et Dialogue.
  - Fini est un élément préalablement défini sur VBA équivalent à End ?

Merci, merci encore
et à demain...

ucfoutu · Answer

Eh bien nous y voilà de bon matin. Et il fait très froid (-7 dans le pays basque !)

Ne te laisse jamais impressionner !
Le code n'est en soi rien. Il n'y a que ce qu'il traduit de la pensée qui peut étonner. La pensée elle-même, dans cette affaire, n'est pas pure car le résultat empirique de découvertes de mécanismes/barrières qui lui échappaient et auxquels elle a du s'adapter. C'est tout !

Alors :
- oui le mécanisme est grosso-modo celui que tu as décrit
- fini n'est pas un mot VB (pas plus que mes toto ). Ce n'st que le nom que j'ai donné à une variable publique booléenne, nom que tu peux, si tu le veux, changer pour bachibouzouk (si tu aimes Tintin).
- DialogSheets(Replace(ActiveSheet.Name, ("Feuil"), "Dialogue")).Show  ===>>
Replace n'est qu'une fonction de VBA. Replace, en anglais, ne signifie pas replacer, mais remplacer. Nous remplaçons ici tout simplement, dans la chaine "Feuil2" par exemple, la sous-chaine "Feuil" par "Dialogue" ==>> et ainsi "Feuil1" devient "Dialogue1", qui est le nom de la boîte dialogsheet que nous devons ouvrir par Show.
- le chrono "OnRime", maintenant : sa mise en oeuvre a été nécessaire pour les deux raisons suivantes :
------ SendKeys, dont je t'ai déjà dit le mal que j'en pensais peut avoir des effets irréguliers et parfois inattendus ('notamment lorsqu'il ne sait plus vraiment qui il doit frapper).
------ Sendkeys peut ainsi "frapper" non la boîte en cours, mais celle dont on demande l'ouverture. Il convient alors (lorsque cela arrive) de remettre les choses en ordre, ce que fait Allons_y. Sans cette imperfection de Sendkeys, il aurait suffit de donner les instructions d'ouverture de la boîte suivante dans l'évènement Activate des feuilles.
------ Et Allons_y, lancé périodiquement, permet de palier la gêne qu'occasionnerait l'utilisateur en fermant lui-même la boîte. Allons_y joue donc un double rôle, dont celui d'un gendarme.*
------ l'horlohe OnTime de VBA ne peut avoir un battement de moins de 1 seconde. On peut par contre la remplacer par des fonctions de l'Api de Windows et "descendre" ainsi jusqu'à la milliseconde (mais serait-ce vraiment utile ?).
=================================================================================

Il faut que tu comprennes maintenant que je n'ai mis en oeuvre (en dépit de ma réprobation) ce mécanisme que dans l'ignorance pour l'instant presque totale des tenants et aboutissants.
- Que vont contenir ces dialogsheets (en dehors des 2 boutons que nous avons créés ?)
- ces boîtes étant modales, tu ne peux cliquer valablement nulle part tant qu'elles sont actives. Dans mon code, j'ai "figé" les passages d'une feuille à l'autre pour déterminer le mécanisme à mettre en oeuvre et en tester la justesse. Il y a beaucoup mieux à faire si, dans chacune des boîtes, tu permets à l'utilisateur de choisir (dans une liste déroulante) la feuille à traiter. Mais c'est un point que j'ignore encore des tenants et aboutissants qui sont les tiens.
- parlons du bouton "terminer". Sa macro peut être écrite de manière un peu plus élargie. On pourrait par exemple très facilement l'affubler d'un mot de passe et, selon qu'il a ou non été donné, permettre d'interrompre et d'accéder aux feuilles et aux macros de l'appli, ou au contraire obligerait à quitter sans rien pouvoir faire d'autre que sauvegarder ou non.
Etc ...
Tu vois ? Les aspects possibles sont divers et variés et peuvent même inclure la protection.
Je n'irai plus finement et plus loin que lorsque je saurai tout cela


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Bonjour,

Les Dialogsheets sont constitués d'un bon nombre de case à cocher, EditBox, ListBox et image?
Tous ces éléments de saisi, ou choix de chaque boite de dialogue sont repris à travers l'interface sur une feuille Excel sous forme de base de données?

Cette interface joue le même rôle qu'un formulaire dans accès.
N'ayant pas Access, ni moi ou mes collègues, je n'ai le choix que sur VBA d'Excel.
 
Pour le Bouton Terminer je pourrai le nommé Administrateur avec un mot de passe afin de pourvoir travailler dessus par la suite et empêcher un utilisateur de jouer dedans.
Il faut que j'étudie la question car je ne l'ai jamais fait.

Pour l'horloge On Time de VBA, descendre à 1 milliseconde n'est pas primordiale dans l'absolue, le plus important est que ça marche?
C'était plus pour un confort visuel, ce que je veux dire c'est que je voulais que ça se rapproche de l'exemple suivant qui reflète pas mal ce que je voulais faire :
Comme l'installation d'un logiciel, je m?explique : on installe, jusque là tout va bien.
Et là la méthode m?intéresse, on click sur suivant avec tout les choix voulue, suivant etc.? et parfois précédent si nécessaire (ex : modifier le disque dur pour l'installation.)
Le cadre semble rester statique, et son contenue change à chaque click.
J'imagine bien que ce n'est pas fait à partir de VBA mais d'un truc bien plus poussé.

Où alors tout dans un Dialogsheets, sous forme de calque reprenant chaque thème, que l'on pourrait rendre visible ou invisible selon le besoin.
Visible = accès par la même occasion
Invisible = Interdit d'accès par la même occasion
Je ne sais pas, c'est une idée peut être plus simple.

Je ne sais pas si remplacer les boutons par des rectangles (dessins) aiderait ou ferait la différence?

Merci encore

ucfoutu · Answer

Mais alors : si pour passer d'une feuille/dialogsheet à l'autre  il y a mieux à faire (puisque l'on connait d'avance, dans ce cas, le nom de la feuille/boite suivante ou précédente).
Et de plus : ne s'agirait-il donc, en outre, que d'afficher ces boites de dialogue sans interférence avec des feuilles de calcul de ton appli ?
Précise ces aspects, qui peuvent changer encore beaucoup de choses (et de manière plus agréable)!


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Kalagane75 · Answer

Oui je l'ai connais d'avance puisqu'elles sont déjà toute faite,
Pour notre exemple 3 feuille/Dialogsheets nommées respectivement :
Dialogue1
Dialogue2
Dialogue3
au delà de ça j'ai une feuille de calcule qui me sert de base de données reprenant via des macro interne à chaque élément se trouvant dans chaque feuille/Dialogsheets 

Pour que les macros de chaque élément fonctionne, la feuille/Dialogsheets correspondant à l'objet doit être ouvert car j'utilise peut être à tort le code suivant :
Sheets ("XXXX").activate
Shapes ("List Box 4").Select
A1 = selection.characters.text
Si je ne sélectionnais pas la feuille, il ne me trouvait pas l'objet...

En gros: je saisi dans un EditBox une valeur par exemple, je le valide et l'info est incrémenté dans ma saisie. Et ainsi de suite dans tout les EditBox...
Ensuite je passe au Dialogsheets suivant, et rebelote...

Si ça te parais plus clair

Kalagane75 · Answer

par saisie je veux dire Base de données

Kalagane75 · Answer

Au fait pour rendre le truc plus réactif...

Dans le code suivant :
..."Public Sub allonsy()
  DialogSheets(Replace(ActiveSheet.Name, ("Feuil"), "Dialogue")).Show
 If Not fini Then
   Application.OnTime Now + TimeValue("00:00:01"), "allonsy"
 End If
End Sub
...
Private Sub Workbook_Open()
  toto2
  Application.OnTime Now + TimeValue("00:00:01"), "allonsy"
End Sub"...

J'ai modifié "...Now + TimeValue("00:00:01"), "... par "...Now + TimeValue("00:00:01")/1000, "...

Avec ça c'est pas parfait mais on y est presque dans l'instantané.
Pour ce qui est de l'Api de Windows avec Timer, je pars de Zéro, alors je continue à essayé de comprendre.

Bonne soirée

Passage entre plusieurs Dialogsheets - fermer un Dialogsheets

30 réponses

Votre réponse