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?