Comment répondre à un message Excel ? Displayalerts ?

Question

J'ai un tableau 'Modèle'. A partir de ce modèle je crée des feuilles mensuelles, mais après saisie par glisser de souris, la mise en forme n'est plus conservée. J'ai donc prévu un bouton dans ma barre de menu de l'application pour rétablir la mise en forme des tableaux. Cela fonctionne bien, mais comme il s'agiit d'un planning, Excel demande la confirmation d'utiliser le même nom Feries que celui du modèle. La réponse doit toujours être 'oui', mais je ne sais pas le rédiger ; j'ai trouvé dans l'aide : application.displayalerts=false 'Tapez ici les commandes à exécuter application.displayalerts=true mais je ne sais pas quelle commande à exécuter Voici ma procédure (Dans le UserForm / Icone ColFormat) : Private Sub ColForm_Click() ' Reconstituer le format du tableau 'Modèle' 'Se positionner en début de tableau de la feuille active Range("C5").Select 'Aller copier le tableau de la feuille modèle Sheets("Modèle").Range("C5:AG89").Copy ' revenir coller le format du tableau Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.DisplayAlerts = False 'Tapez ici les commandes à exécuter 'Application.DisplayAlerts = True Range("C5").Select End Sub Et le message qui en arrive Si je ne suis pas claire, je joins mon fichier. - Etant débutante, toutes vos remarques sur le code sont les biens venues... Merci...

lermite · Answer

Essaye ... Private Sub ColForm_Click() Application.DisplayAlerts = False ' Reconstituer le format du tableau 'Modèle' 'Se positionner en début de tableau de la feuille active Range("C5").Select 'Aller copier le tableau de la feuille modèle Sheets("Modèle").Range("C5:AG89").Copy ' revenir coller le format du tableau Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False . 'Tapez ici les commandes à exécuter Application.DisplayAlerts = True Range("C5").Select End Sub A+...