Discussion :

[valery.petit]

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.

[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,

[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.

[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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
clique2fois
End Sub

dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

Bonjour

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.

[Pierre Fauconnier]

Salut.

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?

[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.

[Pierre Fauconnier]

[...]

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.

[unparia]

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 ? ...):

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

[RyuAutodidacte]

Bonjour valery.petit,

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 =>

"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.

• 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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 …