Bonjour à tous,
Une macro est lancée manuellement par un utilisateur plusieurs fois par
jour. Je voudrais que l'utilisateur soit averti chaque fois que la macro a
été lancée10X.
Comment faire?
Merci pour votre aide
A+++
Bruno
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
Denis Michon
Bonjour Bruno,
Une façon simple ...
Tu inscris dans la cellule d'une feuille de ton choix le résultat d'un compteur
Exemple sur le principe de base... et tu peux ajouter des variables selon tes besoins...tu ajoutes ces lignes en début de traitement de ton code...
with worksheets("Feuil1") .range("IV65535") = .range("IV65535") +1 if .range("IV65535") mod 10 = 0 then Msgbox "Ceci est la 10 ième fois que vous utilisez cette macro." .range("IV65535") = "" end if end with
Salutations!
"Bruno" a écrit dans le message de news:3fba7d9d$0$16854$ Bonjour à tous, Une macro est lancée manuellement par un utilisateur plusieurs fois par jour. Je voudrais que l'utilisateur soit averti chaque fois que la macro a été lancée10X. Comment faire? Merci pour votre aide A+++ Bruno
Bonjour Bruno,
Une façon simple ...
Tu inscris dans la cellule d'une feuille de ton choix le résultat d'un compteur
Exemple sur le principe de base... et tu peux ajouter des variables selon tes besoins...tu ajoutes ces lignes en début
de traitement de ton code...
with worksheets("Feuil1")
.range("IV65535") = .range("IV65535") +1
if .range("IV65535") mod 10 = 0 then
Msgbox "Ceci est la 10 ième fois que vous utilisez cette macro."
.range("IV65535") = ""
end if
end with
Salutations!
"Bruno" <bruno.termonia@skynet.be> a écrit dans le message de news:3fba7d9d$0$16854$ba620e4c@reader3.news.skynet.be...
Bonjour à tous,
Une macro est lancée manuellement par un utilisateur plusieurs fois par
jour. Je voudrais que l'utilisateur soit averti chaque fois que la macro a
été lancée10X.
Comment faire?
Merci pour votre aide
A+++
Bruno
Tu inscris dans la cellule d'une feuille de ton choix le résultat d'un compteur
Exemple sur le principe de base... et tu peux ajouter des variables selon tes besoins...tu ajoutes ces lignes en début de traitement de ton code...
with worksheets("Feuil1") .range("IV65535") = .range("IV65535") +1 if .range("IV65535") mod 10 = 0 then Msgbox "Ceci est la 10 ième fois que vous utilisez cette macro." .range("IV65535") = "" end if end with
Salutations!
"Bruno" a écrit dans le message de news:3fba7d9d$0$16854$ Bonjour à tous, Une macro est lancée manuellement par un utilisateur plusieurs fois par jour. Je voudrais que l'utilisateur soit averti chaque fois que la macro a été lancée10X. Comment faire? Merci pour votre aide A+++ Bruno
AV
Tu pourrais aussi stocker le nbre de déclenchements dans une variable Exemple En tête du module : Public nbrFois As Double
Sub taMacro() nbrFois = nbrFois + 1 If nbrFois > 10 Then MsgBox "Pas plus de 10 fois !" Exit Sub End If 'le reste des instructions..... End Sub
Inconvénients/avantages sur le stockage en dur (réponse Denis) : La variable est réinitialisée (à 0) à la fermeture du fichier et si, par hasard, dans tes macros il y a une instruction "End", l'effet sera le même
AV
Tu pourrais aussi stocker le nbre de déclenchements dans une variable
Exemple
En tête du module :
Public nbrFois As Double
Sub taMacro()
nbrFois = nbrFois + 1
If nbrFois > 10 Then
MsgBox "Pas plus de 10 fois !"
Exit Sub
End If
'le reste des instructions.....
End Sub
Inconvénients/avantages sur le stockage en dur (réponse Denis) :
La variable est réinitialisée (à 0) à la fermeture du fichier et si, par hasard,
dans tes macros il y a une instruction "End", l'effet sera le même
Tu pourrais aussi stocker le nbre de déclenchements dans une variable Exemple En tête du module : Public nbrFois As Double
Sub taMacro() nbrFois = nbrFois + 1 If nbrFois > 10 Then MsgBox "Pas plus de 10 fois !" Exit Sub End If 'le reste des instructions..... End Sub
Inconvénients/avantages sur le stockage en dur (réponse Denis) : La variable est réinitialisée (à 0) à la fermeture du fichier et si, par hasard, dans tes macros il y a une instruction "End", l'effet sera le même
