![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
Bonjour à tous,
Je voudrais savoir comment faire pour valider automatiquement un message d'alerte affiché par Excel. Je m'explique: J'ai un fichier en commun avec d'autres utilisateurs et il faut absolument qu'ils valident une demande d'excel. J'ai un gros gros soucis, c'est que malgré 150000 instructions, certains ont peur de cliquer sur OK et ça me bugue toutes mes macros. Alors je voudrais trouver une macro qui fasse automatiquement en fond de tâche cette fonction Enter ou cliquer sur OK, mais je ne sais pas l'écrire. Merci de m'aider car je ne peux que maitriser un ordinateur, les humains m'échappent.... |
|
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
XLDnaute Occasionel
Date d'inscription: février 2005
Version Excel : Excel 2000 (PC)
Messages: 256
|
Bonjour,
je ne sais pas à quel moment le message apparaît, mais on doit pouvoir utiliser application.displayalerts=false l'aide d'excel : DisplayAlerts, propriété - Exemples Cet exemple montre comment fermer le classeur Book1.xls sans inviter l'utilisateur à enregistrer les modifications. Les modifications apportées à Book1.xls ne sont pas enregistrées. Application.DisplayAlerts = False Workbooks('BOOK1.XLS').Close Application.DisplayAlerts = True |
|
|
|
|
|
#3 (permalink) |
|
Guest
Messages: n/a
|
Je peux pas essayer maintenant, j'ai pas mon fichier sur ce poste.
Dans le processus que j'ai créé, on doit supprimer une feuille. Ceci se passe suite à l'activation d'une macro. Excel demande donc à l'utilisateur s'il est sur qu'il faut supprimer la feuille? Je veux donc que cela se fasse automatiquement puisque les gens le font mal. Tu penses que si j'ajoute cette commande à ma macro ça va marcher? Parce que j'ai pas bien compris ce qu'il faut faire. J'ai essayé ton exemple mais ça n'a pas l'air de marcher. J'ai du rater qqchose. Merci, |
|
|
|
#4 (permalink) |
|
XLDnaute Occasionel
Date d'inscription: février 2005
Messages: 242
|
Bonsoir,
Je confirme. Si le souçis est de supprimer une feuille sans affichage du message, l'instruction est la même : Sub Test() Application.DisplayAlerts = False Worksheets(2).Delete End Sub A+ |
|
|
|
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|