Discussion :

[Springbank35]

Bonsoir à tous,

Je suis en train de créer un fichier excel, qui doit me permettre de paramétrer plusieurs services. A l'ouverture du fichier, cela va vérifier qu'une cellule désignée est vide, si oui la procédure de paramétrage débute. Toute cette macro de paramétrage se trouve dans ThisWorkbook.

Ma demande:
Quand la macro débute, j'active une feuille (Feuil8.activate dans mon cas) où est rédigé ce qui va se passer. Il y a du texte à lire. J'ai insérer un Bouton avec OK dessus. Je souhaiterai que la macro fasse une pause à l'activation de la feuille, pour qu'on puisse avoir le temps de lire, et que la macro poursuive ses process quand on clique sur le bouton OK.

Je ne vois pas du tout comment procéder. Je pense à une boucle du style: on attend tant que le bouton=false, un truc du genre ...

Merci pour vos réponses,

Sincèrement,

[Invité]

Bonjour,

Il suffit de se positionner sur les cellules à lire et d'insérer un MsgBox dans la macro, du style :

Code :

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

    MsgBox "Lire les instructions avant de continuer", vbInformation, "Titre de la fenêtre"

Le cas échéant, il vous faut remettre

Code :

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

Application.ScreenUpdating = True

si le rafraîchissement de l'écran a été désactivé auparavant.


Cordialement.

[Springbank35]

Bonjour,

Merci pour cette réponse. J'avais intégré une procédure identique au départ du projet que je voulais faire évoluer, je trouvais qu'une belle feuille Excel était plus belle qu'un MsgBox.

Je cherche du côté d'un CallByName avec un Sub ... end Sub dans la feuille en question mais ça ne marche pas non plus.

[bboy-eazy]

Bonjour,

Une solution:
dans thisworkbook:
mettre le code et le faire se terminer à l'activation de la feuille :

Code :

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

1
2
feuille.activate
ens sub

mettre la suite de la macro sur le bouton ok de la feuille

autre solution:

Faire apparaitre un userform

EDIT:

dernière solution:

dans un module

Code :

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

1
2
3
4
5
Public continue As Boolean
 
Sub Bouton_ok_Cliquer()
continue = True
End Sub

dans thisworkbook

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
'début de procédure
While Not continue
DoEvents
Wend
continue = False
'fin de procédure après avoir cliquer sur le bouton ok
End Sub

[Oliv-]

Bonjour,
il faut decouper ton code en 2

la première partie se lance comme avant.

Quand tu affiches ta feuille 8 c'est la fin de la première partie.

quand tu cliques sur le bouton OK de cette feuille ca débute la 2 ème macro (seconde partie)


Tu peux le faire aussi avec un USERFORM NON MODAL contenant un bouton OK , la permiere macro se terminera sur userform1. show modeless


la seconde partie lorsque tu cliqueras sur OK

[Springbank35]

Bonjour à tous,

Merci pour vos réponses,

Après plusieurs essais, la solution la plus appropriée pour moi était de scinder le code en 2 et de terminer la première procédure après le activate.

Je passe en résolu.