Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel fenêtre d'info à l'ouverture

fenêtre d'info à l'ouverture

13 réponses
Avatar
Greg
Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations s'ouvre
automatiquement à l'ouverture du fichier excel. L'utilisateur cliquerait
ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
1 2
Avatar
Greg
C'est super! Merci merci merci...

Pour aller juste un peu plus loin, si je souhaite que ce message
apparaissent 1 fois sur 6 par exemple, puis-je écrire une formule spécifique
dans la cellule?

Greg


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonsoir,
Nouvel essai :
http://cjoint.com/?hoxgL6tWiU
Un clic droit sur l'onglet de la feuille 1 suivi de visualiser le code
devrait montrer ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If [lesclics] < 6 Then
MsgBox "Vous avez cliqué en " & Target.Address
[lesclics] = [lesclics] + 1
End If
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Re et re,

Sauf erreur de ma part, il n'y a pas de code dans la feuil1. Le fichier
semble être le même que précédemment.

J'espère ne pas dire de bétise....

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Le code sera alors dans le module de la feuille considérée, ici Feuil1
http://cjoint.com/?hovPZvGqgn
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Philippe, j'ai compris le principe. Le code, avec quelques
modifications, peut-il s'appliquer à une cellule? Par exemple, aux 5
premiers clic en B2, une fenêtre apparaîtrait avec un message.

Ca résoudrait mes problèmes de commentaires hors champ de la feuille...

Merci encore... c'est vraiment ce que j'attendais... en mieux!

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Regarde le classeur exemple au bout de ce lien :
http://cjoint.com/?hotQFfP22x
Consulte le code (Alt + F11) dans le module ThisWorkbook et regarde
aussi du côté du menu insertion / nom / définir.
Pour l'exemple, c'est une cellule de la feuille 3 (masquée), qui sert
de compteur destiné à limiter le nombre d'édition du message.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui
l'est tout autant, peux tu expliciter "en restant avec un simple
MsgBox, créer un nom dans le classeur, que tu nommeras "ouverture"
pour l'exemple et qui s'incrémentera". Le simple béotien que je suis
est au point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le
classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement
qu'en effaçant la macro, de ne plus voir le message à chaque
ouverture? Je pense aux cases à cocher "ne plus voir ce message" ou
quelque chose dans le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée,
...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre
d'informations s'ouvre automatiquement à l'ouverture du fichier
excel. L'utilisateur cliquerait ensuite sur OK une fois
l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg






























Avatar
Philippe.R
Bonjour,
Pour ce faire, tu remplaces le code précédent par celui ci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If Int([lesclics] / 6) = [lesclics] / 6 Then
MsgBox "Vous avez cliqué en " & Target.Address
End If
[lesclics] = [lesclics] + 1
End If
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
C'est super! Merci merci merci...

Pour aller juste un peu plus loin, si je souhaite que ce message
apparaissent 1 fois sur 6 par exemple, puis-je écrire une formule
spécifique dans la cellule?

Greg


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonsoir,
Nouvel essai :
http://cjoint.com/?hoxgL6tWiU
Un clic droit sur l'onglet de la feuille 1 suivi de visualiser le code
devrait montrer ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If [lesclics] < 6 Then
MsgBox "Vous avez cliqué en " & Target.Address
[lesclics] = [lesclics] + 1
End If
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Re et re,

Sauf erreur de ma part, il n'y a pas de code dans la feuil1. Le fichier
semble être le même que précédemment.

J'espère ne pas dire de bétise....

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Le code sera alors dans le module de la feuille considérée, ici Feuil1
http://cjoint.com/?hovPZvGqgn
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Philippe, j'ai compris le principe. Le code, avec quelques
modifications, peut-il s'appliquer à une cellule? Par exemple, aux 5
premiers clic en B2, une fenêtre apparaîtrait avec un message.

Ca résoudrait mes problèmes de commentaires hors champ de la
feuille...

Merci encore... c'est vraiment ce que j'attendais... en mieux!

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Regarde le classeur exemple au bout de ce lien :
http://cjoint.com/?hotQFfP22x
Consulte le code (Alt + F11) dans le module ThisWorkbook et regarde
aussi du côté du menu insertion / nom / définir.
Pour l'exemple, c'est une cellule de la feuille 3 (masquée), qui sert
de compteur destiné à limiter le nombre d'édition du message.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui
l'est tout autant, peux tu expliciter "en restant avec un simple
MsgBox, créer un nom dans le classeur, que tu nommeras "ouverture"
pour l'exemple et qui s'incrémentera". Le simple béotien que je suis
est au point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le
classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement
qu'en effaçant la macro, de ne plus voir le message à chaque
ouverture? Je pense aux cases à cocher "ne plus voir ce message"
ou quelque chose dans le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée,
...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre
d'informations s'ouvre automatiquement à l'ouverture du fichier
excel. L'utilisateur cliquerait ensuite sur OK une fois
l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg

































Avatar
Greg
Bonjour Philippe et un grand merci!

à bientôt

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonjour,
Pour ce faire, tu remplaces le code précédent par celui ci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If Int([lesclics] / 6) = [lesclics] / 6 Then
MsgBox "Vous avez cliqué en " & Target.Address
End If
[lesclics] = [lesclics] + 1
End If
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
C'est super! Merci merci merci...

Pour aller juste un peu plus loin, si je souhaite que ce message
apparaissent 1 fois sur 6 par exemple, puis-je écrire une formule
spécifique dans la cellule?

Greg


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonsoir,
Nouvel essai :
http://cjoint.com/?hoxgL6tWiU
Un clic droit sur l'onglet de la feuille 1 suivi de visualiser le code
devrait montrer ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If [lesclics] < 6 Then
MsgBox "Vous avez cliqué en " & Target.Address
[lesclics] = [lesclics] + 1
End If
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Re et re,

Sauf erreur de ma part, il n'y a pas de code dans la feuil1. Le fichier
semble être le même que précédemment.

J'espère ne pas dire de bétise....

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Le code sera alors dans le module de la feuille considérée, ici Feuil1
http://cjoint.com/?hovPZvGqgn
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Philippe, j'ai compris le principe. Le code, avec quelques
modifications, peut-il s'appliquer à une cellule? Par exemple, aux 5
premiers clic en B2, une fenêtre apparaîtrait avec un message.

Ca résoudrait mes problèmes de commentaires hors champ de la
feuille...

Merci encore... c'est vraiment ce que j'attendais... en mieux!

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Regarde le classeur exemple au bout de ce lien :
http://cjoint.com/?hotQFfP22x
Consulte le code (Alt + F11) dans le module ThisWorkbook et regarde
aussi du côté du menu insertion / nom / définir.
Pour l'exemple, c'est une cellule de la feuille 3 (masquée), qui
sert de compteur destiné à limiter le nombre d'édition du message.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui
l'est tout autant, peux tu expliciter "en restant avec un simple
MsgBox, créer un nom dans le classeur, que tu nommeras "ouverture"
pour l'exemple et qui s'incrémentera". Le simple béotien que je
suis est au point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message
de news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le
classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières
ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement
qu'en effaçant la macro, de ne plus voir le message à chaque
ouverture? Je pense aux cases à cocher "ne plus voir ce message"
ou quelque chose dans le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée,
...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre
d'informations s'ouvre automatiquement à l'ouverture du fichier
excel. L'utilisateur cliquerait ensuite sur OK une fois
l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg




































1 2