J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un
autre classeur. Cette macro doit être exécutée à nouveau pour chaque valeur
demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du
tableau du classeur source pour savoir où chercher l'information (par une
Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler
l'utilisateur d'avoir la feuille du classeur source sous la main. Seulement,
ce message se produit à nouveau chaque fois que la macro est exécutée.
Je voudrais que ce message s'affiche seulement la première fois que la macro
est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque
nouvelle ouverture du classeur.
Comment faire ?
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
Pounet95
Bonjour,
A adapter en fonction du besoin.
Dans l'évènement Workbook_Open :
Private Sub Workbook_Open() lu = False End Sub
Dans un module Standard :
Option Explicit Public lu As Boolean Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données() Dim x As String If lu = False Then MsgBox MonMsg lu = True End If x$ = InputBox("Nom du tableau") End Sub
Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Max du Vuache" <nospam du a écrit dans le message de news:
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un autre classeur. Cette macro doit être exécutée à nouveau pour chaque valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du tableau du classeur source pour savoir où chercher l'information (par une Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source sous la main. Seulement, ce message se produit à nouveau chaque fois que la macro est exécutée. Je voudrais que ce message s'affiche seulement la première fois que la macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque nouvelle ouverture du classeur. Comment faire ?
René
Bonjour,
A adapter en fonction du besoin.
Dans l'évènement Workbook_Open :
Private Sub Workbook_Open()
lu = False
End Sub
Dans un module Standard :
Option Explicit
Public lu As Boolean
Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données()
Dim x As String
If lu = False Then
MsgBox MonMsg
lu = True
End If
x$ = InputBox("Nom du tableau")
End Sub
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"Max du Vuache" <nospam du Vuache@wanadoo.fr> a écrit dans le message de
news: uIXqAs6WFHA.3140@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau
d'un autre classeur. Cette macro doit être exécutée à nouveau pour chaque
valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille
imprimée du tableau du classeur source pour savoir où chercher
l'information (par une Input Box). Au début de la macro j'ai mis une
MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source
sous la main. Seulement, ce message se produit à nouveau chaque fois que
la macro est exécutée.
Je voudrais que ce message s'affiche seulement la première fois que la
macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à
chaque nouvelle ouverture du classeur.
Comment faire ?
Option Explicit Public lu As Boolean Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données() Dim x As String If lu = False Then MsgBox MonMsg lu = True End If x$ = InputBox("Nom du tableau") End Sub
Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Max du Vuache" <nospam du a écrit dans le message de news:
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un autre classeur. Cette macro doit être exécutée à nouveau pour chaque valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du tableau du classeur source pour savoir où chercher l'information (par une Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source sous la main. Seulement, ce message se produit à nouveau chaque fois que la macro est exécutée. Je voudrais que ce message s'affiche seulement la première fois que la macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque nouvelle ouverture du classeur. Comment faire ?
René
jps
bonjour max peut-être que si tu mettais ta Msgbox dans l'évènement Workbook Open de ton classeur, ce ne serait pas mal :*
Private Sub Workbook_Open() Msgbox " tu vas la mettre sous ta main la feuille du classeur, espèce d'utilisateur ignard, oui ou m....?" End Sub
le tout à coller dans le module ThisWorkbook du classeur où se trouve la macro HTH jps
"Max du Vuache" <nospam du a écrit dans le message de news:
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un
autre classeur. Cette macro doit être exécutée à nouveau pour chaque valeur
demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du tableau du classeur source pour savoir où chercher l'information (par une Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source sous la main. Seulement,
ce message se produit à nouveau chaque fois que la macro est exécutée. Je voudrais que ce message s'affiche seulement la première fois que la macro
est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque nouvelle ouverture du classeur. Comment faire ?
René
bonjour max
peut-être que si tu mettais ta Msgbox dans l'évènement Workbook Open de ton
classeur, ce ne serait pas mal :*
Private Sub Workbook_Open()
Msgbox " tu vas la mettre sous ta main la feuille du classeur, espèce
d'utilisateur ignard, oui ou m....?"
End Sub
le tout à coller dans le module ThisWorkbook du classeur où se trouve la
macro
HTH
jps
"Max du Vuache" <nospam du Vuache@wanadoo.fr> a écrit dans le message de
news:uIXqAs6WFHA.3140@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau
d'un
autre classeur. Cette macro doit être exécutée à nouveau pour chaque
valeur
demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du
tableau du classeur source pour savoir où chercher l'information (par une
Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler
l'utilisateur d'avoir la feuille du classeur source sous la main.
Seulement,
ce message se produit à nouveau chaque fois que la macro est exécutée.
Je voudrais que ce message s'affiche seulement la première fois que la
macro
est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque
nouvelle ouverture du classeur.
Comment faire ?
bonjour max peut-être que si tu mettais ta Msgbox dans l'évènement Workbook Open de ton classeur, ce ne serait pas mal :*
Private Sub Workbook_Open() Msgbox " tu vas la mettre sous ta main la feuille du classeur, espèce d'utilisateur ignard, oui ou m....?" End Sub
le tout à coller dans le module ThisWorkbook du classeur où se trouve la macro HTH jps
"Max du Vuache" <nospam du a écrit dans le message de news:
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un
autre classeur. Cette macro doit être exécutée à nouveau pour chaque valeur
demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du tableau du classeur source pour savoir où chercher l'information (par une Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source sous la main. Seulement,
ce message se produit à nouveau chaque fois que la macro est exécutée. Je voudrais que ce message s'affiche seulement la première fois que la macro
est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque nouvelle ouverture du classeur. Comment faire ?
René
Max du Vuache
Bonjour Pounet95 et jps
Un grand merci à Ponet pour sa solution, c'est exactement ce que je cherchai
Merci aussi à jps, mais je ne veux pas que le message s'affiche à l'ouverture du classeur, seulement en exécutant la macro spécifique, c'est donc la solution de Pounet qui fait mon bonheur.
Max
"Pounet95" a écrit dans le message de news: %
Bonjour,
A adapter en fonction du besoin.
Dans l'évènement Workbook_Open :
Private Sub Workbook_Open() lu = False End Sub
Dans un module Standard :
Option Explicit Public lu As Boolean Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données() Dim x As String If lu = False Then MsgBox MonMsg lu = True End If x$ = InputBox("Nom du tableau") End Sub
Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Max du Vuache" <nospam du a écrit dans le message de news:
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un autre classeur. Cette macro doit être exécutée à nouveau pour chaque valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du tableau du classeur source pour savoir où chercher l'information (par une Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source sous la main. Seulement, ce message se produit à nouveau chaque fois que la macro est exécutée. Je voudrais que ce message s'affiche seulement la première fois que la macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque nouvelle ouverture du classeur. Comment faire ?
René
Bonjour Pounet95 et jps
Un grand merci à Ponet pour sa solution, c'est exactement ce que je cherchai
Merci aussi à jps, mais je ne veux pas que le message s'affiche à
l'ouverture du classeur, seulement en exécutant la macro spécifique, c'est
donc la solution de Pounet qui fait mon bonheur.
Max
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
%23l3aJ16WFHA.584@TK2MSFTNGP15.phx.gbl...
Bonjour,
A adapter en fonction du besoin.
Dans l'évènement Workbook_Open :
Private Sub Workbook_Open()
lu = False
End Sub
Dans un module Standard :
Option Explicit
Public lu As Boolean
Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données()
Dim x As String
If lu = False Then
MsgBox MonMsg
lu = True
End If
x$ = InputBox("Nom du tableau")
End Sub
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"Max du Vuache" <nospam du Vuache@wanadoo.fr> a écrit dans le message de
news: uIXqAs6WFHA.3140@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau
d'un autre classeur. Cette macro doit être exécutée à nouveau pour chaque
valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille
imprimée du tableau du classeur source pour savoir où chercher
l'information (par une Input Box). Au début de la macro j'ai mis une
MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source
sous la main. Seulement, ce message se produit à nouveau chaque fois que
la macro est exécutée.
Je voudrais que ce message s'affiche seulement la première fois que la
macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à
chaque nouvelle ouverture du classeur.
Comment faire ?
Un grand merci à Ponet pour sa solution, c'est exactement ce que je cherchai
Merci aussi à jps, mais je ne veux pas que le message s'affiche à l'ouverture du classeur, seulement en exécutant la macro spécifique, c'est donc la solution de Pounet qui fait mon bonheur.
Max
"Pounet95" a écrit dans le message de news: %
Bonjour,
A adapter en fonction du besoin.
Dans l'évènement Workbook_Open :
Private Sub Workbook_Open() lu = False End Sub
Dans un module Standard :
Option Explicit Public lu As Boolean Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données() Dim x As String If lu = False Then MsgBox MonMsg lu = True End If x$ = InputBox("Nom du tableau") End Sub
Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Max du Vuache" <nospam du a écrit dans le message de news:
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un autre classeur. Cette macro doit être exécutée à nouveau pour chaque valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du tableau du classeur source pour savoir où chercher l'information (par une Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source sous la main. Seulement, ce message se produit à nouveau chaque fois que la macro est exécutée. Je voudrais que ce message s'affiche seulement la première fois que la macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque nouvelle ouverture du classeur. Comment faire ?
René
jps
alors, moi, je joue plus : pounet, il est toujours plus fort que moi... jps
"Max du Vuache" <nospam du a écrit dans le message de news:eWVnHf%
Bonjour Pounet95 et jps
Un grand merci à Ponet pour sa solution, c'est exactement ce que je cherchai
Merci aussi à jps, mais je ne veux pas que le message s'affiche à l'ouverture du classeur, seulement en exécutant la macro spécifique, c'est donc la solution de Pounet qui fait mon bonheur.
Max
"Pounet95" a écrit dans le message de news: %
Bonjour,
A adapter en fonction du besoin.
Dans l'évènement Workbook_Open :
Private Sub Workbook_Open() lu = False End Sub
Dans un module Standard :
Option Explicit Public lu As Boolean Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données() Dim x As String If lu = False Then MsgBox MonMsg lu = True End If x$ = InputBox("Nom du tableau") End Sub
Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Max du Vuache" <nospam du a écrit dans le message de news:
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un autre classeur. Cette macro doit être exécutée à nouveau pour chaque
valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du tableau du classeur source pour savoir où chercher l'information (par une Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source
sous la main. Seulement, ce message se produit à nouveau chaque fois que
la macro est exécutée. Je voudrais que ce message s'affiche seulement la première fois que la macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque nouvelle ouverture du classeur. Comment faire ?
René
alors, moi, je joue plus : pounet, il est toujours plus fort que moi...
jps
"Max du Vuache" <nospam du Vuache@wanadoo.fr> a écrit dans le message de
news:eWVnHf%23WFHA.3760@TK2MSFTNGP15.phx.gbl...
Bonjour Pounet95 et jps
Un grand merci à Ponet pour sa solution, c'est exactement ce que je
cherchai
Merci aussi à jps, mais je ne veux pas que le message s'affiche à
l'ouverture du classeur, seulement en exécutant la macro spécifique, c'est
donc la solution de Pounet qui fait mon bonheur.
Max
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
%23l3aJ16WFHA.584@TK2MSFTNGP15.phx.gbl...
Bonjour,
A adapter en fonction du besoin.
Dans l'évènement Workbook_Open :
Private Sub Workbook_Open()
lu = False
End Sub
Dans un module Standard :
Option Explicit
Public lu As Boolean
Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données()
Dim x As String
If lu = False Then
MsgBox MonMsg
lu = True
End If
x$ = InputBox("Nom du tableau")
End Sub
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"Max du Vuache" <nospam du Vuache@wanadoo.fr> a écrit dans le message de
news: uIXqAs6WFHA.3140@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau
d'un autre classeur. Cette macro doit être exécutée à nouveau pour
chaque
valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille
imprimée du tableau du classeur source pour savoir où chercher
l'information (par une Input Box). Au début de la macro j'ai mis une
MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur
source
sous la main. Seulement, ce message se produit à nouveau chaque fois
que
la macro est exécutée.
Je voudrais que ce message s'affiche seulement la première fois que la
macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à
chaque nouvelle ouverture du classeur.
Comment faire ?
alors, moi, je joue plus : pounet, il est toujours plus fort que moi... jps
"Max du Vuache" <nospam du a écrit dans le message de news:eWVnHf%
Bonjour Pounet95 et jps
Un grand merci à Ponet pour sa solution, c'est exactement ce que je cherchai
Merci aussi à jps, mais je ne veux pas que le message s'affiche à l'ouverture du classeur, seulement en exécutant la macro spécifique, c'est donc la solution de Pounet qui fait mon bonheur.
Max
"Pounet95" a écrit dans le message de news: %
Bonjour,
A adapter en fonction du besoin.
Dans l'évènement Workbook_Open :
Private Sub Workbook_Open() lu = False End Sub
Dans un module Standard :
Option Explicit Public lu As Boolean Public Const MonMsg = "Se munir du tableau de localisation"
Sub Demande_Données() Dim x As String If lu = False Then MsgBox MonMsg lu = True End If x$ = InputBox("Nom du tableau") End Sub
Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Max du Vuache" <nospam du a écrit dans le message de news:
Bonjour,
J'ai une macro dans un classeur qui cherche des valeurs dans un tableau d'un autre classeur. Cette macro doit être exécutée à nouveau pour chaque
valeur demandée, de 5 à 8 fois. L'utilisateur a besoin d'une feuille imprimée du tableau du classeur source pour savoir où chercher l'information (par une Input Box). Au début de la macro j'ai mis une MsgBox pour rappeler l'utilisateur d'avoir la feuille du classeur source
sous la main. Seulement, ce message se produit à nouveau chaque fois que
la macro est exécutée. Je voudrais que ce message s'affiche seulement la première fois que la macro est exécutée, et non pas la 2e, 3e énième fois, mais de nouveau à chaque nouvelle ouverture du classeur. Comment faire ?
