Continuer l'éxécution d'un script après un clique de sourie.

Version imprimable

17/05/2019, 09h21
valery.petit

Continuer l'éxécution d'un script après un clique de sourie.

Bonjour,

J'aimerai exécuter un code qui se mettrai en pause à la fin d'une première action, le temps que je clique sur la cellule où je veux écrire le résultat final.

en gros ça donne:
je lance le script > "Action 1" > clique sur une cellule > "Action 2"

Je n'ai pas trouvé d’exemple sur google.....

Du coup si l'un d'entre vous peut me faire profiter de ses lumières ;-)

Merci d'avance et bonne journée à vous.
17/05/2019, 09h35
Trystan441

Bonjour,

Je te laisse consulter le site suivant :

Utilisation de "Inputbox"

Il va t'expliquer comment, à l'aide de InputBox, demander à l'utilisateur de saisir une cellule ou une plage de cellule

Si tu as des questions n'hésites pas,

Bonne journée,
17/05/2019, 10h57
valery.petit

Bonjour Trystan441

ça n'est pas tout à fais ce que j’espérai,
j'ai modifié mon explication au dessus.

c'est une genre de "Application.Wait" qui se débloquerai sur un clique plutôt que sur un temps.
17/05/2019, 11h34
Trystan441

J'ai l'impression de ne pas saisir ce dont tu as besoin ?

Dis moi si je me trompe. Tu cherches à pointer une cellule pour lui dire d'écrire le résultat dans celle-ci.

Si c'est le cas, alors je te réinvite à suivre le lien que je t'ai envoyé et de lire la partie : Exemple2 :Saisir une adresse de champ

bonsoir
c'est un jeu dangereux interrompre une macro

mais si tu y tien
voici un exemple avec des cellule numérique
le calcul se fait au 2d double click sur une cellule

dans le module de la feuille concernée
Code:

1 2 3 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) clique2fois End Sub
dans un module standard
Code:

1 2 3 4 5 6 7 8 9 Dim clic As Long Sub clique2fois() Static res As Long If clic = 0 Then clic = 1 Else clic = 2 If clic = 1 Then res = ActiveCell.Value Else res = res + ActiveCell.Value If clic = 1 Then Exit Sub MsgBox res If clic = 2 Then clic = 0 End Sub
toute les deux fois tu aura le message avec le résultat de l'adition des deux cellule doublecliquées

17/05/2019, 20h15
unparia

Bonjour

Citation:

en gros ça donne:
je lance le script > "Action 1" > clique sur une cellule > "Action 2"

n'est pas totalement clair.
Qu'est Action 1 ? Une macro ou autre ? Si macro : comment est-elle exécutée (par une procédure ? manuellement ? ) ?
Quel est le code depuis sa déclaration jusqu'à End Sub inclus ?
Impossible de te répondre avec précision sans ces précisions.
17/05/2019, 22h02
Pierre Fauconnier

Salut.

Citation:

Envoyé par patricktoulon

bonsoir
c'est un jeu dangereux interrompre une macro[...]

Je ne vois pas trop en quoi "c'est dangereux" (ça mord, ça explose à la figure? ;) ) et en plus, ça ne veut pas dire grand chose, dans la mesure où il n'est pas possible d'interrompre l'exécution d'une macro (sauf point d'arrêt, physique ou par Debug.Assert pour du débogage). En plus, il faut s'entendre sur le terme "macro"... Je préfèrerais procédure, fonction, propriété. (mais ok, je pinaille peut-être un peu).

Soit la macro attend une saisie de l'utilisateur et la solution InputBox de Tristan est nickel, mais ça n'interrompt pas la macro, elle se déroule normalement et attend simplement une saisie dans un inputbox. Soit on met un Wait mais ça n'interrompt pas la macro, ça la suspend le temps du wait...

Soit le code est scindé en deux procédures distinctes, la seconde étant éventuellement déclenchée par une action de l'utilisateur. Mais là encore, il n'y a pas d'interruption de la "macro"... puisqu'il y a deux "macro" ;)

Valery.petit: Pourrais-tu nous dire si tu as essayé la solution de Tristan et en quoi elle ne te satisfait pas?
18/05/2019, 02h22
clementmarcotte

Bonjour,

Je ne suis sûrement pas au même diapason que vous. Parce que moi, j'en suis encore à pourquoi ?

Parce que, sauf pour vérifier que la première partie s'est bien déroulée, je n'en vois absolument pas l'intérêt.

Ou bien la première partie a un effet de débordement sur d'autres plages, ou d'autres feuilles. Et là, je me demande si cela vaut la peine, de laisser tourner une macro dans le beurre ?

Parce que tant qu'à cliquer quand même, deux macros séparées cela revient à la même chose.

Ou bien, même si je ne suis pas sur que ce soit la meilleure solution; tu peux toujours essayer de remplacer l'InputBox par un contrôle RefEdit. Mais, cela me semble être un abus de ressources.
18/05/2019, 08h01
Pierre Fauconnier

Citation:

Envoyé par clementmarcotte

[...]

Parce que tant qu'à cliquer quand même, deux macros séparées cela revient à la même chose.[...]

Pour moi, cela ne revient pas au même. Si on place un inputbox ou un refedit (ne parlons pas ici de ressources, dans 99% des cas, on s'en fout un peu), on permet à l'utilisateur de saisir une info puis l'exécution continue. Si on scinde en deux procédures distinctes, rien ne dit, après la première, que l'utilisateur fera ce qui doit être fait pour lancer la seconde.

Je pense donc qu'il est intéressant que le demandeur précise sa demande et en quoi la solution de l'inputbox ne convient pas. Sans cela, on théorise dans le vide, à mon avis.
18/05/2019, 11h15
unparia

Citation:

Si on scinde en deux procédures distinctes, rien ne dit, après la première, que l'utilisateur fera ce qui doit être fait pour lancer la seconde.

Rien ne dit non plus que l'utilisateur serait à forcer dans la "retenue" d'un résultat et son inscription dans une cellule.

Ce qui interpelle et fait nécessairement penser à une décision purement humaine dont on ne connaît pas le contexte et la justification (jeu ? autre ? ...):

Citation:

J'aimerai exécuter un code qui se mettrai en pause à la fin d'une première action, le temps que je clique sur la cellule où je veux écrire le résultat final.

J'attends donc la réponse aux questions que j'ai posées plus haut

Bonjour valery.petit,

Citation:

J'aimerai exécuter un code qui se mettrai en pause à la fin d'une première action, le temps que je clique sur la cellule où je veux écrire le résultat final.

Exemple d'une action
- Copier une valeur d'une cellule à une autre est une action
- Donner le résultat à une variable par multiplication est un action : x = 3,14 * Range("A2").Value

~~Bien sur ton code sera une action ou une suite d'actions =>~~

Citation:

"J'aimerai exécuter un code qui se mettrai en pause à la fin d'une première action …"

Citation:

…, le temps que je clique sur la cellule où je veux écrire le résultat final.

• ce qui veut dire que tu cherches à indiquer dans quel cellule le résultat final sera écrit
dans ce cas là on a bien à faire à : Application.InputBox - on t a donc bien indiquer la solution à prendre
une fois l'adresse de la cellule définit par le clic puis valider, on enverra donc encore une action ou une suites d'actions finalisant le processus

Application.InputBox :
Les paramètres :
Application.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)
tous les paramètres ne sont pas forcément nécessaires, tu peux utiliser ce mis en rouge, les 2 1er donnant des informations, le dernier précisant le type de donnée voulu - ici se sera en l'ocurrence une Range : 8

Citation:

8 ----> Référence de cellule, sous la forme d’un objet Range.

Voir le lien pour les paramètres et le type : Méthode Application.InputBox (Excel)
Code:

1 2 3 4 5 6 7 8 Dim CellResultat as Range ' code … ' … … Set CellResultat = Application.InputBox(prompt:= "Ton texte", Title:="Ton texte", Type := 8) ' suite du code ' … … ' à la fin Set CellResultat = Nothing ' on libère la mémoire concernant la variable
Si ce n'est pas vraiment cela que tu veux il va falloir que tu sois plus explicite en donnant le détail des tenants et aboutissants, ainsi que le but final …