Boucle sur commandbutton & userform à éviter
J0K068
Messages postés
32
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vais tenter d'explique mon problème, ci-joint mon fichier.
J'ai supprimé un plan correspondant à mon travail.
Userform1 est toujours actif et me sert de fenêtre de travail.
J'ai des commandbutton renomés lorsque là V1, V2, V3 etc etc etc et d'autres avec d'autres noms suivront lorsque j'aurais trouvé la solution à mon problème.
Lorsque je clic sur l'un d'entre eux, si ce dernier est vert alors il ouvre l'userform2 pour le mettre en rouge. S'il est à l'inverse rouge, il ouvre l'useform3 pour le mettre en vert.
Cependant à la fin de ce dernier, il réouvre automatiquement et celà sans fin l'userform2 pour le remettre en rouge.
Je ne trouve pas la solution à ce problème bloquant.
Je suis certain que c'est une petite erreur ....
Google déjà consulté bien entendu !
merci pour votre aide, je suis débutant en vba.
Ici : https://www.cjoint.com/c/GJmsXOdzSUY
--
Je vais tenter d'explique mon problème, ci-joint mon fichier.
J'ai supprimé un plan correspondant à mon travail.
Userform1 est toujours actif et me sert de fenêtre de travail.
J'ai des commandbutton renomés lorsque là V1, V2, V3 etc etc etc et d'autres avec d'autres noms suivront lorsque j'aurais trouvé la solution à mon problème.
Lorsque je clic sur l'un d'entre eux, si ce dernier est vert alors il ouvre l'userform2 pour le mettre en rouge. S'il est à l'inverse rouge, il ouvre l'useform3 pour le mettre en vert.
Cependant à la fin de ce dernier, il réouvre automatiquement et celà sans fin l'userform2 pour le remettre en rouge.
Je ne trouve pas la solution à ce problème bloquant.
Je suis certain que c'est une petite erreur ....
Google déjà consulté bien entendu !
merci pour votre aide, je suis débutant en vba.
Ici : https://www.cjoint.com/c/GJmsXOdzSUY
--
A voir également:
- Boucle sur commandbutton & userform à éviter
- Marques smartphone à éviter - Accueil - Guide téléphones
- Éviter pub youtube - Accueil - Streaming
- Liste des sites internet à éviter - Guide
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
- Tv orange chargement en boucle ✓ - Forum TV & Vidéo
8 réponses
Bonjour,
MonBout est le nom du Bouton pas un Control
Fichier modifie: https://www.cjoint.com/c/GJnfccqjOqf
MonBout est le nom du Bouton pas un Control
Fichier modifie: https://www.cjoint.com/c/GJnfccqjOqf
Salut f894009,
tout d'abord merci, je pensais que ce n'était pas grand chose.
J'ai vu les modifications pour l'appeler l'userform.
Tu as peut être vu d'autres erreurs dont je suis preneur, tant que ça ne ralenti pas ce dernier et que surtout ça facilite l'écriture des autres à venir ...
Tu as peut être remarqué que le multipage ne s'affichait pas correctement, mais aussi que si tu changes de pages, par moment il disparait ...
Tu aurais également la solution à ce problème éventuellement ?
Encore merci pour mon dépatouillage des commandbutton's....
--
tout d'abord merci, je pensais que ce n'était pas grand chose.
J'ai vu les modifications pour l'appeler l'userform.
Tu as peut être vu d'autres erreurs dont je suis preneur, tant que ça ne ralenti pas ce dernier et que surtout ça facilite l'écriture des autres à venir ...
Tu as peut être remarqué que le multipage ne s'affichait pas correctement, mais aussi que si tu changes de pages, par moment il disparait ...
Tu aurais également la solution à ce problème éventuellement ?
Encore merci pour mon dépatouillage des commandbutton's....
--
Un énorme merci !!!!!
C'est vraiment bien de maitriser ce qu'on veut faire, je vous envie très franchement ....
Personnellement pas le temps à tout ça, j'essai de faire des choses qui au final restent simple ....
[RESOLU]
--
C'est vraiment bien de maitriser ce qu'on veut faire, je vous envie très franchement ....
Personnellement pas le temps à tout ça, j'essai de faire des choses qui au final restent simple ....
[RESOLU]
--
Bonjour,
Je me permets de poursuivre ....
Dans ce que tu as modifié, je souhaite utiliser MonBout pour lancer une macro dont le nom serait associé ...
Je vais avoir tellement de commandbutton et de choses à réaliser qu'en fait je pense qu'organiser le travail par des macros c'est le plus simple ....
Là, le problème c'est que vu que je ne maitrise pas VBA, j'ai des soucis avec les IF et ce qui va avec, ça relis constament et refait les actions alors que je ne souhaite pas que ça se passe .... bref
Si je fais :
run monbout
Ceci me dont erreur d'execution 1004, impossible d'executer la macro 'V3' il est possible qu'elle ne soit pas disponible dans ce classeur .....
Bref, est ce que ça vient du fait que ce soit un objet ?
Merci
--
Je me permets de poursuivre ....
Dans ce que tu as modifié, je souhaite utiliser MonBout pour lancer une macro dont le nom serait associé ...
Je vais avoir tellement de commandbutton et de choses à réaliser qu'en fait je pense qu'organiser le travail par des macros c'est le plus simple ....
Là, le problème c'est que vu que je ne maitrise pas VBA, j'ai des soucis avec les IF et ce qui va avec, ça relis constament et refait les actions alors que je ne souhaite pas que ça se passe .... bref
Si je fais :
run monbout
Ceci me dont erreur d'execution 1004, impossible d'executer la macro 'V3' il est possible qu'elle ne soit pas disponible dans ce classeur .....
Bref, est ce que ça vient du fait que ce soit un objet ?
Merci
--
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bon j'ai enfin trouvé une autre solution, je passe par le commandbutton_click directement sauf que je dois renomer le call V3 en call Vanne3 .... Pas des soucis là dessus, un peu d'écriture mais rien de gênant ...
Merci (j'ai cherché toute la nuit et ce matin aussi d'où le post ! ;)
Bonne journée !
--
Merci (j'ai cherché toute la nuit et ce matin aussi d'où le post ! ;)
Bonne journée !
--
Voici le fichier modifié en version macro...
Il y a une macro qui vérifie certaines vannes ..... Vous verez la V4 et V5 et V6 fonctionne (sauf une ligne ajoutée si v4 alors ext sub sinon ça relancait un msgbox .... pas compris ...
J'ai mis la matinée à comprendre que j'avais une erreur ...
N'est il pas possible d'avoir une simplification dans tout ça ? Car j'ai mis toutes les possibilités à avoir pour lancer la chose .... ca risque d'etre compliqué en avancant dans ce projet, car le réseau : V2 V3 V5 V50 ca fait déjà beaucoup de possibilité ...
> si c'est rouge alors ça fait qq chose, si l'une d'elle n'est plus rouge alors ça fait autre chose ...
J'ai supprimé le plan car c'est un site à risque aux attentats ...
Merci
lien : https://www.cjoint.com/c/GJpoTIfUQjc
D'avance merci pour l'aide !!!
Il y a une macro qui vérifie certaines vannes ..... Vous verez la V4 et V5 et V6 fonctionne (sauf une ligne ajoutée si v4 alors ext sub sinon ça relancait un msgbox .... pas compris ...
J'ai mis la matinée à comprendre que j'avais une erreur ...
N'est il pas possible d'avoir une simplification dans tout ça ? Car j'ai mis toutes les possibilités à avoir pour lancer la chose .... ca risque d'etre compliqué en avancant dans ce projet, car le réseau : V2 V3 V5 V50 ca fait déjà beaucoup de possibilité ...
> si c'est rouge alors ça fait qq chose, si l'une d'elle n'est plus rouge alors ça fait autre chose ...
J'ai supprimé le plan car c'est un site à risque aux attentats ...
Merci
lien : https://www.cjoint.com/c/GJpoTIfUQjc
D'avance merci pour l'aide !!!
Re,
Le code pour les boutons vannes peut etre simplifie en utilisant un module de classe(top), mais sans module de classe peut aussi etre simplifie (moins top); Par contre vos equations etats de vannes(O/F) pourrait etre simplifiees en passant par des variables qui donnerait l'etats de groupes de vannes significatifs au lieu de tester systematiquement les x vannes considerees. You pige la chose ??
Pour cela il vous faut regarder les decoupages possibles, ecrire betement toutes les equations sur papier ou sur des lignes excel et voir les regroupements de vannes adéquoats et aussi ce simplifier purement les equations
Le code pour les boutons vannes peut etre simplifie en utilisant un module de classe(top), mais sans module de classe peut aussi etre simplifie (moins top); Par contre vos equations etats de vannes(O/F) pourrait etre simplifiees en passant par des variables qui donnerait l'etats de groupes de vannes significatifs au lieu de tester systematiquement les x vannes considerees. You pige la chose ??
Pour cela il vous faut regarder les decoupages possibles, ecrire betement toutes les equations sur papier ou sur des lignes excel et voir les regroupements de vannes adéquoats et aussi ce simplifier purement les equations
Désolé, troisième réponse qui ne s'affiche pas ... bon ! journée de m**** !
Après des recherches et une modif l'UF s'ouvre sur le 64 et 32 .... Cool ;)
Par contre erreur dans les deux versions sur votre code ... :
Une idée ? Je n'avais pas testé sans passer avant par la modif du 64/32 ....
Après des recherches et une modif l'UF s'ouvre sur le 64 et 32 .... Cool ;)
'ajouter l 'option zoom sur userform1
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Par contre erreur dans les deux versions sur votre code ... :
If Left(MonBout, 1) = "V" Then
Une idée ? Je n'avais pas testé sans passer avant par la modif du 64/32 ....
Bonjour,
teste si la premiere lettre a gauche de MonBout est egale a "V"
Quelle erreur avez vous?? Parce que chez moi y a pas d'erreur
Coabition 64/32 pour les API
If Left(MonBout, 1) = "V" Then
teste si la premiere lettre a gauche de MonBout est egale a "V"
Quelle erreur avez vous?? Parce que chez moi y a pas d'erreur
Coabition 64/32 pour les API
' --- DECLARATION API WINDOWS
#If VBA7 Then
Private Declare PtrSafe Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As LongPtr
#Else
Private Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long
#End If
Bon, le fichier ouvre bien l'UF mais pas toujours ... des fois les DLL sont manquantes et donc plante le fichier ...
La galère !
Je me dis qu'il faudrait quand même ajouter cette probabilité ... Je suppose que de plus en plus les ordinateurs passeront en 64 bits ...
Je sens que je vais galérer encore ! :(
En attendant, je ne sais pas si on peut se parler en privé, ça serait bien, j'avais une question à poser.
Merci
La galère !
Je me dis qu'il faudrait quand même ajouter cette probabilité ... Je suppose que de plus en plus les ordinateurs passeront en 64 bits ...
Je sens que je vais galérer encore ! :(
En attendant, je ne sais pas si on peut se parler en privé, ça serait bien, j'avais une question à poser.
Merci
J'ai bien trouvé cette cohabitation mais je le mets où ?
Où que je le mette ça ne fonctionne pas ...
MErci
Où que je le mette ça ne fonctionne pas ...
MErci
Bon :
C'est pénible de l'un à l'autre ça diffère :
Sur le PC du boulot VBA 7.0 ça fonctionne, j'ai trouvé pour la cohabitation, je l'ai mis dans thisworkbook.
J'ai modifié la partie zoom où il faisait des erreurs dès l'ouverture comme indiqué au 28 ème message.
Je confirme votre proposition fonctionne à merveille. MERCI !
Chez moi sur ce nouveau pc le code left n'est pas compris : l'erreur est projet ou bibliothèque introuvable.
Je ne comprends pas.
C'est pénible de l'un à l'autre ça diffère :
Sur le PC du boulot VBA 7.0 ça fonctionne, j'ai trouvé pour la cohabitation, je l'ai mis dans thisworkbook.
J'ai modifié la partie zoom où il faisait des erreurs dès l'ouverture comme indiqué au 28 ème message.
Je confirme votre proposition fonctionne à merveille. MERCI !
Chez moi sur ce nouveau pc le code left n'est pas compris : l'erreur est projet ou bibliothèque introuvable.
Je ne comprends pas.