Lancer Macro, Mettre en Stand By et continuer..

[tvhabdo]

Bonjour le Forum, Les Experts, Les Barbatruc's

Besoin d'un p'tit coup de main..

1 - Je lance une Macro avec un Bouton d'action

2 - Je souhaiterais a un moment précis que la macro se mette en "Stand By", que je puisse voir ce qu'il y a à l'ecran, pouvoir noter sur une feuille de papier quelques indications, voir apparaitre une fenetre qui me dise par exemple : c'est bon, tu a tout noté, continu... et je clic sur "continuer" et la macro continu juska la fin ... (j'espere être clair, sinon ... suis la)

3 - Merci a tous pour votre Savoir

Patrick.. 🙂

 

[mutzik]

Re : Lancer Macro, Mettre en Stand By et continuer..

bonjour,

avant d'arreter ta macro, tu te positionnes au bon endroit pour pouvoir noter ces infos, ensuite tu mets
msgbox "macros mise en attente"
et des que tu cliques sur ok, ça repart

 

[porcinet82]

Re : Lancer Macro, Mettre en Stand By et continuer..

Salut,

Tu as la possibilité d'utiliser un On time, mais tu n'auras pas la main sur ton fichier excel...
Je te joins un lien provenant du forum, mais je pense qu'il y en a beaucoup d'autres...

@+

Edition : Salut Bertrand, tu as ete légerement plus rapide, mais nos solutions sont différentes, ce qui laissera le choix à Patrick

 

[tvhabdo]

Re : Lancer Macro, Mettre en Stand By et continuer..

Mutzik, Porcinet.. merci..

Bon, suis débutant.. moi

- Porcinet, je suis allez sur ton lien, mais le fichier télécharger ne fonctionne pas

- Mutzik ok pour ton post mais comment integrer ton msgbox.? dans ma macro
Je ne souhaite pas lancer ma macro pas à pas et voir ce qui ce passe..

Ce que je souhaite, c'est lancer ma macro avec mon bouton d'action, que ça se fige, que je puisse noter des trucs sur du papier et cliquer sur un "continuer"

Quel est le bout de Macro et ou dois je le mettre.. (après un End Sub .?)

Merci pour vos connaissances - Patrick

 

[porcinet82]

Re : Lancer Macro, Mettre en Stand By et continuer..

re,

Si tu es débutant, je te conseil dans un premier temps d'utiliser la technique de mon collegue. Je te fais un exemple que tu pourras directement copier/coller dans un module pour le tester, sachant que comme la dis Mutzik, il faut tu te places au bon endroit sur ton onglet car lors de l'execution d'une macro, tu n'as plus la main sur ton fichier.

Sub test()
For i = 1 To 10
    Cells(i, 1).Value = i
Next i
MsgBox "Pause de la macro. Pour continuer, un petit click sur Ok !!!", vbInformation + vbOKOnly
For i = 1 To 10 Step 2
    Cells(i, 1).Interior.Color = vbBlue
Next i
End Sub

@+

 

[tvhabdo]

Re : Lancer Macro, Mettre en Stand By et continuer..

Salut, Porcinet..

Ton bout de Macro fonctionne, et je l'ai placer au bon endroit sur ma macro principal .. mais la msgbox apparait avant de voir apparaitre mes cellules rempli.. pourtant j'ai bien positionner ton bout de macro presque a la fin..

Je te colle le denut de ma macro ainsi que la fin ou tu pourras voir ou j'ai positionner ton bout...

Sub AMALGAME()

Application.ScreenUpdating = False

tricro
EffacerColonneC

TrierListe
ChercherDoublons
copiecoll
tricolamal
standby
tricroissant

End Sub

ici plein de calcul

Sub tricolamal()

Range("C1").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Sub standby()
For i = 1 To 10
Cells(i, 1).Value = i
Next i
MsgBox "Pause de la macro. Pour continuer, un petit click sur Ok !!!", vbInformation + vbOKOnly
End Sub

Sub tricroissant()
Range("A1").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Suis la ... Patrick

 

[PascalXLD]

Re : Lancer Macro, Mettre en Stand By et continuer..

Bonjour

avant ta message box ajoutes

application.screenupdating=true

car tu l'as mis à false au début

puis remets le à false juste après la msgbox

 

[porcinet82]

Re : Lancer Macro, Mettre en Stand By et continuer..

re, Salut Pascal,

De plus, ma macro n'etait qu'un exemple, donc il ne faut rajouter dans ton code que la ligne MsgBox "blablabla...", c'est a dire :

Sub standby()
MsgBox "Pause de la macro. Pour continuer, un petit click sur Ok !!!", vbInformation + vbOKOnly
End Sub

@+

 

[tvhabdo]

Re : Lancer Macro, Mettre en Stand By et continuer..

Merciiiiiiiiiiii, TOUS

ça marche a Donf...

Special THANK's Porcinet82, PascalXLD 🙂

Hein.. c'est beau un mec's content qui fait des bons... hein..

Encore Merci .. Les Experts ami ami .. 🙂

 

[PascalXLD]

Re : Lancer Macro, Mettre en Stand By et continuer..

Merciiiiiiiiiiii, TOUS

ça marche a Donf...

Special THANK's Porcinet82, PascalXLD 🙂

Hein.. c'est beau un mec's content qui fait des bons... hein..

Encore Merci .. Les Experts ami ami .. 🙂

Et oui c'est beau et en plus c'est notre récompense à nous de te voir content alors merci de le dire 😀

Bonne fin de journée