Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il
sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?"
SI oui alors j'execute la macro synthese sinon rien.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
A mettre dans le module de la feuille "synthese" '---------- Private Sub Worksheet_Activate() question = MsgBox("Voulez-vous lancer un mise à jour?", 4, Application.UserName) If question = 6 Then MsgBox "je vais executer la macro nommée: 'synthese'" '*****facultatif**** synthese End If End Sub '--------- -- Salutations JJ
"Yapi" a écrit dans le message de news:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Bonjour,
A mettre dans le module de la feuille "synthese"
'----------
Private Sub Worksheet_Activate()
question = MsgBox("Voulez-vous lancer un mise à jour?", 4,
Application.UserName)
If question = 6 Then
MsgBox "je vais executer la macro nommée: 'synthese'" '*****facultatif****
synthese
End If
End Sub
'---------
--
Salutations
JJ
"Yapi" <Yapi@discussions.microsoft.com> a écrit dans le message de news:
5D374ACE-AD26-4998-8345-8553CE91A610@microsoft.com...
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il
sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à
jour?"
SI oui alors j'execute la macro synthese sinon rien.
A mettre dans le module de la feuille "synthese" '---------- Private Sub Worksheet_Activate() question = MsgBox("Voulez-vous lancer un mise à jour?", 4, Application.UserName) If question = 6 Then MsgBox "je vais executer la macro nommée: 'synthese'" '*****facultatif**** synthese End If End Sub '--------- -- Salutations JJ
"Yapi" a écrit dans le message de news:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
garnote
Salut Yapi,
Écris ta macro dans un module standard. Exemple :
Sub Mise_A_Jour() MsgBox "Bonne journée." End Sub
Fais un clic droit sur l'onglet « SYNTHESE », clique sur « Visualiser le code » et colle cette macro dans la feuille vierge qui devrait apparaître :
Private Sub Worksheet_Activate() rep = MsgBox("Voulez-vous lancer une mise à jour?", vbYesNo, "Cliquez sur Oui ou Non") If rep = vbYes Then Mise_A_Jour Else Exit Sub End Sub
Serge
"Yapi" a écrit dans le message de news:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Salut Yapi,
Écris ta macro dans un module standard.
Exemple :
Sub Mise_A_Jour()
MsgBox "Bonne journée."
End Sub
Fais un clic droit sur l'onglet « SYNTHESE »,
clique sur « Visualiser le code » et colle cette
macro dans la feuille vierge qui devrait apparaître :
Private Sub Worksheet_Activate()
rep = MsgBox("Voulez-vous lancer une mise à jour?", vbYesNo, "Cliquez sur Oui ou Non")
If rep = vbYes Then Mise_A_Jour Else Exit Sub
End Sub
Serge
"Yapi" <Yapi@discussions.microsoft.com> a écrit dans le message de news: 5D374ACE-AD26-4998-8345-8553CE91A610@microsoft.com...
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il
sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?"
SI oui alors j'execute la macro synthese sinon rien.
Fais un clic droit sur l'onglet « SYNTHESE », clique sur « Visualiser le code » et colle cette macro dans la feuille vierge qui devrait apparaître :
Private Sub Worksheet_Activate() rep = MsgBox("Voulez-vous lancer une mise à jour?", vbYesNo, "Cliquez sur Oui ou Non") If rep = vbYes Then Mise_A_Jour Else Exit Sub End Sub
Serge
"Yapi" a écrit dans le message de news:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Ellimac
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate()
rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo)
If rep = vbYes Then synthese
End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il
sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?"
SI oui alors j'execute la macro synthese sinon rien.
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Yapi
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes "Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes
"Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate()
rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo)
If rep = vbYes Then synthese
End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il
sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?"
SI oui alors j'execute la macro synthese sinon rien.
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes "Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Ellimac
Re,
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese msgbox "Mise à jour terminée." End If End Sub
"Yapi" wrote:
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes "Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Re,
Private Sub Worksheet_Activate()
rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo)
If rep = vbYes Then
synthese
msgbox "Mise à jour terminée."
End If
End Sub
"Yapi" wrote:
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes
"Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate()
rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo)
If rep = vbYes Then synthese
End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il
sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?"
SI oui alors j'execute la macro synthese sinon rien.
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese msgbox "Mise à jour terminée." End If End Sub
"Yapi" wrote:
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes "Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Yapi
Merci à tous!
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Merci à tous!
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il
sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?"
SI oui alors j'execute la macro synthese sinon rien.
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
Yapi
C'est bien comme ça que je le voyais sauf que je les mettais d'affiler!!! Merci pour les infos. Yapi
Re,
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese msgbox "Mise à jour terminée." End If End Sub
"Yapi" wrote:
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes "Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
Est-ce possible à votre avis?
Merci Yapi
C'est bien comme ça que je le voyais sauf que je les mettais d'affiler!!!
Merci pour les infos.
Yapi
Re,
Private Sub Worksheet_Activate()
rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo)
If rep = vbYes Then
synthese
msgbox "Mise à jour terminée."
End If
End Sub
"Yapi" wrote:
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes
"Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate()
rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo)
If rep = vbYes Then synthese
End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il
sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?"
SI oui alors j'execute la macro synthese sinon rien.
C'est bien comme ça que je le voyais sauf que je les mettais d'affiler!!! Merci pour les infos. Yapi
Re,
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese msgbox "Mise à jour terminée." End If End Sub
"Yapi" wrote:
Merci pour l'info. Est-il possible de mettre une msgbox complémentaire si yes "Mise à jour terminée."
Bonjour,
A placer sur la feuille voulue :
Private Sub Worksheet_Activate() rep = MsgBox("voulez-vous mettre à jour ?", vbYesNo) If rep = vbYes Then synthese End Sub
"Yapi" wrote:
Bonjour,
Je voudrais pouvoir poser la question à l'utilisateur du fichier lorsqu'il sélectionne une feuille nommée SYNTHESE "Voulez-vous lancer un mise à jour?" SI oui alors j'execute la macro synthese sinon rien.
